解决标书的小问题，全选表格清除多余格式！

对于单个表格，通过选中表格内容并设置段落首行缩进为无即可。对于多个表格，需要使用宏代码来全选并设置首行缩进。

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

内容查看

本文隐藏内容仅限注册用户查看，请先登录

仅做为学习使用，请勿使用其他用途，虚拟资源购买后不退款，谨慎购买。