Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Define o nome do script da fonte a ser usado em um intervalo de texto.
Sintaxe
expressão. SetScriptName (Script, FontName)
expressão Uma variável que representa um objeto Tipo de Letra .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Script | Obrigatório | PbFontScriptType | O nome do script. Pode ser uma das constantes PbFontScriptType declaradas na biblioteca de tipos do Microsoft Publisher. |
| FontName | Obrigatório | String | O nome da fonte. |
Exemplo
Este exemplo verifica se o script de tipo de letra predefinido em utilização para o intervalo de texto especificado é Tahoma e, caso contrário, define-o como o script de tipo de letra predefinido.
Sub GetScript()
With ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Font
If .GetScriptName(Script:=pbFontScriptDefault) <> "Tahoma" Then
.SetScriptName Script:=pbFontScriptDefault, _
FontName:="Tahoma"
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.