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("

>>阅读原文<<