导航:首页 > 文件教程 > 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相关的资料

热点内容
飞常准的数据来自哪里 浏览:844
ug100如何编程画线 浏览:870
文件夹999找不到 浏览:145
win1014393最新版本号 浏览:100
java基本类型大小 浏览:516
word2007不能插入页码 浏览:968
vb读取文件并判断 浏览:6
php图片和程序分离 浏览:412
安卓面试非计算机专业 浏览:228
u盘的光盘文件怎么驱动 浏览:34
如何锁定c盘不下文件 浏览:359
浙江推广网站建设怎么做 浏览:478
word文件只有10页怎么增加 浏览:921
itunes下载的系统在哪个文件夹 浏览:605
个性化linux全名要求 浏览:40
数据表格制图小红点如何去掉 浏览:244
查询iphone版本信息失败怎么办 浏览:978
电脑版微信下载的文件保存在哪里 浏览:367
linuxsocket转发 浏览:32
迷你兔数据恢复软件可免费恢复多少 浏览:139

友情链接