View Single Post
 
Old 11-23-2023, 03:14 AM
RobiNew RobiNew is offline Windows 10 Office 2016
Competent Performer
 
Join Date: Sep 2023
Posts: 200
RobiNew is on a distinguished road
Default

Hi, Gmaxey! I was trying to use part of your code, but I failed somehow. I cannot force it to insert the new line. Thanks!
Code:
Set oRng = ActiveDocument.Range
    With oRng.Find
        .Text = " (about"
        .Replacement.Text = ""
If .Execute Then MsgBox "Found"
If .Execute Then oRng.InsertBefore "^l"
    End With
Reply With Quote