vb编程word模板 我想用vb语句调整word中所有表格的格式，求补充代码？

我想用vb语句调整word中所有表格的格式，求补充代码？ALT F8，打开“宏”对话框并创建一个名为selectalltables的宏。代码如下：sub selectalltables（）dim te

我想用vb语句调整word中所有表格的格式，求补充代码？

ALT F8，打开“宏”对话框并创建一个名为selectalltables的宏。代码如下：

sub selectalltables（）

dim testable as table应用程序屏幕更新=False

“确定文档是否受保护

如果ActiveDocument.ProtectionType=wdAllowAllyFormFields then

msgbox“文档已被保护。此时不能选择多个表！“

exit sub

end if

”删除所有可以编辑的区域ActiveDocument.DeleteAllEditableRangesWdeditoreveryone

为中的每个可编辑区域添加一个可编辑区域ActiveDocument.表格

诱人的.Range.Editors. add wdeditoreveryone

next

“选择所有可编辑区域ActiveDocument.SelectAllEditableRangesWdeditoreveryone

“删除所有可以编辑的区域ActiveDocument.DeleteAllEditableRanges编辑每个人应用程序屏幕更新=保存后，选择加载宏。