aiuto per macro

[stbdiserena]

mio figlio ipovedente , i compiti li esegue al computer con word,
il formato più adatto al suo problema è lo sfondo nero con carattere bianco.
Però non sempre è così, può capitare di trovare pagine con font di diversi colori.
Ora il problema è il carattere di colore nero.

In word si può creare una macro che selezioni solo il testo con colore nero, per poi cambiarlo col colore bianco?
grazie per l'aiuto

[mercatogalante]

mio figlio ipovedente , i compiti li esegue al computer con word,
il formato più adatto al suo problema è lo sfondo nero con carattere bianco.
Però non sempre è così, può capitare di trovare pagine con font di diversi colori.
Ora il problema è il carattere di colore nero.

In word si può creare una macro che selezioni solo il testo con colore nero, per poi cambiarlo col colore bianco?
grazie per l'aiuto

Che office è 2003 o 2007?

[stbdiserena]

word 2007

[ricky53]

Ciao,
non ho il 2007 ma il 2003, dovrebbe andare bene lo stesso

ecco la macro

Codice: Seleziona tutto

Sub Testo_Bianco_su_Fondo_Nero()
' seleziona tutto il testo
    Selection.WholeStory

' imposta il colore del testo a "bianco"
    Selection.Font.Color = wdColorWhite

' imposta lo sfondo a "nero"
    Selection.Range.HighlightColorIndex = wdBlack
End Sub

[stbdiserena]

ok la macro funziona, però non mi sono spiegato bene
Esempio: ho un documento con carattere di vari colori,
io voglio lasciare intatti tutti gli altri colori e cambiare solo il carattere in nero.
Cioè, vorrei selezionare prima solo il carattere di colore nero (non tutto il testo) e cambiarlo col bianco, si può fare?

[ricky53]

Ciao
prova a sostituire

' seleziona tutto il testo
Selection.WholeStory

con

Selection.TypeParagraph
Selection.MoveLeft Unit:=wdCharacter, Count:=55, Extend:=wdExtend
' devi agire sul "55"

con Word non sono un "Mago" ...

Ciao da Ricky53