Compartir a través de


Método TextRange.InsertBefore (Publisher)

Anexa una cadena al principio del intervalo de texto especificado. Devuelve un objeto TextRange que representa el texto anexado. Si se utiliza sin argumento, este método devuelve una cadena de longitud cero al final del intervalo especificado.

Sintaxis

expresión. InsertBefore (NewText)

expresión Variable que representa un objeto TextRange .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
NewText Obligatorio String Texto que se va a insertar. El valor predeterminado es una cadena vacía.

Valor devuelto

TextRange

Ejemplo

En este ejemplo se agrega el número de compilación de Microsoft Publisher y un salto de párrafo al principio de la primera forma de la primera página de la publicación activa. En este ejemplo se supone que la forma especificada es un marco de texto y no otro tipo de forma.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.