Método TextRange.InsertSymbol (Publisher)

Devuelve un objeto TextRange que representa un símbolo insertado en lugar del intervalo o la selección especificados.

Sintaxis

expresión. InsertSymbol (FontName, CharIndex)

expresión Variable que representa un objeto TextRange .

Parameters

Valor devuelto

TextRange

Observaciones

Si no desea reemplazar el intervalo o la selección, use el método Collapse antes de usar este método.

Ejemplo

En este ejemplo se inserta una flecha de dos puntas en el cursor.

Sub Insert Arrow() 
    ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
            .Paragraphs(Start:=1, Length:=1).Select
    With .TextFrame.TextRange 
            .InsertPageNumber 
            .Collapse Direction:= pbCollapseStart
            .InsertSymbol FontName:="Symbol", CharIndex:=171
        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.