Microsoft Office Forums - View Single Post - [Solved] vba code in word to delete line having inline shape

gmayor · 06-18-2015, 02:21 AM

There is no line in the document that contains 'this computer' and comment symbol. Can I assume you mean the line that contains 'Change Notification: Initial Screen' ? In which case

Code:

Sub DeleteRow()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute("Change Notification: Initial Screen")
            oRng.Rows(1).Delete
            Exit Do
        Loop
    End With
End Sub