Método Fields.AddHorizontalInVertical (Publisher)

Artigo
04/07/2023

Insere o texto horizontal em um fluxo de texto vertical e retorna o novo texto horizontal como um objeto Field .

Sintaxe

expressão. AddHorizontalInVertical (Intervalo, Texto)

Expressão Uma variável que representa um objeto Fields .

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 página um 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.

Compartilhar via