word裏有N個表格，如何快速刪除全部表格裏的某一列

按ALT+F11,輸入以下內容，按F5執行即可。 sub test() intCol=InputBox("要刪除所有表格的哪一列？注意，刪除後無法撤銷。") If IsNumeric(intCol) Then     for i=1 to Tables.Count         Tables(i).Columns(intCol).Delete     Next Else     MsgBox("

>>阅读原文<<