Finne lange setninger

July 7  by Eliza

Bruce er på utkikk etter en måte å ha Word automatisk merke lange setninger i et dokument. For eksempel kan han ønsker å ha disse setninger med mer enn 20 ord markert i litt farge, slik at de er lett ligger.

Heldigvis holder Word en Setninger samling, tilgjengelig gjennom VBA, som består av hver setning i et dokument. Du kan undersøke hvert element i denne samlingen (hver enkelt setning) for å fastslå om det er lengre enn ønsket lengde. Følgende makro gir et eksempel på hvordan dette kan gjøres.

Sub Mark_Long ()
Dim iMyCount As Integer
Dim iWords As Integer

Hvis ikke ActiveDocument.Saved Deretter
ActiveDocument.Save
End If

'Tilbakestill teller
iMyCount = 0

'Set antall ord
iWords = 20

For Hver MySent I ActiveDocument.Sentences
Hvis MySent.Words.Count> iWords Then
MySent.Font.Color = wdColorRed
iMyCount = iMyCount + 1
End If
Neste
MsgBox iMyCount & "setninger lengre enn" & _
iWords & "ord."
End Sub

Legg merke til at hver setning er undersøkt, og hvis den er lenger enn den ønskede lengde (definert av de variable iWords) deretter setningen endres til en rød skriftfarge. Dette gjør det enkelt å undersøke dokumentet og finne ut hvilke setninger overskride lengden du har angitt.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (3381) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Finne lange setninger.