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

413191246se

楼主，请用我的《集成版》“公文”排版（热键：F8），或“普通”排版（热键：F7）即可，不用自己折腾了。

413191246se

楼主，请下载我最新版本《Word2003&2007自动排版宏（集成版）》2019-6-20，按照说明导入代码后，按 F8 键排版，然后用下面小宏来设置宋体：

1. Sub 标题2宋体()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If .Style = "标题 2" Then
   
6.                 With .Font
   
7.                     .NameFarEast = "宋体"
   
8.                     .NameAscii = "Times New Roman"
   
9.                 End With
   
10.             End If
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

飞驰的椒麻鸡

413191246se 发表于 2019-6-21 09:32
楼主，请下载我最新版本《Word2003&2007自动排版宏（集成版）》2019-6-20，按照说明导入代码后，按 F8 键排 ...

谢谢，非常感谢

413191246se

楼主，我的最新版本，你可能未下载吧？请给我发一个邮件，我把新版发给你，我的邮箱：
ln1400014884@163.com