Word: Highlightning/fremhævning af ord fra en ordliste.

Du kan paste dine ord i en mail til mig, så skal jeg kigge på det :-)

flemse@post3.tele.dk

Hej dolomit

Så findes der en løsning :-)

Du skal markere den tekst, som du vil have vurderet og ændret til fed tekst.

Sub SpecialWords_Select()
Dim vWords As Variant
Dim i As Long

vWords = Array(\"en\", \"og\")

    For i = 0 To UBound(vWords)
        With Selection.Find
            .Format = True
            .ClearFormatting
            .MatchWholeWord = True
            .Text = vWords(i)
            .Replacement.Text = \"^&\"
            .Replacement.Font.Bold = True
            .Execute Replace:=wdReplaceAll
        End With
    Next i

End Sub

Opgiv din word-version, så laver jeg lige et tilføjelsesprogram til word, så får du 2 knapper - en der markerer ord og en der ophæver igen.

Flemming

Jeg bruger Word2000.

Glæder mig til at se resultatet :o)

Mvh. dolomit

Første udkast er sendt :-)