Word vba - delete a line

WordExample01.vba

Option Explicit

Sub DeleteLine()
'
' Utilities Macro
'
'
Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Wrap = wdFindStop
        .Text = "Uniqueid"
        Do While .Execute
            ActiveDocument.Bookmarks("\Line").Range.Delete
        Loop
    End With
    Application.ScreenUpdating = True
End Sub