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