Compartilhar via

Propriedade Font.SuperScript (Publisher)

Devolve ou define uma constante MsoTriState que indica se os carateres estão formatados como superior à linha no intervalo de texto especificado. Leitura/gravação.

Sintaxe

expressão. Superior à Linha

expressão Uma variável que representa um objeto Tipo de Letra .

Valor de retorno

MsoTriState

Comentários

O valor da propriedade SuperScript pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante Descrição
msoFalse Nenhum caractere no intervalo é formatado como superscrito.
msoTriStateMixed Um valor devolvido que indica uma combinação de msoTrue e msoFalse para o intervalo de formas especificado.
msoTriStateToggle Um valor definido que alterna entre msoTrue e msoFalse.
msoTrue Todos os caracteres no intervalo são formatados como superscrito.

Definição da propriedade SuperScript como msoTrue remove a formatação de subscrito do intervalo de texto.

Exemplo

Este exemplo testa o texto no segundo bloco e, se tiver uma linha superior à linha mista, formata todo o texto como superior à linha.

Sub SuperScript() 
 
 Dim fntSuper As Font 
 
 Set fntSuper = Application.ActiveDocument.Stories(2).TextRange.Font 
 With fntSuper 
 If .SuperScript = msoTriStateMixed Then 
 .SuperScript = msoTrue 
 Else 
 MsgBox "Mixed superscript not in this story." 
 End If 
 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.

  • Last updated on