在EXCEL中用VBA处理WORD表格常规属性

《在EXCEL中用VBA处理WORD表格常规属性》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA在EXCEL中操作WORD表格之五第24页共24页在EXCEL中用VBA设置WORD表格常规属性编辑：madmlwt1．计算WORD文档中的表格个数【要求】在EXCEL中用VBA计算指定的WORD文档“成绩表.doc”中非嵌入式表格的个数。【代码】Sub计算WORD表格个数()Application.ScreenUpdating=False'关闭屏幕刷新dqM=ThisWorkbook.Path&"成绩表.doc"'带路径的WORD文件名称SetwdWORD=CreateObject("Word.Application")'定义一个Word对象变量SetdkDOC=wdWORD.Do

2、cuments.Open(dqM)'创建文档对象bgS=dkDOC.Tables.Count'当前文档中的表格总数dkDOC.Close'关闭文档SetdkDOC=Nothing'释放存储空间SetwdWORD=Nothing'释放存储空间MsgBoxChr(10)&Dir(dqM)&"文档中共有"&bgS&"个表格！",,"计算WORD表格个数"Application.ScreenUpdating=False'关闭屏幕刷新EndSub提示：嵌入式表格如WORD文档中插入的EXCEL表格、表格中插入的表格。计算表格个数的代码格式——文档对象.Tables.Count上述方法不能计算WORD文

3、档中的嵌入式表格个数。2．计算WORD文档中各个表格的行/列数【要求】在EXCEL中，遍历WORD文档“成绩表.doc”中的表格VBA在EXCEL中操作WORD表格之五第24页共24页，计算表格的行数和列数。【代码】Sub计算指定WORD文档中表格行列数()Application.ScreenUpdating=False'关闭屏幕刷新dqM=ThisWorkbook.Path&"成绩表.doc"'带路径的WORD文件名称SetwdWORD=CreateObject("Word.Application")'定义一个Word对象变量SetdkDOC=wdWORD.Documents.Open(

4、dqM)'创建文档对象bgS=dkDOC.Tables.Count'当前文档中的表格总数Forg=1TobgS'循环表格WithdkDOC.Tables(g)'逐个表格计算hs=.Rows.Count'行数ls=.Columns.Count'列数MsgBoxChr(10)&Dir(dqM)&"文档共有表格"&bgS&"个"_&Chr(10)&Chr(10)&"第"&g&"个表格有"&hs&"行"&ls&"列",,"计算WORD表格行列数"'计算信息提示EndWithNextgdkDOC.Close'关闭文档SetdkDOC=Nothing'释放存储空间SetwdWORD=Nothing'释放

5、存储空间Application.ScreenUpdating=False'关闭屏幕刷新EndSub提示：计算行数代码格式——文档对象.表格对象.Rows.Count计算列数代码格式——文档对象.表格对象.Columns.Count上述方法不能计算嵌入式表格的行/列数。VBA在EXCEL中操作WORD表格之五第24页共24页3．选定WORD表格的指定区域⑴选定整个表格【代码】Sub选择WORD文档的指定表格整体()Application.ScreenUpdating=False'关闭屏幕刷新dqM=ThisWorkbook.Path&"成绩表.doc"'带路径的WORD文件名称SetwdWO

6、RD=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.ScreenUp

7、dating=False'关闭屏幕刷新EndSub⑵选定一个单元格【代码】Sub选择WORD表格的第一个单元格()Application.ScreenUpdating=False'关闭屏幕刷新dqM=ThisWorkbook.Path&"成绩表.doc"'带路径的WORD文件名称SetwdWORD=CreateObject("Word.Application")'定义一个Word对象变量SetdkDOC=w