Como altero a cor da fonte de uma letra específica em todo o documento do MS Word 2007?

Question

Eu tenho um conteúdo de texto no MS Office Word 2007.
Assuma algo como o seguinte: Abcd Efgh .....

Agora eu quero mudar a cor de cada A no conteúdo para vermelho.
Como posso fazer isso no MS Office Word 2007?

    

Answer 1

O caminho mais fácil seria usar Localizar e substituir e usar as Opções avançadas, onde você pode formatar o tipo de fonte, cor e tamanho e desmarcar "Ignorar caso" para obter apenas o "A" em vez de todas as instâncias de " um "ou" A ".

    

Answer 2

Supondo que você não queira fazer isso manualmente, acredito que a principal maneira de automatizar isso é usar a linguagem de programação Visual Basic for Applications do Word e escrever o script / código para procurar pela letra maiúscula A e alterar sua cor. .

Aqui está uma maneira de fazer isso, colocando o código no documento do Word ativo. Eu tentei isso no Word 2010, então eu não estou 100% que ele funcionará o mesmo no Word 2007, mas provavelmente será.

Você precisa ativar o Marcos para esse código ser executado.

Então, no Word, vá para Arquivo Salvar como e escolha "Documento habilitado para macro do Word".

Em seguida, você precisa poder usar as ferramentas do desenvolvedor no Word, então clique com o botão direito do mouse na sua barra de opções e escolha "Personalizar a faixa de opções":

Ecoloqueumamarcadeseleçãoaoladode"Desenvolvedor" e clique em "OK".

NodocumentodoWordemquevocêdesejaexecutaressamágica(aquelaquevocêsalvoucomoumdocumentodoWordhabilitadoparamacro),cliquenarecém-visívelguiaDesenvolvedorecliquenobotão"Visual Basic" para abrir o Visual Basic. / p>

OVisualBasicforApplicationsseráaberto.Em"Microsoft Word Object", clique duas vezes em "ThisDocument" para adicionar algum código a este documento do Word.

Najanelaqueéaberta,coleoseguintecódigodoVisualBasic:

SubChangeLetterColor()'EntertheexactletteryouwanttogloballysearchforinThisDocument'Casematters,"A" is not the same as "a"

Const LETTER_TO_CHANGE = "A"

' Enter one of the Word color Constant names to determine the color to change the letter to
' Example Word color constants are:
' wdBlack
' wdBlue
' wdBrightGreen
' wdDarkBlue
' wdDarkRed
' wdDarkYellow
' wdGray25
' wdGray50
' wdGreen
' wdPink
' wdRed
' wdTeal
' wdTurquoise
' wdViolet
' wdWhite
' wdYellow

Const COLOR_TO_CHANGE_TO = wdRed


For i = 1 To ThisDocument.Range.Characters.Count
    If ThisDocument.Range.Characters(i) = LETTER_TO_CHANGE Then
        ThisDocument.Range.Characters(i).Font.ColorIndex = COLOR_TO_CHANGE_TO
    End If
Next

End Sub

Agora, clique no botão "Executar" na barra de ferramentas do VBA e volte ao seu documento do Word. A letra definida no script agora deve ter sua cor de fonte alterada.

Aquiestãooutrosexemplosdescriptscomobjetivossemelhantes.Vocêpodesereferiraelesparamaisdetalhes.

link

link