Свойство Selection.Active (Word)
Значение True , если выделение в указанном окне или области активно. Только для чтения, Boolean.
expression. Активных
выражение (обязательно). Переменная, представляющая объект Selection .
В этом примере активное окно разбивается на две области и активируется выделение в первой области, если оно еще не активно.
Sub SplitWindow()
ActiveDocument.ActiveWindow.Split = True
If ActiveDocument.ActiveWindow.Panes(1).Selection _
.Active = False Then
ActiveDocument.ActiveWindow.Panes(1).Activate
End If
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.