Microsoft Office Forums - View Single Post - [Solved] Delete Character on Single Line Only

Tye30 · 04-20-2017, 09:49 AM

macropod, thank you! This is great! I just had to tweak it a little bit, but this what I was hoping for

Code:

 
    Dim StrTmp As String
    
    With Selection
        .Start = .Paragraphs.First.Range.Start
        .End = .Paragraphs.First.Range.End - 1
         StrTmp = Trim(Replace(Replace(.Text, "L31", "@@@"), "|", ""))
        'Do While InStr(StrTmp, "  ") > 0
        ' StrTmp = Replace(StrTmp, "  ", " ")
        'Loop
        .Text = StrTmp
    End With
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine