Microsoft Office Forums - View Single Post - [Solved] Find word and replace tab with two spaces

jeffreybrown · 05-01-2021, 07:49 PM

Hi Andrew,

I added an array to attack more than one word, but also need to reset the left indent. Can't seem to find the right syntax.

This works for the array, but not the left indent.

Code:

Sub ReplaceWords()
    Dim MyList As Variant: MyList = Array("MESSAGE:", "SCRIPTURE:")
    Dim oRng As Word.Range: Set oRng = ActiveDocument.Range
    Dim i As Integer
    For i = 0 To UBound(MyList)
        With oRng.Find
            .ClearFormatting
            .Text = MyList(i) & vbTab
            .Replacement.Text = MyList(i) & "  "
            .Execute Replace:=wdReplaceAll
'            .ParagraphFormat.LeftIndent = InchesToPoints(0)
        End With
    Next i
End Sub