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.
expression. GoTo
( O que , qual , contagem , nome )
expressão Obrigatório. Uma variável que representa um objeto Range.
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. |
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.
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
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.