高手帮帮忙，帮我编写个宏，万分感谢

XYUN68ZX

高手帮帮忙在word中编写个宏谢谢，万分感谢

编写宏功能：1.把题中不该换行的地方取消换行。

2.在全文开头加上：

/////批量导入格式2

/////1

3. 在全文结尾加上：

/////end

4.把大题题号和内容（如：“一、单项选择题(单项选择题备选答案中，只有一个符合题意的正确答案。多选、错选、不选均不得分”；“二、多项选择题(多项选择题备选答案中，有两个或两个以上符合题意的正确答案。多选、少选、错选、不选均不得分))换成（“//单项选择题”和“//多项选择题”）

5.把小题号去掉，在小题前插入一行：/////

6.把文中“解题思路”替换为“答案解释”

pipiludaxian

Sub creatformat()
Dim apar As Paragraph
Dim wrd As Range
With ActiveDocument.Content
    .InsertBefore "/////批量导入格式2" & Chr(13) & "/////1" & Chr(13)
    .InsertAfter "/////end"
End With
With ActiveDocument.Content.Find
        .Text = "解题思路"
        .Replacement.Text = "答案解释"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
       .Execute Replace:=wdReplaceAll
End With
For Each apar In ActiveDocument.Paragraphs
    If Left(apar.Range, 2) = "一、" Then
        apar.Range.Delete
        apar.Range.InsertBefore "//单项选择题"
    ElseIf Left(apar.Range, 2) = "二、" Then
        apar.Range.Delete
        apar.Range.InsertBefore "//多项选择题"
    End If
Next apar
For Each apar In ActiveDocument.Paragraphs
         If apar.Range Like "##.*" = True Then
            apar.Range.Characters(1).Delete
            apar.Range.Characters(1).Delete
            apar.Range.Characters(1).Delete
        ElseIf apar.Range Like "#.*" = True Then
            apar.Range.Characters(1).Delete
            apar.Range.Characters(1).Delete
        End If
Next apar
End Sub

zhanglei1371

对上面代码稍作修改：

1. Sub creatformat()
   
2. Dim apar As Paragraph
   
3. Dim wrd As Range
   
4. With ActiveDocument.Content
   
5.     .InsertBefore "/////批量导入格式2" & Chr(13) & "/////1" & Chr(13)
   
6.     .InsertAfter Chr(13) & "/////end"
   
7. End With
   
8. With ActiveDocument.Content.Find
   
9.         .Text = "解题思路"
   
10.         .Replacement.Text = "答案解释"
    
11.         .Execute Replace:=wdReplaceAll
    
12. End With
    
13. ActiveDocument.Content.Find.Execute "([一-﨩])^13([一-止此-﨩\(0-9])", , , 2, , , , , , "\1\2", 2
    
14. For Each apar In ActiveDocument.Paragraphs
    
15.     If Left(apar.Range, 2) = "一、" Then
    
16.         apar.Range.Delete
    
17.         apar.Range.InsertBefore "//单项选择题" + Chr(13)
    
18.     ElseIf Left(apar.Range, 2) = "二、" Then
    
19.         apar.Range.Delete
    
20.         apar.Range.InsertBefore "//多项选择题" + Chr(13)
    
21.     End If
    
22. Next apar
    
23. For Each apar In ActiveDocument.Paragraphs
    
24.          If apar.Range Like "##．*" = True Then
    
25.             apar.Range.Characters(1).Delete
    
26.             apar.Range.Characters(1).Delete
    
27.             apar.Range.Characters(1).Delete
    
28.              apar.Range.InsertBefore "/////" + Chr(13)
    
29.         ElseIf apar.Range Like "#．*" = True Or apar.Range Like "#.*" = True Then
    
30.             apar.Range.Characters(1).Delete
    
31.             apar.Range.Characters(1).Delete
    
32.             apar.Range.InsertBefore "/////" + Chr(13)
    
33.         End If
    
34. Next apar
    
35. End Sub

复制代码

XYUN68ZX

非常感谢大家的鼎力相助，在此万分感谢，我还想问下代码中：ActiveDocument.Content.Find.Execute "([一-﨩])^13([一-止此-﨩\(0-9])", , , 2, , , , , , "\1\2", 2是什么意思