仅在当前段落中选择粗体和下划线文本（VBA 宏，word 2016）答案

【问题标题】：Only select bold & underline text in current paragraph (VBA macro, word 2016)仅在当前段落中选择粗体和下划线文本（VBA 宏，word 2016）
【发布时间】：2020-06-06 10:01:01
【问题描述】：

我正在尝试选择段落中的任何粗体和下划线文本（在 Microsoft Word 2016 中）。我真的只是想选择文本，以便我可以以各种方式进行操作（这将根据我对特定文本的需要而不断变化），例如突出显示、取消粗体、复制等。

我使用宏记录器功能创建了以下宏，并且当我这样做时它运行良好。但是当我随后运行宏时，它突出显示了整个段落，而不仅仅是粗体和下划线部分。

Sub SelectBoldandUnderlineCurrentParagraph()
'
' SelectBoldandUnderlineCurrentParagraph Macro
'
'
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Bold = True
        .Underline = wdUnderlineSingle
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

【问题讨论】：

标签： vba ms-word

【解决方案1】：

试试：

Sub Demo()
With Selection.Paragraphs.First.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Font.Bold = True
    .Font.Underline = wdUnderlineSingle
    .Text = ""
    .Replacement.Text = ""
    .Format = True
    .Forward = True
    .Wrap = wdFindStop
    .Execute
  End With
  .Select
End With
End Sub

【讨论】：

谢谢！这确实选择了粗体和下划线文本。然而，它只选择段落中加粗和下划线的第一个单词。我想选择所有加粗和下划线的单词/字母。这可能吗？
只有当您的粗体和下划线内容在不连续的范围内时才会发生这种情况 - 根据您的示例（请注意，例如，下划线中的中断）。宏不能选择不连续的范围。
再次感谢。我知道您可以通过选择“查找 - 当前选择”来使用 Word 中的“查找和替换”功能选择不连续的范围。但只是为了确认你不能通过宏重现这个？
正如我已经说过的«宏不能选择不连续的范围»。