Reemplazar palabras en un documento de Word con texto en VB

Private Sub Command1_Click()

Dim wordObj

Establecer wordObj = CreateObject("Word.Application")

wordObj. Abra ("c:\1.doc") 'Ruta del documento WORD

Con wordObj.Selection.Find

.ClearFormatting

.Replace.ClearFormatting

.Text.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = "#text1"

.Replacement.Text = Texto1

Terminar con

wordObj.Selection.Find.Execute Reemplazar:=2

wordObj.Documents.ClearFormatting

.Text = "#text1"

.Save

wordObj.Quit

End Sub