TextRange.InsertSymbol method (Publisher)

Returns a TextRange object that represents a symbol inserted in place of the specified range or selection.


expression.InsertSymbol(FontName, CharIndex)

expression A variable that represents a TextRange object.


Name Required/Optional Data type Description
FontName Required String The name of the font that contains the symbol.
CharIndex Required Long The Unicode character for the specified symbol.

Return value



If you do not want to replace the range or selection, use the TextRange.Collapse method (Publisher) before you use this method.


This example inserts a double-headed arrow at the cursor.

Sub Insert Arrow() 
    ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
            .Paragraphs(Start:=1, Length:=1).Select
    With .TextFrame.TextRange 
            .Collapse Direction:= pbCollapseStart
            .InsertSymbol FontName:="Symbol", CharIndex:=171
        End With 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.