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