Microsoft Office Forums - View Single Post - [Solved] Find and Replace not capturing entire line

Steve Kunkel · 04-22-2021, 10:00 AM

Thanks for moving this to the correct forum. I was able to edit your above find and replace definitions to use the value from my text box. The below code works perfectly and I'm able to simply call my above posted function, which is nice.

Code:

Private Sub cmdLeftPad_Click()
    Call DoFindClean("([ A-Z]@[!^13^l]{1,})", (txtPadding.Value) & "\1", 0, 1)
    Call DoFindClean((txtPadding.Value) & "([ ]@<)", "\1" & (txtPadding.Value), 0, 1)
End Sub
Private Sub cmdRightPad_Click()
    Call DoFindClean("([ A-Z]@[!^13^l]{1,})", "\1" & (txtPadding.Value), 0, 1)
End Sub