Find alle, udfyld med gul markering ....

Du skal have fat i noget ligende dette, som skal placeres i kodemodulet, som hedder ThisDocument. Denne finder dog kun første gang der står \"Flemming\"

Private Sub Document_Open()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = \"Flemming\"
        .Replacement.Text = \"\"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Range.HighlightColorIndex = wdYellow

End Sub

Det er nemlig præcis det. Jeg har fat i koden du beskriver, men jeg skal have den til at finde alle forekomster og markere dem.

Jeg gætter på det må være noget i retning af:

Do while selection.text = \"Mit navn\"

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = \"Flemming\"
        .Replacement.Text = \"\"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Range.HighlightColorIndex = wdYellow
Loop

Men jeg kán ikke gennemskue sammensætningen!

Kopier denne kodestump ind i dit document og udskift \"HTML\" med det du vil have highlighted.

Private Sub Document_Open()
    Dim bFundet As Boolean
    Application.ScreenUpdating = False
    bFundet = True
    Do While bFundet
        Selection.Find.Text = \"HTML\"
        Selection.Find.MatchWholeWord = True
        bFundet = Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdYellow
    Loop
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Sub

Kodestumpen virker ikke. Der sker ingenting ved åbning af dokumentet.

Du skal placere kodestumpen i kodemodulet \"ThisDocument\" ellers sker der ingen ting.

Er sket - placeret i ThisDocument_Open ...

Nej ikke i ThisDocument_Open

I kodemodulet som hedder \"ThisDocument\" skal du placere koden som starter med \"Private Sub Document_Open()\"

Jeg skrev forkert. Jeg har placeret koden i ThisDocument, under Private Sub Document_Open().
Så det burde ikke være det der hindre kodens udførsel.

Du har nok slået makro\'er fra i din Word - check Funktioner / Makro / Sikkerhed - ændre fra Høj til Mellem.

Den virker fint hos mig.

I får begge halvdelen af pointene for jeres indsats. Jeg kan stadig ikke få det til at fungere, men har opdaget en lille detalje, der overflødiggør handlingen.

tak.