Word文中有较多表格,且又未统一设置样式,需要一个个表选中了修改,这里,为大家提供一个VBA实现批量选中全部表格的方法,word原生功能。
在word中使用使用宏VBA,实现批量转PDF:
1、在Word中,打开你需要处理的doc文档;
2、按住键盘ALT+F11,调出VBA窗口;
3、在出现的VBA窗口中,粘贴批量转PDF代码,完整VB代码在文末;
补充:没有任何宏,只看到灰色一片,需要在左边的工程里面“Normal”,展开后的“模块”节点下,鼠标右键,选择“插入-模块”,然后将代码复制进去即可。
Sub 表格()
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
4、把键盘光标放到任意一行代码上,按键盘F5运行;
5、运行后,切换回doc文档窗口,查看全部表格已经被选中。
6、选择右键表格属性,进行修改,修改后保存即可。