Microsoft Office Forums - View Single Post - Deleting specific strings of characters in specific positions

RobiNew · 11-24-2023, 02:03 AM

Thanks a lot, Gmaxey! All this is very instructive. Your code works like charm.
At present I'm trying to remove underline in a specific postion (lastChr). But the code removes underline in the whole document. Please help!

Code:

With ActiveDocument
    LastChr = .GoTo(wdGoToPage, wdGoToLast).End
    .Range(LastChr, ActiveDocument.Range.End).Font.Underline = False
    .Range(LastChr, ActiveDocument.Range.End).InsertAfter Chr(13) & "Firt Part - End"
End With