巨大扫描文本——（按节）拆分和合并（宏）

413191246se

    前几天，给别人扫描了一本书（两三本杂志厚），文字共有 88400 多字，但用我的《普通》宏排版时，卡壳了！页面设置宏 PaperSetup 停工，提示“列宽不能少于 1.27 厘米“，当时不明白什么意思，后来查网络，明白是有些”节“的左右宽度超过 10厘米，版心宽度就小于 1.27 厘米了，用 VBA 调整页面边距无望。

    反复冥思苦想，终于想出来一招：按节拆分，再合并，变成一节，就能设置页边距，进而用宏来排版，但发现现在的宏排版也不行了，因为文本太巨大，有文字、表格、域、文本框等，反正是混乱至极。

    下面的 VBA 宏，暂时只能将巨大文本删除所有 分节符、分页符、分栏符，如果最后仍然有 分节符 存在，则按节拆分，拆分后马上合并到新建文档中（默认A4纸张），排版代码——暂时没有，须手工自行排版。

    * 用法：打开一个巨大文本，应用《aaac扫描文本排版》宏，但此宏现在仅能拆分/合并，无法排版。
    * 注意：如果是小文档，还请各位沿用我的 2007/2003 各自的《集成版》来排版。

1. Sub aaac扫描文本排版()
   
2.     Dim x&
   
3. 
   
4.     删除分节符
   
5.     删除分页符分栏符
   
6. 
   
7. '文档分节数
   
8.     x = ActiveDocument.Sections.Count
   
9.     MsgBox "当前文档共有 " & x & " 节！", 0 + 16
   
10. 
    
11.     If x = 1 Then End
    
12. 
    
13. '拆分/合并
    
14.     SplitMergeDocument
    
15. 
    
16. End Sub
    
17. Sub 删除分节符()
    
18. 'TEST-OK/分节符未完全删除！
    
19.     ActiveDocument.Content.Find.Execute "^b", , , 0, , , , , , "", 2
    
20. End Sub
    
21. Sub 删除分页符分栏符()
    
22. 'TEST-OK
    
23.     ActiveDocument.Content.Find.Execute "[^m^n]", , , 1, , , , , , "", 2
    
24. End Sub
    
25. Sub 文档分节数()
    
26.     MsgBox ActiveDocument.Sections.Count
    
27. End Sub
    
28. Sub 分页符转分节符()
    
29.     With ActiveDocument.Content.Find
    
30.         .ClearFormatting
    
31.         .Text = "^m"
    
32.         .Forward = True
    
33.         .MatchWildcards = False
    
34.         Do While .Execute
    
35.             With .Parent
    
36.                 .Delete
    
37.                 .InsertBreak 2
    
38.             End With
    
39.         Loop
    
40.     End With
    
41. End Sub
    
42. Sub 分栏符转分节符()
    
43.     With ActiveDocument.Content.Find
    
44.         .ClearFormatting
    
45.         .Text = "^n"
    
46.         .Forward = True
    
47.         .MatchWildcards = False
    
48.         Do While .Execute
    
49.             With .Parent
    
50.                 .Delete
    
51.                 .InsertBreak 2
    
52.             End With
    
53.         Loop
    
54.     End With
    
55. End Sub
    
56. Sub SplitMergeDocument()
    
57. '拆分文档/按节拆分
    
58.     Dim s As Section, n&, doc As Document
    
59.     With ActiveDocument
    
60.         For Each s In .Sections
    
61.             s.Range.Copy
    
62.             Set doc = Documents.Add(Visible:=False)
    
63.             n = n + 1
    
64.             With doc
    
65.                 .Content.Paste
    
66.                 .Range(Start:=.Content.End - 2, End:=.Content.End).Delete
    
67.                 .SaveAs FileName:="S" & n
    
68.                 .Close
    
69.             End With
    
70.         Next
    
71.         .Close 0
    
72.     End With
    
73. 
    
74. '合并文档
    
75.     Dim i&
    
76.     Documents.Add
    
77.     For i = 1 To n
    
78.         Selection.InsertFile FileName:="S" & i & ".doc"
    
79.     Next i
    
80.     MsgBox "处理完毕！尚未存盘！", 0 + 16
    
81.     If ActiveDocument.Sections.Count > 1 Then MsgBox "当前文档仍有多节！", 0 + 16
    
82. End Sub

复制代码

betelehe

老师，您的集成版宏为啥不能排大文档，可以解释一下原因吗

413191246se

我也不清楚，太大了，反应有问题，总像是在分页。

xkqtdzj

betelehe 发表于 2019-6-19 08:49
老师，您的集成版宏为啥不能排大文档，可以解释一下原因吗

俺目前用的办法：拆分成一个个的子文档——＞批处理排版——＞合并成一个文档。
集成版中的合并和独立的合并工具还有点差别，独立工具一般能保持文档格式不变。集成版中的合并功能文档与合并前的文档常会变化。我一般用独立工具完成。

413191246se

前几天，我有一个大文档，删除所有分节符、分页符、分栏符后，发现还有 10 个分节符，但查找到后，却又看不到分节符在哪里，百思不得其解，后来想到按节拆分，然后又合并为一节（就是不分节），再排版可能会好的。但大文档可能由于分页原因，或宏算法不好，有时不能顺利排版。保持格式有些难，暂时不考虑。