Fontes diferentes Mash-up para texto e números

Question

Eu quero usar uma fonte, ou seja, Candara para texto e, ao mesmo tempo, quero usar outra fonte para números no texto porque o estilo número na fonte Candara é de alguma forma perturbador (pelo menos para mim). Eu não quero mudar fontes de novo e de novo enquanto escrevo texto e números .

É possível usar Candara font para texto e alguma outra fonte para números simultaneamente (sem alterar a fonte novamente e novamente).

    

Answer 1

Isso pode ser feito com o VBa. Dependendo do tamanho do seu arquivo (quantas palavras você tem), pode ser lento.

Também pressupõe que você use apenas 2 fontes. Se você usar outras fontes, elas serão sobrescritas !!

É o VBa, então lembre-se, salve-o primeiro para criar um backup (não há como desfazer)

Sub updateFont()

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer    
For i = 1 To doc.Range.Characters.Count

     If IsNumeric(doc.Range.Characters(i)) Then
        doc.Range.Characters(i).Font.Name = "Algerian"
        Else
        doc.Range.Characters(i).Font.Name = "Verdana"
     End If
Next i

End Sub

Screenshot antes (usando uma fonte itálica)

edepois

Como eu adiciono o VBA no MS Office?