Прочитать на английском

Поделиться через


Метод Range.GoTo (Word)

Возвращает объект Range , представляющий начальную позицию указанного элемента, например страницу, закладку или поле.

Синтаксис

выражение. GoTo( What , What , Count , Name )

выражение (обязательно). Переменная, представляющая объект Range .

Параметры

Имя Обязательный или необязательный Тип данных Описание
What Необязательный Variant Тип элемента, в который перемещается диапазон. Может быть одной из констант wdGoToItem .
Который Необязательный Variant Элемент, в который перемещается диапазон. Может быть одной из констант wdGoToDirection .
Count Необязательный Variant Номер элемента в документе. Значение по умолчанию равно 1. Допустимы только положительные значения. Чтобы указать элемент, предшествующий диапазону, используйте wdGoToPrevious в качестве аргумента Which и укажите значение Count.
Name Необязательно заполнять. Variant Если аргумент What имеет значение wdGoToBookmark, wdGoToComment, wdGoToField или wdGoToObject, этот аргумент задает имя. Допустимы только положительные значения. Чтобы указать элемент, предшествующий диапазону, используйте wdGoToPrevious в качестве аргумента Which и укажите значение Count.

Замечания

В следующем примере диапазон перемещается вверх на две строки.

ActiveDocument.Range.GoTo What:=wdGoToLine, Which:=wdGoToPrevious, Count:=2

В следующем примере выполняется переход к следующему полю DATE.

ActiveDocument.Range.GoTo What:=wdGoToField, Name:="Date"

В следующем примере диапазон перемещается в четвертую строку документа.

ActiveDocument.Range.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4

Следующие примеры функционально эквивалентны. Они оба перемещают диапазон в первый заголовок в документе.

ActiveDocument.Range.GoTo What:=wdGoToHeading, Which:=wdGoToFirst 
ActiveDocument.Range.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1

При использовании метода GoTo с константой wdGoToGrammaticalError, wdGoToProofreadingError или wdGoToSpellingError возвращаемый диапазон включает любой текст грамматической ошибки или текст орфографической ошибки.

Пример

В этом примере точка вставки перемещается непосредственно перед пятой меткой концевых сносок в активном документе.

If ActiveDocument.Endnotes.Count >= 5 Then 
 ActiveDocument.Range.GoTo What:=wdGoToEndnote, _ 
 Which:=wdGoToAbsolute, Count:=5 
End If

В этом примере значение R1 равно первому знаку ссылки сноски в активном документе.

If ActiveDocument.Footnotes.Count >= 1 Then 
 Set R1 = ActiveDocument.Range.GoTo(What:=wdGoToFootnote, _ 
 Which:=wdGoToFirst) 
 R1.Expand Unit:=wdCharacter 
End If

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.