在所有的句号、顿号、分行符、分段符前面加上它们所在的页数

oersun

在所有的句号、顿号、分行符、分段符前面加上它们所在的页数

413191246se

* 楼主，你这样做是为了什么？不懂。请问你会不会用 VBA 宏？

oersun

VBA懂点皮毛。写了好几次，都不成功

413191246se

1. Sub test()
   
2.     With ActiveDocument.Content.Find
   
3.         .Parent.InsertAfter Text:=vbCr
   
4.         .ClearFormatting
   
5.         .Text = "[。、^13^11]"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 .InsertBefore Text:=.Information(wdActiveEndPageNumber)
    
11.                 .Font.Color = wdColorRed '本行代码可删除
    
12.                 .Start = .End
    
13.                 If .Paragraphs(1).Range.End = ActiveDocument.Content.End Then Exit Do
    
14.             End With
    
15.         Loop
    
16.         .Parent.Paragraphs.Last.Range.Delete
    
17.     End With
    
18.     MsgBox "处理完毕！！！", 0 + 48
    
19. End Sub

复制代码