wordrangetable

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