Private Sub Command1_Click()

    Dim objDoc As Word.Document

    Set objword = New Word.Application

    objword.Visible = True

    Set objDoc = objword.Documents.Open("c: esteindicador.doc")

   objDoc.Activate

'

' Localizar_palavra

'

    objword.Selection.Find.ClearFormatting

    With objword.Selection.Find

        .Text = "<<<Marcelo>>>"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    objword.Selection.Find.Execute

Set objDoc = Nothing

Set objword = Nothing

End Sub

e pronto palavra localizada e selecionada

Gostaria de agradecer ao colega Tiranosauro pela ajuda e todos os demais.

Vou manter o tópico aberto por mais uns dias caso queiram fazer comentários.

até