Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Insere texto horizontal num fluxo de texto vertical e devolve o novo texto horizontal como um objeto Campo .
Sintaxe
expressão. AddHorizontalInVertical (Intervalo, Texto)
expressão Uma variável que representa um objeto Campos .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Range | Obrigatório | TextRange | O intervalo de texto no qual inserir o texto horizontal. |
| Text | Obrigatório | String | O texto a ser inserido horizontalmente. |
Valor de retorno
Campo
Exemplo
Este exemplo insere horizontalmente o texto Teste Horizontal após o texto vertical existente na forma um na primeira página da publicação ativa.
Dim rngTemp As TextRange
Dim fldTemp As Field
With ActiveDocument.Pages(1).Shapes(1)
Set rngTemp = .TextFrame.TextRange.InsertAfter("")
Set fldTemp = .TextFrame.TextRange.Fields _
.AddHorizontalInVertical(Range:=rngTemp, Text:="Horizontal Test")
End With
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.