表格框线

小佳aa

以下问题是在运行一个选择所有表格的宏之后出现的：
代码如下

1. Sub SelectAllTables()
   
2.     Dim tempTable As Table
   
3.    
   
4.     Application.ScreenUpdating = False
   
5.    
   
6.     '判断文档是否被保护
   
7.     If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
   
8.         MsgBox "文档已保护，此时不能选中多个表格！"
   
9.         Exit Sub
   
10.     End If
    
11.     '删除所有可编辑的区域
    
12.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
13.     '添加可编辑区域
    
14.     For Each tempTable In ActiveDocument.Tables
    
15.         tempTable.Range.Editors.Add wdEditorEveryone
    
16.     Next
    
17.     '选中所有可编辑区域
    
18.     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    
19.     '删除所有可编辑的区域
    
20.     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
21.    
    
22.     Application.ScreenUpdating = True
    
23.    
    
24. End Sub

复制代码

1、如图1，表格的下框线不显示了，设置段落行距不顶用，然后把光标定位在下一行的开始，回车之后，再退格，就显示出来了。这是为什么？而且很多表格出现这问题，然后把word文档另存为之后就又恢复正常了。

2、如图2，原来是双底框线的，显示单底，而设置边框里还是显示双底？

dafanshu1

我有时也遇到此类问题，执行完宏后某些表格的底部框线会异常，打印预览一下框线还是正常的，不用理它，刷新一下或重新打开就恢复了。

小佳aa

dafanshu1 发表于 2016-3-31 16:47
我有时也遇到此类问题，执行完宏后某些表格的底部框线会异常，打印预览一下框线还是正常的，不用理它，刷新 ...

好滴，那我就放心了