1

Тема: Выделение текущего абзаца

Выделение текущего абзаца

С использованием объекта Paragraphs:

Sub para1()
    Selection.Paragraphs(1).Range.Select
End Sub

Еще один способ выделения:

Sub para2()
    ' Переход на начало текущего абзаца
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    ' Выделение абзаца до конца
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.