RE:variables a documento word
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
===================================================================