文档中只保留部分 的VBA程序

jinsha2002

我的要求：在文档中只保留viewthread.php?tid=5603713 这种形式，但数字是任意7位数

          其余的文字全部清除

先谢

jinsha2002

viewthread.php?tid=^#^#^#^#^#^#^#

用以上只能查找 但不知怎么清除不要的文字

jinsha2002

1. Sub Macro1()
   
2. '
   
3. 1:
   
4.    With Selection.Find
   
5.     .Forward = True
   
6.     .Wrap = wdFindStop
   
7.     .Text = "viewthread.php?tid=^#^#^#^#^#^#^#"
   
8.     .Execute
   
9.    End With
   
10.    
    
11.     Selection.MoveRight Unit:=wdCharacter, Count:=1
    
12.     Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend
    
13.     Selection.Cut
    
14.     Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    
15.     Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
16.     Selection.PasteAndFormat (wdPasteDefault)
    
17.     Selection.TypeParagraph
    
18.    
    
19.    i = i + 1
    
20.    If i = 50 Then Exit Sub
    
21.    GoTo 1
    
22.    
    
23. End Sub

复制代码

录了一个，但要人干预
请哪朋友　改一下

jinsha2002

上个附件