Insertar un texto por código

Perdón por la tardanza, pero puedes agregar el siguiente código a un módulo, y luego lo ejecutas cuando aprietas el botón.
Private Sub ReempazarEnWord()
Dim MyApp As New Word.Application
Dim MyDoc As Word.Document
Dim MyDocFile As String
Dim defaultSearchString As String
MyDocFile = "C:\Mis documentos\x.doc"
defaultSearchString = "......"
Set MyApp = New Word.Application
Set MyDoc = MyApp.Documents.Open(MyDocFile)
With MyDoc.ActiveWindow
.Visible = True
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With .Selection.Find
.Text = defaultSearchString
'toma el valor introducido en el cuadro de texto de fecha
.Replacement.Text = Forms!Formulario1![txtFecha]
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With
MyDoc.Save
MyDoc.Close
MyApp.Quit
Set MyDoc = Nothing
Set MyApp = Nothing
End Sub