Bruce sta cercando un modo per fare in modo che Word contrassegni automaticamente le frasi lunghe in un documento. Ad esempio, potrebbe voler avere quelle frasi con più di 20 parole contrassegnate con un colore in modo che siano facilmente individuabili.

Fortunatamente, Word mantiene una raccolta di frasi, accessibile tramite VBA, che consiste in ogni frase in un documento. Puoi esaminare ogni elemento di questa raccolta (ogni singola frase) per determinare se è più lungo della lunghezza desiderata. La macro seguente fornisce un esempio di come eseguire questa operazione.

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Si noti che ogni frase viene esaminata e se è più lunga della lunghezza desiderata (definita dalla variabile iWords), la frase viene modificata in un colore di carattere rosso. In questo modo è facile esaminare il documento e scoprire quali frasi superano la lunghezza specificata.

_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 (3381) 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:

Finding Long Sentences.