Hilary osserva che la maggior parte dei documenti utilizzati dalla loro azienda sono standardizzati su un carattere Times Roman. Tuttavia, di tanto in tanto qualcuno modificherà un documento e applicherà un carattere diverso ad alcuni dei testi che contiene. Vorrebbe trovare facilmente quelle “anomalie di formattazione”. Hilary si chiede se esiste un modo per cercare un testo in un documento che non utilizza un carattere particolare.

Ci sono un paio di modi in cui puoi trovare ciò di cui hai bisogno e, potenzialmente, risolvere il problema. Per prima cosa, puoi usare Trova e sostituisci in questo modo:

  1. Premi Ctrl + F. Word visualizza la scheda Trova della finestra di dialogo Trova e sostituisci.

  2. Fare clic sul pulsante Altro, se disponibile.

  3. Assicurati che la casella Trova sia vuota.

  4. Fare clic su Formato e quindi scegliere Carattere. Word visualizza la finestra di dialogo Trova carattere. (Vedi figura 1.)

  5. Utilizzare i controlli nella finestra di dialogo per specificare che si desidera trovare il carattere Times Roman che si sta utilizzando. (Basta scegliere il carattere. Non è necessario specificare altre impostazioni a meno che non lo si desideri.)

  6. Fare clic su OK. Le specifiche del carattere che stai cercando vengono visualizzate appena sotto la casella Trova.

  7. Fare clic sulla casella di controllo Evidenzia tutti gli elementi.

  8. Fare clic su Trova tutto.

A questo punto, la finestra di dialogo si chiude e Word evidenzia diligentemente tutte le istanze di Times Roman nel documento. Puoi scorrere facilmente il documento per vedere cosa non è evidenziato: queste sono le “anomalie” che stai cercando.

Puoi anche utilizzare Trova e sostituisci per applicare una formattazione eccezionale al testo che non è in caratteri Times Roman. Trova solo una formattazione che non stai utilizzando nel documento, come doppia sottolineatura o testo rosso. Seleziona l’intero documento (Ctrl + A) e applica quella formattazione all’intero documento. Quindi usa Trova e sostituisci per trovare tutte le istanze in Times Roman (vedi i passaggi precedenti) e sostituiscilo con Times Roman senza la formattazione eccezionale che hai applicato in precedenza. Ciò che si ottiene è solo il testo che non è formattato in Times Roman con la formattazione eccezionale.

Se preferisci, puoi utilizzare una macro per modificare il carattere utilizzato nel documento. Quella che segue è una breve macro che guarda il carattere usato per ogni parola nel tuo documento:

Sub FixFormatAnomalies()

Dim aWord

For Each aWord In ActiveDocument.Words         If aWord.Font.Name <> "Times Roman" Then             aWord.Font.Name = "Times Roman"

End If     Next aWord End Sub

Se il carattere utilizzato per una parola non corrisponde a quello che desideri, la routine cambia il carattere. L’unica cosa che devi fare per far funzionare la macro nel tuo caso è cambiare il nome del carattere desiderato su due righe.

(Ti consigliamo di utilizzare il nome del carattere esattamente come appare nell’elenco dei caratteri utilizzabili da Word. Presta particolare attenzione alle maiuscole.)

Un altro approccio consiste nel controllare semplicemente ogni carattere nel documento ed evidenziare il carattere se non utilizza il carattere desiderato. La seguente macro evidenzia i caratteri incriminati in giallo:

Sub HighlightOtherFonts()

Dim iCounter As Integer     Dim sFontName As String     Dim sPrompt As String     Dim sTitle As String     Dim sDefault As String     Dim c As Range

' Gets the name of the font as typed by the user     sPrompt = "Type the name of the font that is OK to "

sPrompt = sPrompt & "have in the document."

sTitle = "Acceptable Font Name"

sDefault = ActiveDocument.Styles(wdStyleNormal).Font.Name     sFontName = InputBox(sPrompt, sTitle, sDefault)



' Verifies that the name of the font is valid     For Each sFont In Application.FontNames         If UCase(sFontName) = UCase(sFont) Then             ' Changes the user-typed name of the font to             ' the version recognized by the application             ' Example: 'times new roman' (user-typed) is             ' changed to 'Times New Roman' (application version)

sFontName = sFont             Exit For         Else             ' Terminates the loop if the name of the font is invalid             iCounter = iCounter + 1             If iCounter = FontNames.Count Then                 sPrompt = "The font name as typed does not match "

sPrompt = sPrompt & "any fonts available to the "

sPrompt = sPrompt & "application."

sTitle = "Font Name Not Found"

MsgBox sPrompt, vbOKOnly, sTitle                 Exit Sub             End If         End If     Next sFont

' Checks each character in the document, highlighting     ' if the character's font doesn't match the OK font     For Each c In ActiveDocument.Characters         If c.Font.Name <> sFontName Then             ' Highlight the selected range of text in yellow             c.FormattedText.HighlightColorIndex = wdYellow         End If     Next c End Sub

Una delle caratteristiche interessanti di questa macro è che ti richiede il carattere che trovi accettabile. Quindi verifica che ciò che si immette corrisponda a uno dei caratteri disponibili nel sistema. Poiché la macro controlla singolarmente ogni carattere nel documento, potrebbe essere necessario pazientare mentre è in esecuzione. Più lungo è il documento, più tempo impiega la macro per completare il suo lavoro.

Se vuoi semplicemente trovare la prossima occorrenza di un cambio di carattere, allora la seguente macro molto breve è abbastanza utile:

Sub FindDifferentFont()

Selection.SelectCurrentFont   Selection.Collapse wdCollapseEnd End sub

Il metodo SelectCurrentFont estende la selezione corrente fino a quando non viene apportata una modifica al carattere (carattere tipografico) o alla dimensione del carattere. Quindi, se inizi dall’inizio del documento ed esegui la macro (forse potresti assegnarla a un tasto di scelta rapida), il punto di inserimento viene spostato dove termina il carattere corrente e inizia un nuovo carattere.

_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 (11069) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Trovare testo senza usare un carattere particolare.