Microsoft Office Forums - View Single Post - Deleting the first word of a second paragraph

vivka · 03-12-2024, 06:00 AM

This is better. Since cset recognizes characters, not strings, "Example" is useless:

Code:

Sub Del_Test()
Dim oRng As range
    Set oRng = selection.Paragraphs(2).range
    If InStr(oRng, "Example") Then
        oRng.Collapse
        oRng.MoveEndUntil cset:="E"
    Else
        oRng.Collapse
        oRng.MoveEnd unit:=wdCharacter, count:=8
    End If
    oRng.Delete
Set oRng = Nothing
End Sub