Как вставить символ до и после выделенного текста в WORD с помощью VBA - PullRequest
Новая
       12

Как вставить символ до и после выделенного текста в WORD с помощью VBA

0 голосов
/ 27 ноября 2018

У меня есть несколько выделенных разделов в документе WORD, которые я собираюсь объединить в новый документ, но я хотел бы вставить трубу (сдвигать обратную косую черту) до и после каждого уникального выделенного раздела, чтобы упростить импорт в другую программу.

Мне удалось выделить и скопировать эти выделенные разделы в новый документ с помощью следующего процесса:

Найти> Расширенный поиск> Еще> Формат> Выделить> Найти в> Основной документ> Закрыть> Ctl + C> Ctl + N> Ctl + V

Этот процесс помещает весь мой выделенный текст в новый документ.

Моя конечная цель - получить те же выделенные разделыокруженный трубкой персонажей.

Надеюсь, это ясно объясняет мою "игру в конец".Заранее спасибо за помощь!

1 Ответ

0 голосов
/ 28 ноября 2018

Вы можете попробовать что-то вроде следующего кода: 

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
...