Метод 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 и обратная связь.