excelvbaword表格实例Word下载.docx

excelvbaword表格实例Word下载.docx

《excelvbaword表格实例Word下载.docx》由会员分享，可在线阅读，更多相关《excelvbaword表格实例Word下载.docx（8页珍藏版）》请在冰豆网上搜索。

　　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文档中表格行列数（）

）定义一个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文档的指定表格整体（）

）定义一个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表格的第一个单元格（）

　　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表格的最后一个单元格（）

　　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表格指定行（）

　　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表格指定列（）

　　篇二：

在excel中用Vba创建woRd文档表格

　　在excel中用Vba创建woRd文档表格编辑：

madmlwt1．在新建woRd空白文档中创建一个表格【要求】新建一个woRd空白文档，在新文档中创建一个4行5列的空白表格，在空白表格的第一个单元格写入“第一单元格”、最后一个单元格中写入“最后一个单元格”。

　　sub创建一个woRd表格（）

　　dqt=timer程序运行开始时间（秒）

　　dqm=thisworkbook.name要创建的woRd文件名称（当前工作簿名称）setwordappl=createobject（"

）定义一个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（）

　　setwordappl=createobject（"

　　第一段设置

　　.selection.Font.name="

黑体"

字体

　　.selection.Font.size=20字号

　　.selection.