简化代码

ke3088

以下是先录制再修改的代码，目的是将有图片且段末有分隔符的段落设置为单倍行距：

Sub 全文查找图片()
    With ActiveDocument.Content.Find
        .ClearFormatting '删除格式限定
        .Text = "^g^?^12" '被查找或替换的文本
        .MatchWildcards = False '通配符：True 包含，False 不包含
         With .Replacement
              .Text = "" '替换后的文本
              .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle '单倍行距
         End With
        .Execute Replace:=wdReplaceAll
    End With
Sub

现向各位大神求助简化以上代码，谢谢！

413191246se

1. Sub test全文查找图片_标准写法()
   
2.     With Selection
   
3.         .HomeKey Unit:=wdStory
   
4.         With .Find
   
5.             .ClearFormatting
   
6.             Do While .Execute(findtext:="^g*^12", MatchWildcards:=True, Forward:=True)
   
7.                 With .Parent
   
8.                     .Expand Unit:=wdParagraph
   
9.                     .Font.Color = wdColorPink '粉红（此语句可删除）
   
10.                     .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle '单倍行距
    
11.                     .Collapse Direction:=wdCollapseEnd '或：.EndKey Unit:=wdLine
    
12.                 End With
    
13.             Loop
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Sub test全文查找图片_简写()
    
18.     With Selection
    
19.         .HomeKey 6
    
20.         With .Find
    
21.             .ClearFormatting
    
22.             Do While .Execute("^g*^12", , , 1, , , 1)
    
23.                 With .Parent
    
24.                     .Expand 4
    
25.                     .Font.Color = wdColorPink '粉红（此语句可删除）
    
26.                     .ParagraphFormat.Space1 '单倍行距
    
27.                     .Collapse 0 '或：.EndKey 5
    
28.                 End With
    
29.             Loop
    
30.         End With
    
31.     End With
    
32. End Sub

复制代码