Visual Basic - URGENTE...Remplazar texto en Word...!!!

Hola a todos, tengo este gran problema, resulta que tengo un archivo en word con 6 paginas donde solamente necesito reemplazar ciertas palabras es decir, ejemplo la fecha esta se encuentra en varias partes del documento y necesitó mandale una en especifica desde visual para que la reemplaze en todas las páginas donde se encuentre,el problema es ese no tengo ni idea de como hacerlo sé abrir el documento (word) desde visual pero quiero realizar hacer eso, si alguien tiene una idea de como hacerlo se lo agredecería mucho es URGENTE!!!

Saludos!!!!

Tenes que utilizar en Word, los llamados campos o controles de formularios, proteger el documento y referenciar los campos con los datos que queres modificar.-
Saludos Juan Pablo

Prueba con esto:
Dim MSWord As New Word.Application
Private Sub cmdRemplazar_Click()

MSWord.Visible = True
With MSWord
.Documents.Open App.Path & "\CARTA MODELO DE APOYO.doc"
End With
With Selection.Find
.ClearFormatting
.Text = "%%Buscar%%" 'Texto a buscar
.Replacement.ClearFormatting
.Replacement.Text = "Reemplazar" 'Texto a Remplazar
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
Set MSWord = Nothing
End Sub
Espero y te sirva...saludos!!!!