分节符初始化_多表格大文档（宏）

413191246se

* 在排版处理多表格大文档的过程中，虽然这样的机会不多，但很可能会遇到过几次，就是将各种分节符、分页符和分栏符和手动换行符等各种字符全部替换为空或段落标记后，再次检测还会发现仍有分节符存在，删不干净。我也遇到过几次；昨晚，本坛网友“晨晓之黎”发送给我的一个文档，即是如此。说到底，还是文档比较复杂，分节多，表格多。经过试验，发现全文查找分节符并替换为段落标记后，分节符只剩一个了，文档现在的状态是未分节，可以排版了。
   
* 还有，多表格、大文档还存在一个严重的《在某些节中……相对于页面宽度过大！》的严重错误，经过探索，将全文一栏分为两栏，再分回一栏，这样就正常了。这两个特点结合起来，对付大文档就好办了。
   
* 在处理多表格、大文档时，先用本宏解决分节符及不能设置页面设置的情况后，再应用我的《公文排版》宏即可正常排版了！请各位朋友们试用下面的宏：

1. Sub 分节符初始化_多表格大文档()
   
2.     With ActiveDocument
   
3.         '回车符/手动换行符/分节符/分页符/分栏符=>段落标记
   
4.         .Content.Find.Execute "[^13^l^12^n]", , , 1, , , , , , "^p", 2
   
5. 
   
6.         '继续删除分节符
   
7.         With .Content.Find
   
8.             .ClearFormatting
   
9.             .Text = "^b"
   
10.             .Forward = True
    
11.             .MatchWildcards = False
    
12.             Do While .Execute
    
13.                 With .Parent
    
14.                     .Text = vbCr
    
15.                     .Start = .End
    
16.                 End With
    
17.             Loop
    
18.         End With
    
19. 
    
20.         '《在某些节中……相对于页面宽度过大！》分栏纠错！
    
21.         With .PageSetup.TextColumns
    
22.             .SetCount NumColumns:=2
    
23.             .EvenlySpaced = True
    
24.             .SetCount NumColumns:=1
    
25.         End With
    
26. 
    
27.         MsgBox "文档共 " & .Sections.Count & " 节！可以正常排版了！", 0 + 48
    
28.     End With
    
29. End Sub

复制代码

文化属性666

收藏中……