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("输入数据应为数值")

end if

    MsgBox("所有表格的第"&intCol&"列已删除。")

end sub

如果按了ALT+F11没有反应

打开文件-选项-自定义功能区，把开发工具勾上，再在开发工具里点一下“Visual Basic”也一样