Question

我正在Word中查找VBA代码，以突出显示任何句号超出引号的句子。即在文本＆＃34; Hello word＆＃34;。我想＆＃34;和。在运行宏时突出显示。

@il_raffa ..我有一个代码跟我一起突出我不想在信中看到的单词。不知道如何在其中加入符号。

    Sub HighlightTargets2()

    Dim range As range
   Dim i As Long
   Dim TargetList

   TargetList = Array("I", "We", "our", "discusses about", "we", "asserts")
   For i = 0 To UBound(TargetList)

   Set range = ActiveDocument.range

   With range.Find
   .Text = TargetList(i)
   .Format = True
   .MatchCase = False
   .MatchWholeWord = True
   .MatchWildcards = True
   .MatchSoundsLike = False
   .MatchAllWordForms = False

   Do While .Execute(Forward:=True) = True
   range.HighlightColorIndex = wdYellow

   Loop

   End With
   Next

   End Sub

Answer 1

在Word中，显示“查找”对话框。（Ctrl + F显示任务窗格而不是对话框，从下拉列表中选择“高级”。）

在“查找”框中键入“。”然后单击“阅读精彩集锦”，然后单击“突出显示全部”。

如果你真的需要在宏中使用它，请记录一个宏，然后执行上述操作。

Answer 2

我之前发现Word使用了智能引用，所以如果你只是使用＆＃34;是不会工作

只需在TargetList代码行

上方添加以下内容即可

'Chr(148) is the Character Code for Word Smart quote
'This is what is inserted into Word when you press "
char1 = Chr(148) & "."

并更改您的TargetList：

TargetList = Array("I", "We", "our", "discusses about", "we", "asserts", char1)

尝试过并突出显示＆＃34;。

用于查找和突出显示字符组合的VBA代码

2 个答案: