Find gentagne ord (svær)
Sat på siden 20-02-2004
Vigtigheden af et varieret sprog kan ikke overvurderes. Det er derfor vigtigt at finde ud af, om man ubevidst gentager det samme ord igen og igen ...
En lille makro kan hjælpe dig med at finde ud af, om du har gentaget dig selv for ofte i et Word-dokument.
Måske har du aldrig prøvet at arbejde med makroer i Word før, men det er faktisk ikke så svært, som det måske lyder. Makroerne er i øvrigt nok grunden til, at Word stadig er et af de bedste tekstbehandlingsprogrammer.
Sådan laver du makroen:
1) Start Word, og vælg menuen Funktioner -> Makro -> Visual Basic Editor. (Du kan også bare taste Alt+F11.)
2) Klik på Insert -> Module.
3) Skriv følgende:
Sub findDubletter()
Const minBogstaver =
3
Const antalOrd = 150
Dim lfo As
New Collection 'liste over foregående ord
Dim w, v, g, fo,
dubletFundet
For Each w In
ThisDocument.Words
v = Trim(w.Text)
g = InStr(1, v, Chr(146)) + InStr(1, v, "'")
If g > 0
And g < Len(v) Then v = Mid(v, g + 1)
If Len(v) >
minBogstaver Then
dubletFundet =
False
For Each fo In lfo
If fo = v
Then dubletFundet = True
Next
If
dubletFundet Then
w.HighlightColorIndex =
wdYellow
Else
lfo.Add
(v)
If lfo.Count > antalOrd Then lfo.Remove (1)
End
If
End If
Next
End Sub
4) Hvis du vil have, at makroen skal ignorere ord, der er længere end 3 bogstaver, skal du ændre "minBogstaver = 3" til det antal, du ønsker. Hvis du vil have, at makroen skal finde ord, der er gentaget over et større område end 150 ord, skal du ændre "antalOrd = 150" til det antal ord, du ønsker.
5) Så snart du har oprettet makroen og har gemt den, kan du gå tilbage i Word og køre makroen ved at vælge Funktioner -> Makro -> Makroer og dobbeltklikke på findDubletter. Hvis du har dubletter i dokumentet, vil de blive vist med gul overstregning.