一键选定表外文字（宏）for Word2003VBA

413191246se

* 经 ming0018 老师提示，不断尝试，终于达到目的，可以一键选定表外文字；但前期预处理工作需要自己搞，比如：替换回车符/手动换行符，表格取消文字环绕，删除空行空格等。
* 方法一3次测试时间为：.39/.34/.43秒；方法二3次测试时间为：.14/.23/.23秒。选后执行《正文样式》宏。

1. Sub 选定表外文字_方法一()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         For Each i In .Paragraphs
   
5.             If Not i.Range.Information(12) Then i.Range.Editors.Add -1
   
6.         Next
   
7.         .SelectAllEditableRanges -1
   
8.         .DeleteAllEditableRanges -1
   
9.     End With
   
10. End Sub
    
11. Sub 选定表外文字_方法二()
    
12.     Dim j&, k&
    
13.     With ActiveDocument
    
14.         If .Tables.Count = 0 Then
    
15.             .Select
    
16.         Else
    
17.             If Not .Paragraphs(1).Range.Information(12) Then .Range(Start:=0, End:=.Tables(1).Range.Start).Editors.Add -1
    
18.             k = .Tables.Count
    
19.             For j = 1 To k
    
20.                 If j = k Then Exit For
    
21.                 .Range(Start:=.Tables(j).Range.End, End:=.Tables(j + 1).Range.Start).Editors.Add -1
    
22.             Next j
    
23.             .Range(Start:=.Tables(k).Range.End, End:=.Content.End).Editors.Add -1
    
24.             .SelectAllEditableRanges -1
    
25.             .DeleteAllEditableRanges -1
    
26.         End If
    
27.     End With
    
28. End Sub
    
29. Sub 正文样式()
    
30.     With Selection
    
31.         .ClearFormatting
    
32.         CommandBars.FindControl(ID:=122).Execute
    
33.         CommandBars.FindControl(ID:=123).Execute
    
34.         With .Font
    
35.             .Name = "仿宋_GB2312"
    
36.             .Size = 16
    
37.             .Color = wdColorBlue
    
38.             .Kerning = 0
    
39.             .DisableCharacterSpaceGrid = True
    
40.         End With
    
41.         With .ParagraphFormat
    
42.             .LineSpacing = LinesToPoints(1.5)
    
43.             .CharacterUnitFirstLineIndent = 2
    
44.             .AutoAdjustRightIndent = False
    
45.             .DisableLineHeightGrid = True
    
46.         End With
    
47.     End With
    
48. End Sub

复制代码

413191246se

补充说明：方法一是采用“循环遍历段落法”，要循环所有段落，包括表格中的段落，所以慢；方法二是采用“区域处理法（表格间文字区域）”，根本不进表格，只处理表间文字区域，所以较快；建议大家采用方法二，但方法一的好处是代码较少。

ming0018

方法二好！！！

ming0018

413191246se 发表于 2018-11-20 00:59
补充说明：方法一是采用“循环遍历段落法”，要循环所有段落，包括表格中的段落，所以慢；方法二是采用“区 ...

1. Sub 选定表外文字_方法二()
   
2.     Dim doc As Document, j&, k&
   
3.     t = Timer: Set doc = ActiveDocument
   
4.     With doc
   
5.         .DeleteAllEditableRanges -1
   
6.         If .Tables.Count = 0 Then
   
7.             .Select
   
8.         Else
   
9.             If Not .Tables(1).Range.Start = .Content.Start Then .Range(0, .Tables(1).Range.Start).Editors.Add -1
   
10.             'If Not .Paragraphs(1).Range.Information(12) Then .Range(Start:=0, End:=.Tables(1).Range.Start).Editors.Add -1
    
11.             k = .Tables.Count
    
12.             For j = 1 To k
    
13.                 If j = k Then Exit For
    
14.                 .Range(.Tables(j).Range.End, .Tables(j + 1).Range.Start).Editors.Add -1
    
15.             Next j
    
16.             .Range(.Tables(k).Range.End, .Content.End).Editors.Add -1
    
17.             .SelectAllEditableRanges -1
    
18.             .DeleteAllEditableRanges -1
    
19.         End If
    
20.     End With
    
21.     Debug.Print Timer - t
    
22. End Sub
    

复制代码

ming0018

方法二我稍微改了一点点。因为我不想用Information，处理大量数据这东西有点拖速度。

413191246se

谢谢 ming0018 老师！——本帖代码我不打算使用，我还是使用我的区域选定后用正文样式，也不太慢，比较可靠，这个 Editor 感觉不太可靠。

wdpfox

j&, k&是什么意思？知道了。