如何把文件01中内容，按照文件02的格式排版

junguowang

如何把文件01中内容，按照文件02的格式排版，01中有近800页，需要vba求助。

413191246se

* 请备份后试用下面的宏，并请耐心等待，直到出现“Completed!”(完成)提示。。。

1. Sub aaaa_Ancient_Chinese()
   
2.     Dim i&, j&, s$, t$, doc As Document
   
3.     Set doc = ActiveDocument
   
4.     With Selection
   
5.         .HomeKey 6
   
6.         Do
   
7.             If i = 4 Then .InsertBefore Text:=" ": .MoveRight: s = s & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
   
8.             If i = 8 Then
   
9.                 .InsertParagraph
   
10.                 .Paragraphs(1).Range.InsertBefore Text:=s & vbCr
    
11.                 .MoveRight
    
12.                 i = 0
    
13.                 s = ""
    
14.             End If
    
15.             .MoveRight 1, 1, 1
    
16.             i = i + 1
    
17.             t = .Text
    
18.             s = s & t
    
19.             .Cut
    
20.             If .Text = " " Then .Delete
    
21.             .MoveRight
    
22.         Loop Until .End = doc.Content.End - 1
    
23.         .HomeKey 6
    
24.     End With
    
25.     MsgBox "Completed!", 0 + 48
    
26. End Sub

复制代码

junguowang

自己顶下，等待指导

junguowang

感谢，非常感谢，好好学习。

wdpfox

感谢楼主分享，支持一下！

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）