如何在文档中搜索特殊段落，并更改格式

飞驰的椒麻鸡

如何在文档试卷中 搜索如下文字，并实现宋体,黑色,加粗,首行缩进2个字符,1.5倍行距
一、单项选择题(本题型共12小题，每小题2分，共24分。每小题只有一个正确答案，请从每小题的备选答案中选出一个你认为正确的答案，用鼠标点击相应的选项。)

二、多项选择题(本题型共10小题，每小题2分，共20分。每小题均有多个正确答案，请从每小题的备选答案中选出你认为正确的答案，用鼠标点击相应的选项。每小题所有答案选择正确的得分。不答、错答、漏答均不得分。)

三、计算分析题(本题型共2小题，每题10分，共20分。其中一道小题可以选用中文或英文解答，请仔细阅读答题要求。如使用英文解答，须全部使用英文，答题正确的，增加5分。本题型最高得分为25分。答案中的金额单位以万元表示，涉及计算的，要求列出计算步骤。)

四、综合题(每题18分，共2题，共36分。答案中的金额单位以万元表示，涉及计算的，要求列出计算步骤。)

飞驰的椒麻鸡

跪求，在线等

413191246se

楼主，我的《Word2007/Word2003VBA自动排版宏》，最近一直在第 1 页，不会用宏的只要看说明，也会用的，你怎么没用它们啊？用里面的《公文》排版即可，只须按 F8；另外，可以自己按 ALT+F11键修改“黑体”为“宋体”的。——为什么不用呢？

飞驰的椒麻鸡

413191246se 发表于 2019-6-14 05:46
楼主，我的《Word2007/Word2003VBA自动排版宏》，最近一直在第 1 页，不会用宏的只要看说明，也会用的，你 ...

好的 。老大 我这边乌鲁木齐，那个附件下不下来，你懂得。我QQ 2937565683@QQ.COM,能发个我么，非常感谢，我试试 不动的 我问你

飞驰的椒麻鸡

Sub 宏3()
'
' 宏3 宏
'
'
    CommandBars("Navigation").Visible = False
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 12
        .Bold = True
    End With
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpace1pt5
        .FirstLineIndent = CentimetersToPoints(0.35)
        .CharacterUnitFirstLineIndent = 2
        .WordWrap = True
    End With
    With Selection.Find
        .Text = _
            "一、单项选择题(本题型共24小题，每小题l分，共24分。每小题只有一个正确答案，请从每小题的备选答案中选出一个你认为正确的答案，用鼠标点击相应的选项。)"
        .Replacement.Text = _
            "一、单项选择题(本题型共24小题，每小题l分，共24分。每小题只有一个正确答案，请从每小题的备选答案中选出一个你认为正确的答案，用鼠标点击相应的选项。)"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub




这个是我用宏录制了一段代码，如何用IF语句实现，四种题型一次性替换呢

小花鹿

413191246se

楼主，我发给你的邮件收到没有？不用自己折腾了，我早折腾多遍了，都是 千锤百炼 的产物。只须用我的《公文》热键：F8，或《普通》热键：F7 排版即可。

sylun

如果不是很常用，可直接用手工查找替换办法处理，查找代码如“[一二三四五六七八九十]、[!^13]@，共[0-9]@分。”，先将匹配项替换一个在文档中具有唯一性的段落格式，然后第二步查找该段落格式（任意字符），再在替换框修改想要的字符格式与格式。

如果经常用，可试试如下VBA代码

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .MatchWildcards = True
   
6.         .Text = "[一二三四五六七八九十]、[!^13]@，共[0-9]@分。"
   
7.         Do While .Execute = True
   
8.             With .Parent.Duplicate
   
9.                 .Expand wdParagraph
   
10.                 With .Font
    
11.                     .NameFarEast = "宋体"
    
12.                     .Bold = True
    
13.                     .Color = wdColorAutomatic
    
14.                 End With
    
15.                 With .ParagraphFormat
    
16.                     .CharacterUnitFirstLineIndent = 2
    
17.                     .CharacterUnitLeftIndent = 0
    
18.                     .CharacterUnitRightIndent = 0
    
19.                     .FirstLineIndent = 0
    
20.                     .LeftIndent = 0
    
21.                     .RightIndent = 0
    
22.                     .LineSpacingRule = wdLineSpaceMultiple
    
23.                     .LineSpacing = LinesToPoints(1.5)
    
24.                     .LineUnitBefore = 0
    
25.                     .LineUnitAfter = 0
    
26.                     .SpaceBefore = 0
    
27.                     .SpaceAfter = 0
    
28.                 End With
    
29.             End With
    
30.         Loop
    
31.     End With
    
32.     Application.ScreenUpdating = True
    
33. End Sub

复制代码

413191246se

大侠又出手了！

飞驰的椒麻鸡

谢谢，各位老大。.Text = "[一二三四五六七八九十]、[!^13]@，共[0-9]@分。"  ，啥意思呢 。只能识别【”一、单项选择题(本题型共12小题，每小题2分，共24分。】这句话吧，后面的字符如何识别