我想用vb語句調(diào)整word中所有表格的格式，求補充代碼？ALT F8，打開“宏”對話框并創(chuàng)建一個名為selectalltables的宏。代碼如下：sub selectalltables（）dim te

我想用vb語句調(diào)整word中所有表格的格式，求補充代碼？

ALT F8，打開“宏”對話框并創(chuàng)建一個名為selectalltables的宏。代碼如下：

sub selectalltables（）

dim testable as table應(yīng)用程序屏幕更新=False

“確定文檔是否受保護

如果ActiveDocument.ProtectionType=wdAllowAllyFormFields then

msgbox“文檔已被保護。此時不能選擇多個表！“

exit sub

end if

”刪除所有可以編輯的區(qū)域ActiveDocument.DeleteAllEditableRangesWdeditoreveryone

為中的每個可編輯區(qū)域添加一個可編輯區(qū)域ActiveDocument.表格

誘人的.Range.Editors. add wdeditoreveryone

next

“選擇所有可編輯區(qū)域ActiveDocument.SelectAllEditableRangesWdeditoreveryone

“刪除所有可以編輯的區(qū)域ActiveDocument.DeleteAllEditableRanges編輯每個人應(yīng)用程序屏幕更新=保存后，選擇加載宏。