Sletning af felt word

Nedenstående undersøger alle felter i det aktive dokument (dog kun i hovedindholdet - ikke sidehoved, sidefod osv.). Hvis et felt er af typen DocProperty, tjekker koden, om "Tidligere ansættelseX" findes i feltkoden. I givet fald slettes feltet. Se kommentaren i koden.

    Dim oField As Field
   
    For Each oField In ActiveDocument.Fields
        If oField.Type = wdFieldDocProperty Then
            If InStr(1, oField.Code.Text, "Tidligere ansættelseX") > 0 Then
                oField.Delete
                'hvis der kun findes et felt, som skal slettes, kan du stoppe nu - ellers fjern næste linje
                Exit For
            End If
        End If
    Next oField

Tusind tak for hjælpen :-)