Edit_Autofield

Sub Ret_SEQ_Felt()
'
' Ret_SEQ_Felt Makro
' Makro kodet 10-12-2002 af Torben Jørgensen for Berlingeske Tidene
' ©opyright  T-Systems Danmark
'
On Error GoTo Err_Ret_SEQ_Felt
    Selection.Find.ClearFormatting
    
    With Selection.Find
        .Text = "Fejl! Bogmærke er ikke defineret."
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
' start søgning
    Do While wdEndOfDocument = 1
        Selection.Find.Execute
        If Selection.Range <> "" Then
            Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
                "SEQ /*", PreserveFormatting:=True
        Else
            Exit Sub
        End If
    Loop
    
Exit_Ret_SEQ_Felt:
    Exit Sub
    
Err_Ret_SEQ_Felt:
    MsgBox Err.Description
    Resume Exit_Ret_SEQ_Felt
    
End Sub