如何统一设置word里面所有表格的边框和底纹
发布网友
发布时间：2022-04-23 04:30
共3个回答
热心网友
时间：2022-05-03 03:34
要统一设置word里面所有表格的边框和底纹，以word2003为例，具体步骤如下：
打开word2003，将鼠标放在表格上面，会看到表格的左上角出现一个十字方框的图标，点击那个图标即可选中整个表格；
要选中多个表格，可以先选中第一个表格后，按住键盘上的“Ctrl”键后，再点击选中其他的表格，这样逐一点击，直到全部表格同时选中；
特定的表格选中以后，点击菜单栏里的“格式”，选择“边框和底纹”；
打开“边框和底纹”界面后，根据个人需要来设置，设置好后，点击“确定”；
确定之后，即可看到那些表格都同时被设置成特定的样子了。
热心网友
时间：2022-05-03 04:52
word2007中，按Ctrl键分别单击所有表格的左上角双十字箭头同时选中所有表格-----右击------边框和底纹------分别设置边框和底纹（边框进行设置、底纹进行填充）------应用于：表格----确定即可。追问酱紫啊，有没有更方便一些的办法？
追答操作不麻烦，选中----设置即可。估计没有更简单的办法。
热心网友
时间：2022-05-03 06:26
1 将下面的脚本复制
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
2 word---视图---宏----查看宏----输入宏名：SelectAllTables----点击创建
3 将脚本编辑窗口中的默认代码删掉，粘贴1步复制的脚本,保存并关闭
4 word---视图---宏----查看宏----运行刚创建的宏，在word中查看，所有表格已为选中状态。
