Método TextRange.InsertBefore (Publisher)

Anexa uma sequência de caracteres ao início do intervalo de texto especificado. Retorna um objeto TextRange que representa o texto anexado. Quando usado sem um argumento, esse método retorna uma sequência de caracteres de tamanho zero no fim do intervalo especificado.

Sintaxe

expressão. InsertBefore (NewText)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Newtext	Obrigatório	String	O texto a ser inserido. O valor padrão é uma cadeia de caracteres vazia.

Valor de retorno

TextRange

Exemplo

Este exemplo adiciona o número de compilação do Microsoft Publisher e uma quebra de parágrafo ao início da primeira forma na primeira página da publicação ativa. Este exemplo pressupõe que a forma especificada é um quadro de texto e não é outro tipo de forma.

Sub InsertTextBefore() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertBefore _ 
 NewText:="Microsoft Publisher Build : " & Build & vbCrLf 
 End With 
End Sub

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.