Slette tomme formularfelter og de linjer, som felterne står på

Hej

Jeg har følgende kode til at slette tomme formularfelter:

Sub SletFormularfelter1()

If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect
End If

For Each frmf In ActiveDocument.FormFields
    If frmf.Result = "" Then
        frmf.Delete
    End If
Next

ActiveDocument.protect wdAllowOnlyFormFields, True

End Sub

Jeg vil meget gerne have udvidet koden, således at det ikke kun er det tomme tekstfelt, som slettes, men hele linjen, som tekstfeltet står på.