Optimering af makro til at slette afsnit under et tekstfelt

Hej

Jeg har fået nedenstående kode til at slette et afsnit på baggrund af et bestemt resultat i et tekstfelt. Den skal dog finjusteres, da koden samtidig sletter mit tekstfeltet, og det er ikke meningen

Tekstfeltet skal beholdes, så det kun er afsnittene nedenunder, der slettes. Hvad skal der ændres?


Sub SletAfsnit()

Dim oField As FormField
    Dim oDoc As Document
    Dim oRange As Range
 
    Set oDoc = ActiveDocument
    For Each oField In oDoc.Range.FormFields
        If oField.Result = "Der er ikke givet dispensation." Then
            Set oRange = oField.Range.Paragraphs(1).Range
            'Extend range to include 6 next paragraphs
            If oRange.MoveEnd(UNIT:=wdParagraph, Count:=4) <> 0 Then
                oRange.Delete
            Else
                'MoveEnd returns 0 if less than 4 paragraphs are found after paragraph with field
                'Insert code here if something is going to happen in case less than 2 paragraphs were found
            End If
        End If
    Next oField
 
    Set oDoc = Nothing

End Sub

Mvh Lars