还在一个表格一个表格调格式吗，亲！不如一键选中全部word中的表格吧

lljchs

ALT+F8，打开宏对话框，创建名为SelectAllTables的宏，代码如下：

Sub SelectAllTables()

    Dim tempTable As Table   

    Application.ScreenUpdating = False   
    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   
    Application.ScreenUpdating = True
   
End Sub

QQ截图20121217213729.png

QQ截图20121217213930.png

wtsrjyz

首先支持一下，非常感谢！！很好，感谢您辛苦了！

风缘

对报告表该咋处理？表套表。。。

suyanrong

首先支持一下，非常感谢！！呜啊  不错呀 很好的方法

剑魄棋魂

很好 不错的方法

suyu9003

试试看效果！

ykang88

非常好用，谢谢！

lljchs919988626

学习学习学习

yyssmmwhn

创建后的应用该讲下

handy421

这个不错！！！顶LZ