导航:首页 > 文件教程 > wordrangetable

wordrangetable

发布时间:2024-04-25 22:33:56

1. word VBA 的主要对象体系结构是怎样的编辑中常用对象有哪些

Word VBA 中的对象库比较庞大,建议使用时通过联机的开发人员帮助文档来获取相关对象的体系结构(对象、成员、属性、方法):

Application、document、word、range、Row对象是常用的对象

2. 用VBA批量处理word 中的表格:将表格内容调整为上下,左右居中,表格设置为根据窗口调整表格

你把
For Each oTable In oDoc.Tables
oTable.Range.Font.Name = "黑体" ' 改变表格字体为“黑体”
oTable.Range.Font.Size = 10.5 ' 改变表格字号为12磅
Next
改为:
For Each oTable In oDoc.Tables
oTable.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
oTable.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
Next

3. 一个很大的Word文档中,里面文字、多个表格并存。如何通过宏的编辑,一次性选中所有的表格

Sub SelectAllTables()
Dim tempTable As Table

Application.ScreenUpdating = False

'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True

End Sub

阅读全文

与wordrangetable相关的资料

热点内容
qq浏览器会分享wifi吗 浏览:120
zip文件分成3个 浏览:261
txt的文件1m是多少个字 浏览:642
易班下载文件在哪里 浏览:175
怎么获得有效电脑网络ip地址 浏览:471
怎么解决网站痛点 浏览:800
iphone4ios71降级613 浏览:650
garageband升级 浏览:689
科学linux 浏览:447
哪里的app理财好 浏览:799
linux下线程的创建线程数 浏览:804
怎么改变文件大小 浏览:574
飞雪流水软件注册破解工具 浏览:814
csgo比赛数据哪里看 浏览:961
已越狱iphone4升级ios7 浏览:607
微信分享但不是微商 浏览:877
git子模块如何获取最新数据 浏览:446
java项目ppt模板下载不了 浏览:493
不常用的app怎么取消 浏览:230
js多点滑动选取范围 浏览:756

友情链接