Compartilhar via

Método TextRange.InsertSymbol (Publisher)

  • Artigo

Retorna um objeto TextRange que representa um símbolo inserido no lugar do intervalo ou seleção especificado.

Sintaxe

expressão. InsertSymbol (FontName, CharIndex)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FontName Obrigatório String O nome da fonte que contém o símbolo.
CharIndex Obrigatório Long O caractere Unicode para o símbolo especificado.

Valor de retorno

TextRange

Comentários

Se você não quiser substituir o intervalo ou a seleção, use o método Collapse antes de usar esse método.

Exemplo

Este método insere uma seta de duas pontas no 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

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.