excelvbaword表格实例.docx
- 文档编号:746431
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:8
- 大小:19.20KB
excelvbaword表格实例.docx
《excelvbaword表格实例.docx》由会员分享,可在线阅读,更多相关《excelvbaword表格实例.docx(8页珍藏版)》请在冰豆网上搜索。
excelvbaword表格实例
竭诚为您提供优质文档/双击可除
excel,vba,word,表格,实例
篇一:
在excel中用Vba处理woRd表格常规属性
在excel中用Vba设置woRd表格常规属性编辑:
madmlwt1.计算woRd文档中的表格个数【要求】在excel中用Vba计算指定的woRd文档“成绩表.doc”中非嵌入式表格的个数。
【代码】
sub计算woRd表格个数()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量setdkdoc=wdwoRd.documents.open(dqm)创建文档对象bgs=dkdoc.tables.count当前文档中的表格总数dkdoc.close关闭文档setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间msgboxchr(10)关闭屏幕刷新
endsub
提示:
嵌入式表格如woRd文档中插入的excel表格、表格中插入的表格。
计算表格个数的代码格式——文档对象.tables.count
上述方法不能计算woRd文档中的嵌入式表格个数。
2.计算woRd文档中各个表格的行/列数
【要求】
在excel中,遍历woRd文档“成绩表.doc”中的表格,计算表格的行数和列数。
【代码】
sub计算指定woRd文档中表格行列数()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量
setdkdoc=wdwoRd.documents.open(dqm)创建文档对象
bgs=dkdoc.tables.count当前文档中的表格总数
Forg=1tobgs循环表格
withdkdoc.tables(g)逐个表格计算
hs=.Rows.count行数
ls=.columns.count列数
msgboxchr(10)计算信息提示endwithnextgdkdoc.close关闭文档setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间application.screenupdating=False关闭屏幕刷新endsub
提示:
计算行数代码格式——文档对象.表格对象.Rows.count
计算列数代码格式——文档对象.表格对象.columns.count上述方法不能计算嵌入式表格的行/列数。
3.选定woRd表格的指定区域⑴选定整个表格【代码】
sub选择woRd文档的指定表格整体()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量setdkdoc=wdwoRd.documents.open(dqm)创建文档对象wdwoRd.Visible=true窗口可见wdwoRd.activedocument.tables
(1).select选择整个表格wdwoRd.activedocument.tables
(1).Range.select选择整个表格wdwoRd.quit关闭新建文档窗口setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间application.screenupdating=False关闭屏幕刷新endsub⑵选定一个单元格【代码】
sub选择woRd表格的第一个单元格()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量
setdkdoc=wdwoRd.documents.open(dqm)创建文档对象
wdwoRd.Visible=true窗口可见setwdbg=wdwoRd.activedocument.tables
(1)创建表格对象wdbg.cell(1,1).select选择第一个单元格wdbg.cell(1,1).Range.select选择第一个单元格
wdwoRd.quit关闭新建文档窗口setwdbg=nothing释放存储空间setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间application.screenupdating=False关闭屏幕刷新endsub
⑶选定表格最后一个单元格
【代码】
sub选择woRd表格的最后一个单元格()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量
setdkdoc=wdwoRd.documents.open(dqm)创建文档对象
hs=wdwoRd.activedocument.tables
(1).Rows.count行数
ls=wdwoRd.activedocument.tables
(1).columns.count列数
wdwoRd.Visible=true窗口可见
setwdbg=wdwoRd.activedocument.tables
(1)创建表格对象
wdbg.cell(hs,ls).Range.select选择最后一个单元格
wdwoRd.quit关闭新建文档窗口
setwdbg=nothing释放存储空间
setdkdoc=nothing释放存储空间
setwdwoRd=nothing释放存储空间
application.screenupdating=False关闭屏幕刷新endsub注意:
一个表格的最后一个单元格由表格的最后一行hs和最后一列ls围成的一个方格。
所以表格最后一个单元格的代码格式是.cell(hs,ls)。
⑷选定指定行/列【代码】
sub选择woRd表格指定行()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量
setdkdoc=wdwoRd.documents.open(dqm)创建文档对象wdwoRd.Visible=true窗口可见wdwoRd.activedocument.tables
(1).Rows(3).select选择第3行wdwoRd.activedocument.tables
(1).Rows(3).Range.select选择第3行wdwoRd.quit关闭新建文档窗口setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间application.screenupdating=False关闭屏幕刷新endsub
sub选择woRd表格指定列()
application.screenupdating=False关闭屏幕刷新
dqm=thisworkbook.path带路径的woRd文件名称setwdwoRd=createobject("word.application")定义一个word对象变量
setdkdoc=wdwoRd.documents.open(dqm)创建文档对象
篇二:
在excel中用Vba创建woRd文档表格
在excel中用Vba创建woRd文档表格编辑:
madmlwt1.在新建woRd空白文档中创建一个表格【要求】新建一个woRd空白文档,在新文档中创建一个4行5列的空白表格,在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。
【代码】
sub创建一个woRd表格()
application.screenupdating=False关闭屏幕刷新
dqt=timer程序运行开始时间(秒)
dqm=thisworkbook.name要创建的woRd文件名称(当前工作簿名称)setwordappl=createobject("word.application")定义一个word对象变量withwordappl
.documents.add创建一个新的word文档
.activedocument.tables.addRange:
=.selection.Range,numRows:
=4,numcolumns:
=5插入4×5表格
setmyRange=.activedocument.tables
(1)创建表格对象
withmyRange
.cell(1,1).Range.insertafter"第一个单元格"第一个单元格中写入字符第一个单元格
.cell(.Rows.count,.columns.count).Range.insertafter"最后一个单元格"第二个单元格中写入字符最后一个单元格
endwith
.activedocument.saveasthisworkbook.path保存新建word文档与当前文件相同路径
.documents.close关闭新建文档
.quit关闭新建文档窗口endwithsetwordappl=nothing释放存储空间msgboxchr(10)关闭屏幕刷新
endsub说明:
woRd文档中的表格,与excel中的表格概念基本一致,只是表达方式有所区别。
tables表示表格对象,tables
(1)表示第1个表格(以此类推)。
表中的一个空格也叫单元格,用cell(行数,列数)表示。
表格行/列数计算代码:
表格行数——wordappl.activedocument.tables
(1).Rows.count
表格列数——wordappl.activedocument.tables
(1).columns.count
2.新建一个文档写入两个段落再创建一空白表格
【要求】
第一段落写入“创建一个woRd表格”,字体“黑体”、字号20、对齐“居中”;第二段落写入“作者:
老顽童”,字体“华文行楷”、字号16、对齐“居中”。
【代码】
subcommandbutton1_click()
application.screenupdating=False关闭屏幕刷新
dqt=timer程序运行开始时间(秒)
setwordappl=createobject("word.application")定义一个word对象变量withwordappl
.documents.add创建一个新的word文档
第一段设置
.selection.Font.name="黑体"字体
.selection.Font.size=20字号
.selection.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- excelvbaword 表格 实例