Question

我刚刚接受了VBA路线以自动完成今天的几天任务，所以请原谅，如果我听起来很天真我正在尝试打开一个word文档＆amp;然后搜索表达式以突出显示（粗体）它，但我得到错误“用户定义的类型未定义” 我能够打开word文档但无法执行模式搜索。我已经收集了比特和来自互联网的代码，但它不起作用我正在使用Office 2013＆amp;已在参考中添加了Microsoft VBscript Reg Ex 5.5。我搜索的模式是从“亲爱的”直到遇到的。干杯#GoingMad＃

Sub Pattern_Replace()

Dim regEx, Match, Matches
Dim rngRange As Range

Dim pathh As String, i As Integer

pathh = "D:\Docs\Macro.docx"
Dim pathhi As String
Dim from_text As String, to_text As String
Dim WA As Object, WD As Object
Set WA = CreateObject("Word.Application")
WA.Documents.Open (pathh)
WA.Visible = True

  Set regEx = New RegExp
  regEx.Pattern = "Dear[^0-9<>]+)"
  regEx.IgnoreCase = False
  regEx.Global = True

  Set Matches = regEx.Execute(ActiveDocument.Range.Text)

  For Each Match In Matches

     ActiveDocument.Range(Match.FirstIndex, Match.FirstIndex + Len(Match.Value)).Bold = True

  Next

End Sub

Answer 1

你需要逃离支架＆＃34;）＆＃34;在正则表达式中，使用反斜杠：

regex.Pattern = "Dear[^0-9<>]+\)"

这是因为它在正则表达式中具有特定含义。

我个人也会将对Word-Range的引用分成几行：

Set rngRange = ActiveDocument.Range
rngRange.Expand Unit:=wdStory
Set Matches = regex.Execute(rngRange.Text)

虽然这不是必要的。

Answer 2

考虑以下文字

亲爱的阿姨莎莉）我去了学校。

您的正则表达式模式为"Dear[^)]+"

找到“亲爱的”这个词
匹配任何不是“）”
重复

Refiddle here

这个将包括括号。 Dear[\w\s]+\)

找到“亲爱的”这个词
匹配任何角色或空白
根据需要重复
直到找到右括号

Answer 3

您不需要正则表达式-在Word中使用通配符查找/替换将更有效地完成工作：

With WA.ActiveDocument.Range.Find
  .ClearFormatting
  .Text = "Dear[!\)]@\)"
  .Replacement.ClearFormatting
  .Replacement.Font.Bold = True
  .Replacement.Text = "^&"
  .Format = True
  .Forward = True
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With

查找并替换给定的单词到右括号

3 个答案: