Derek ha bisogno di un modo per trovare, in un documento, la prossima volta che il carattere tipografico (nome del carattere) cambia. Ad esempio, se il punto di inserimento si trova al centro del documento, vorrebbe che Word gli facesse sapere, a partire da quel punto, dove si verifica la modifica successiva. Derek si chiede se esiste un modo per portare a termine un compito del genere.

Non esiste un modo integrato per eseguire questa operazione, sebbene potresti essere in grado di dire visivamente quando il carattere tipografico è cambiato. Spesso posso dirlo semplicemente aumentando il fattore di zoom per il documento (ad esempio, al 200% o al 250%) e quindi scansionando visivamente il documento per cercare cambiamenti nell’aspetto. Naturalmente, questo dipenderà dalla disparità visiva tra i due caratteri adiacenti.

Se si preferisce una soluzione basata su macro, è possibile crearne una che salvi il nome del carattere tipografico nella posizione del punto di inserimento corrente e quindi passi attraverso ogni carattere rimanente del documento. Se il carattere tipografico è diverso da quello originale, puoi avvisare l’utente. Ecco un esempio di una tale macro:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

La maggior parte del lavoro viene eseguita nel ciclo Do, in cui il carattere di ogni carattere viene controllato per vedere se è cambiato. Nota che il ciclo controlla anche se viene raggiunta la fine del documento, a quel punto vorresti che la macro si fermasse.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (5131) si applica a Microsoft Word 2007, 2010, 2013 e 2016.