Sub MyReplacements(oDoc As Object)
'A basic Word macro coded by Greg Maxey
'as modified by Graham Mayor ;)
Dim arrTerms() As String
Dim oRng As Object
Dim lngIndex As Long
    arrTerms = Split("(\<italics\>)(*)(\<italics/\>)|(\<bold\>)(*)(\<bold/\>)|(\<indent\>)(*)(\<indent/\>)", "|")
    For lngIndex = 0 To UBound(arrTerms)
        Set oRng = oDoc.Range
        With oRng.Find
            .Text = arrTerms(lngIndex)
            .MatchWildcards = True
            Select Case lngIndex
                Case 0: .Replacement.Font.Italic = True
                Case 1: .Replacement.Font.Bold = True
                Case 2: .Replacement.ParagraphFormat.LeftIndent = 72
            End Select
            .Replacement.Text = "\2"
            .Execute Replace:=2
        End With
    Next
lbl_Exit:
    Set oRng = Nothing
    Set oDoc = Nothing
    Exit Sub
End Sub