Question

我希望在WORD文档中有一些突出显示的部分，希望将这些部分汇总到一个新文档中，但是我想在每个唯一突出显示的部分之前和之后插入一个管道（移位反斜杠），以便于导入到另一个程序中

我已经可以通过以下过程选择这些突出显示的部分并将其复制到新文档中：

查找>高级查找>更多>格式>高亮>在>主文档中查找>关闭> Ctl + C> Ctl + N> Ctl + V

该过程会将我所有突出显示的文本放入新文档中。

我的最终目标是让那些突出显示的部分被管道字符包围。

我希望这清楚地解释了我的“终结游戏”。预先感谢您的帮助！

Answer 1

您可以尝试以下代码：

Sub CopyHighlightedText()

    Dim rng As Range
    Dim str As String

    Set rng = ActiveDocument.Range

    With rng.Find

        .ClearFormatting
        .Highlight = True

        While .Execute(Forward:=True, Format:=True)
            str = str & " | " & rng.Text
        Wend

    End With

    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.TypeText Text:=str

End Sub

如何使用VBA在WORD中突出显示的文本之前和之后插入字符

1 个答案: