word如何一次性选中一列

1.在word中怎么一次选中所有表格

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

Sub SelectAllTables()

Dim tempTable As Table

Application.ScreenUpdating = False

2. '判断文档是否被保护

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文档已保护，此时不能选中多个表格！"

Exit Sub

End If

3.'删除所有可编辑的区域

ActiveDocument. wdEditorEveryone

4.'添加可编辑区域

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

Next

'选中所有可编辑区域

ActiveDocument. wdEditorEveryone

'删除所有可编辑的区域

ActiveDocument. wdEditorEveryone

Application.ScreenUpdating = True

End Sub

2.word批量选择

方法：

1. 按Ctrl+Shift+F9，把所有的网址全部取消超链接，然后Ctrl+A全选，把所有的文字都设置成黑色

2. 使用通配符替换，查找表达式：http*.*//[0-9a-zA-Z\\!\@\#\$\%\^\&\*\-_\+\=\;\?]@

3. 替换表达式是： ^&

4. 在替换表达式的框中，设置样式-字体-颜色-红色，然后全部替换

5. 选择一处网址，然后使用选择相似文本功能即可一次性批量选择（必须Word2007及以上版本）

3.如何一次性选定Word文档中的表格

用宏一次性选定文中的所有表格：

Sub 宏1()

Dim mytable As Table

Application.ScreenUpdating = False

For Each mytable In ActiveDocument.Tables

mytable.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument. (wdEditorEveryone)

ActiveDocument. (wdEditorEveryone)

Application.ScreenUpdating = True

End Sub