Тема: Выделение текущего абзаца
Выделение текущего абзаца
С использованием объекта 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.
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.