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

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

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

sub selectalltables（）

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

“確定文檔是否受保護(hù)

如果ActiveDocument.ProtectionType=wdAllowAllyFormFields then

msgbox“文檔已被保護(hù)。此時(shí)不能選擇多個(gè)表！“

exit sub

end if

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

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

誘人的.Range.Editors. add wdeditoreveryone

next

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

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