Visual Basic - variables a documento word

hola, tengo un problemilla es que cuando pico en un boton pues me aparece un documento word con su texto, pero en determinados sitios quiero que se rellenen con cajas de texto de la aplicacion y no se como hacerlo, es para una aplicacion de una inmobiliaria y el documento es para generar los contratos, espero vuestra ayuda, gracias

Hola, te envio este codigo ojala te sirva de algo este lo hice para generar contratos de servicios profesionales, los datos son extraidos de 6 cuadros de texto:
txtnombre
TxtAP
T xtAM
TxtFechaini
TxtFechafin
Txtsueldo
Bueno lo cierto es q el original tiene algunas cosillas mas pero lo esencial esta aqui:

====================================================================
Private Sub GenerarDoc_Click()
Dim PARRAFO1 As String
Dim PARRAFO2 As String

PARRAFO1 = "El presente contrato el celebrado entre la Corporación CONTRATISTAS S.A.." _
& " a quien en adelante se llamara EMPLEADOR y el Sr.(a) o Srta. " & txtnombre & " " _
& TxtAP & " " & TxtAM & " Quien en adelante se llamara EMPLEADO"

PARRAFO2 = Chr(10) & Chr(13) & "Se contrata los servicios del EMPLEADO con gose de todos los beneficios" _
& " de ley desde la fecha " & TxtFechaini & " hasta " & TxtFechafin & " y percibiendo el sueldo de : " & Txtsueldo

Set oDW = CreateObject("WORD.APPLICATION")
oDW.Documents.Add
oDW.Documents(1).CONTENT.Font.Name = "ARIAL"
oDW.Documents(1).CONTENT.Font.Size = 12

oDW.ACTIVEDOCUMENT.RANGE(0, 0).INSERTBEFORE ("CONTRATO DE SERVICIOS PROFESIONALES" & Chr(10) & Chr(13) & Chr(10) & Chr(13))
oDW.Documents(1).PARAGRAPHS(1).Alignment = 1

oDW.ACTIVEDOCUMENT.PARAGRAPHS.Add
oDW.ACTIVEDOCUMENT.PARAGRAPHS.Add
oDW.ACTIVEDOCUMENT.PARAGRAPHS.Add
oDW.ACTIVEDOCUMENT.PARAGRAPHS(1).RANGE.Font.Bold = True

NFINAL1 = oDW.Documents(1).PARAGRAPHS(3).RANGE.END
oDW.ACTIVEDOCUMENT.RANGE(0, NFINAL1).INSERTAFTER (PARRAFO1)
oDW.Documents(1).PARAGRAPHS(4).Alignment = 3

NFINAL2 = oDW.Documents(1).PARAGRAPHS(4).RANGE.END
oDW.ACTIVEDOCUMENT.RANGE(0, NFINAL2).INSERTAFTER (PARRAFO2)
oDW.Documents(1).PARAGRAPHS(7).Alignment = 3
oDW.Visible = True
End Sub

===================================================================