Word VBA Макросы: Как скопировать текст в абзаце после двоеточия?

[karapas]

Не знаю как сделать,чтобы макрос копировал не абзац, а текст в абзаце после двоеточия.

[вложение удалено администратором]

[Администратор]

Чтобы код сработал, сделайте, чтобы после текста было двоеточие, а затем пробел.

Макрос

Sub макрос()

    Dim var
   
    ' Копируем в переменную "var" текст первого абзаца.
    var = ActiveDocument.Paragraphs(1).Range.Text
    ' Извлекаем текст после двоеточия и пробела.
    var = Mid(var, InStr(var, ": ") + 1)
    ' Удаляем невидимый символ "знак абзаца" с конца текста.
    var = Left(var, Len(var) - 1)
   
End Sub

[свернуть]

[karapas]

Все сработало.
Спасибо большое.