vba 正则替换 怎么样才不会破坏原有格式

Zalpha

vba 正则替换 怎么样才不会破坏原有格式

chenjy267

1. Set rng = ActiveDocument.Content
   
2. With CreateObject("vbscript.regexp")
   
3.         .Pattern = "titleb\s.*?下载PDF版）"
   
4.         .Global = True: .MultiLine = True
   
5.         'c = .Execute(rng).Count
   
6.         For Each mt In .Execute(rng)
   
7.             n = mt.Length
   
8.             If n < 200 Then
   
9.               With rng.Find
   
10.                 .MatchWildcards = False
    
11.                 .Text = mt
    
12.                 .Execute ReplaceWith:="titleb", Replace:=wdReplaceAll
    
13.                 Savetime = Timer
    
14.                   While Timer < Savetime + 0.5
    
15.                     DoEvents
    
16.                   Wend
    
17.               End With
    
18.             End If
    
19.         Next
    
20.     End With

复制代码

Zalpha

chenjy267 发表于 2022-8-24 16:50

请教一下 如果是$1 之类