Combinar Texto con TextBox

Hola Elsa, ¿me podrías ayudar con la siguiente cuestión?
Tengo que añadir varias frases en un documento texto y combinarlas con el valor de varios TextBox para crear un documento, es decir, que una persona rellene un pequeño formulario y con los datos del mismo se combinen con texto y en conjunto Word cree un documento, pero no hay forma, me da error y no tengo ni idea de como puedo conseguirlo, lo he cambiado de muchas formas y en todas me da error, creo que el problema está en la forma de combinar el texto que inserto con los textBox, si me ayudas me harás un gran favor.
Esto es lo que tengo por ahora...
Sub Aviso_Familiar()
Dim StrgHora As String
Dim StrgFechaActual As String
Dim StrgNom As String
Dim StrgApe1 As String
Dim StrgApe2 As String
Dim StrgParentescoFamiliar As String
Dim StrgNomApellFamiliar As String
StrgHora = TextHora.Text
StrgFechaActual = TextFechaActual.Text
StrgNom = TextNom.Text
StrgApe1 = TextApe1.Text
StrgApe2 = TextApe2.Text
StrgParentescoFamiliar = TextParentescoFamiliar.Text
StrgNomApellFamiliar = TextTelefonoFamiliar.Text
Selection.MoveUp Unit:=wdLine
Selection.EndKey Unit:=wdStory
With Selection
.Font.Bold = wdToggle
If .Font.Underline = wdUnderlineNone Then
.Font.Underline = wdUnderlineSingle
Else
.Font.Underline = wdUnderlineNone
End If
.ParagraphFormat.Alignment = wdAlignParagraphJustify
.TypeText Text:="DATOS DEL FAMILIAR"
.TypeParagraph
.Font.Bold = wdToggle
If .Font.Underline = wdUnderlineNone Then
.Font.Underline = wdUnderlineSingle
Else
.Font.Underline = wdUnderlineNone
End If
.InsertAfter vbTab & "En XXXX (XXXXXX) a las" & StrgHora & "horas del día "
.Collapse Direction:=wdCollapseEnd
.InsertAfter StrgFechaActual & " se ha presentado en esta Oficina la persona que acreditó llamarse "
.InsertAfter StrgNom & StrgApe1 & StrgApe2 & " y solicitó se comunique a su "
.InsertAfter StrgParentescoFamiliar & " llamado " & StrgNomApellFamiliar & "con domicilio en "
.InsertAfter StrgDomicilioFamiliar & " al teléfono " & StrgTelefonoFamiliar
.TypeParagraph
' Sigue bastantes líneas más pero si me dices donde cometo el error y como solucionarlo es suficiente
End With
End Sub
La finalidad es combinar los textBox a los que he renombrado con TextNom, TextApe1, etc. Con varias frases.-
Gracias por tu paciencia y ayuda de antemano...

1 respuesta

Respuesta
1
Perdón por la demora.
Lo que he visto es que debieras agregar la instrucción:
.Collapse Direction:=wdCollapseEnd luego de cada InserAfter
Otra cosa que debieras saltar de página luego de rellenar los textbox.
Y un detalle: faltan algunos espacios entre los campos.
En mi ejemplo con estos cambios estuvo todo bien.
Suerte y por favor no olvides finalizar la consulta.
Elsa
Me preguntaba si te había llegado la respuesta. No olvides que necesitamos que finalicen la consulta una vez terminado el tema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas