在ECEL中用VBA处理WORD表格常规属性.pdfVIP

在 EXCEL中用 VBA设置 WORD表格常规属性 编辑： madmlwt 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 文档中各个表格的行 /列数 【要求】 在 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 = .Rows.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 = Nothing 释放存储空间 Application.ScreenUpdating = False 关闭屏幕刷新 End Sub 提示： 计算行数代码格式—— 文档对象 .表格对象 .Rows.Count 计算列数代码格式——