VBA 在EXCEL 中操作WORD 表格之五 第 1 页 共 25 页 在EXCEL 中用VBA 设置WORD 表格常规属性 编辑：madmlw t 1．计算WORD 文档中的表格个数 【要求】 在EXCEL 中用VBA 计算指定的WORD 文档“成绩表.doc”中非嵌入式表格的个数。 【代码】 Sub 计算WORD 表格个数() Application.ScreenUpdating = False '关闭屏幕刷新 dqM = ThisWorkbook.Path & "\成绩表.doc" '带路径的WORD 文件名称 Set wdWORD = CreateObject("Word.Application") '定义一个Word 对象变量 Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象 bgS = dkDOC.Tables.Count '当前文档中的表格总数 dkDOC.Close '关闭文档 Set dkDOC = Nothing '释放存储空间 Set wdWORD = Nothing '释放存储空间 MsgBox Chr(10) & Dir(dqM) & " 文档中共有 " & bgS & " 个表格！", , "计算WORD 表格个数" Application.ScreenUpdating = False '关闭屏幕刷新 End Sub 提示： 嵌入式表格如WORD 文档中插入的EXCEL 表格、表格中插入的表格。 计算表格个数的代码格式——文档对象. Tables.Count 上述方法不能计算WORD 文档中的嵌入式表格个数。 2．计算WORD 文档中各个表格的行/列数 【要求】 VBA 在EXCEL 中操作WORD 表格之五 第 2 页 共 25 页 在EXCEL 中，遍历WORD 文档“成绩表.doc”中的表格，计算表格的行数和列数。 【代码】 Sub 计算指定WORD 文档中表格行列数() Application.ScreenUpdating = False '关闭屏幕刷新 dqM = ThisWorkbook.Path & "\成绩表.doc" '带路径的WORD 文件名称 Set wdWORD = CreateObject("Word.Application") '定义一个Word 对象变量 Set dkDOC = wdWORD.Documents.Open(dqM) '创建文档对象 bgS = dkDOC.Tables.Count '当前文档中的表格总数 For g = 1 To bgS '循环表格 With dkDOC.Tables(g) '逐个表格计算 hs = .Row s.Count '行数 ls = .Columns.Count '列数 MsgBox Chr(10) & Dir(dqM) & " 文档共有表格 " & bgS & " 个" _ & Chr(10) & Chr(10) & "第 " & g & " 个表格有 " & hs & " 行 " & ls & " 列", , "计算WORD 表格行列数" '计算信息提示 End With Next g dkDOC.Close '关闭文档 Set dkDOC = Nothing '释放存储空间 Set wdWORD...
VIP
