Método TextRange.InsertSymbol (Publisher)

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

Sintaxis

más sencilla.InsertSymbol (FontName, CharIndex)

expresión Variable que representa un objeto TextRange .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
FontName Obligatorio String Nombre de la fuente que contiene el símbolo.
CharIndex Necesario Long Carácter Unicode del símbolo especificado.

Valor devuelto

TextRange

Comentarios

Si no desea reemplazar el rango o la selección, use el método Contraer 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.

  • Last updated on