求VBA实现：查找文档中所有的符合通配符[A-D]、*^13的，将其设为标题3

gavincar · 发表于 2016-6-3 10:48

本帖最后由 gavincar 于 2016-6-3 11:06 编辑

求VBA实现：查找文档中所有的符合通配符[A-D]、*^13的，将其设为标题3，谢谢。

duquancai · 发表于 2016-6-3 12:51

Sub test()
Dim i As Paragraph
With ActiveDocument
For Each i In .Paragraphs
   If i.Range.Information(wdWithInTable) = False Then
      With i.Range.Find
         .MatchWildcards = True
         .Text = "[A-D]、"
         If .Execute = True Then i.Range.Style = wdStyleHeading3
      End With
   End If
Next
End With
End Sub

gavincar · 发表于 2017-3-17 21:23

duquancai 发表于 2016-6-3 12:51
Sub test()
Dim i As Paragraph
With ActiveDocument

非常感谢您的回复。

jiminyanyan · 发表于 2017-3-17 21:56

gavincar 发表于 2017-3-17 21:23
非常感谢您的回复。

快一年了，才来…………。

佤神采奕奕 · 发表于 2020-4-11 13:45

来自三年后的看法，代码有帮助不管什么时候看哈哈

		自动登录	找回密码
密码			免费注册

[求助] 求VBA实现：查找文档中所有的符合通配符[A-D]、*^13的，将其设为标题3

评分