下载此文档

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


文档分类:办公文档 | 页数:约29页 举报非法文档有奖
1/29
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/29 下载此文档
文档列表 文档介绍
在EXCELS用VBA设置 WOR表格常规属性
编辑:madmlwt
•计算WORD文档中的表格个数
【要求】
在EXCEL中用VBA计算指定的WORD文档“”中非嵌入式表 格的个数。
【代码】
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Sub计算 WORD表格个数()
Applicati on .Scree nUpdat ing = False '关闭屏幕刷新
dqM = & "'带路径的 WORD文件名称
Set wdWORD = CreateObject("")'定义一个 Word 对象变

Set dkDOC = n( dqM)'创建文档对象
bgS = '当前文档中的表格总数
'关闭文档
Set dkDOC = Nothing '释放存储空间
Set wdWORD = Nothing '释放存储空间
MsgBox Chr(10) & Dir(dqM) & "文档中共有"& bgS & "个表格!",
"计算WORD表格个数"
Applicati on .Scree nUpdat ing = False '关闭屏幕刷新
End Sub
提示:
嵌入式表格如 WORD文档中插入的EXCEL表格、表格中插入的表格。
计算表格个数的代码格式
上述方法不能计算 WORD文档中的嵌入式表格个数。
•计算WORD文档中各个表格的行/列数
【要求】
在EXCEL中,遍历WORD文档“”中的表格,计算表格的行数 和列数。
【代码】
Sub计算指定 WORD文档中表格行列数()
Applicati on .Scree nUpdat ing = False '关闭屏幕刷新
dqM = & "'带路径的 WORD文件名称
Set wdWORD = CreateObject("")'定义一个 Word 对象变
Set dkDOC = n( dqM)'创建文档对象
bgS = nt'当前文档中的表格总数
For g = 1 To bgS '循环表格
With (g)'逐个表格计算
hs = . '行数
Is = .'列数
MsgBox Chr(10) & Dir(dqM) & "文档共有表格"& bgS & "
个"
& Chr(10) & Chr(10) & "第"& g & "个表格有"
& hs & "行"& ls & "列",,"计算WORD表格行列数"计算信息提示
End With
Next g
'关闭文档
Set dkDOC = Nothing '释放存储空间
Set wdWORD = Nothing '释放存储空间
Applicati on .Scree nUpdat ing = False '关闭屏幕刷新
End Sub
提示:
计算行数代码格式 文档对象■
计算列数代码格式 文档对象■
上述方法不能计算嵌入式表格的行/列数。
选定WORD表格的指定区域
⑴选定整个表格
【代码】
Sub选择WORD文档的指定表格整体()
Applicati on .Scree nUpdat ing = False '关闭屏幕刷新
dqM = & "'带路径的 WORD文件名称
Set wdWORD = CreateObject("")'定义一个 Word 对象变
Set dkDOC = n( dqM)'创建文档对象 = True '窗口可见
'⑴.Select'选择整个表格 ⑴. 选择整个表格 ' '关闭新建文档窗口
Set dkDOC = No

在EXCEL中用VBA处理WORD表格常规属性 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数29
  • 收藏数0 收藏
  • 顶次数0
  • 上传人dlmus1
  • 文件大小39 KB
  • 时间2020-11-23