Método Range.GoTo (Word)

Retorna um objeto Range que representa a posição inicial do item especificado, como uma página, indicador ou campo.

Sintaxe

expression. GoTo( O que , qual , contagem , nome )

expressão Obrigatório. Uma variável que representa um objeto Range.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
What	Opcional	Variant	O tipo de item para o qual o intervalo é movido. Pode ser uma das constantes wdGoToItem .
Which	Opcional	Variant	O item para o qual o intervalo é movido. Pode ser uma das constantes wdGoToDirection .
Count	Opcional	Variant	O número do item no documento. O valor padrão é 1. Apenas valores positivos são válidos. Para especificar um item que precede o intervalo, use wdGoToPrevious como o qual argumento e especificar um valor de contagem.
Name	Opcional	Variant	Se o argumento What for wdGoToBookmark, wdGoToComment, wdGoToField ou wdGoToObject, este argumento especificará um nome. Apenas valores positivos são válidos. Para especificar um item que precede o intervalo, use wdGoToPrevious como o qual argumento e especificar um valor de contagem.

Comentários

O exemplo a seguir move o intervalo duas linhas para cima.

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

O exemplo a seguir vai para o próximo campo DATE.

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

O exemplo a seguir move o intervalo para a quarta linha do documento.

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

Os exemplos a seguir são funcionalmente equivalentes, ambos movem o intervalo para o primeiro título do documento.

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

Quando você usa o método GoTo com a constante wdGoToGrammaticalError, wdGoToProofreadingError ou wdGoToSpellingError constante, o intervalo retornado inclui qualquer texto de erro gramatical ou o texto de erro de ortografia.

Exemplo

Este exemplo move o ponto de inserção para imediatamente antes da quinta marca de nota de fim do documento ativo.

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

Este exemplo define R1 como igual à primeira marca de referência de nota de rodapé do documento ativo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.