Saltar al contenido

Copiar contenido de un textbox en userform a una plantilla word


chiquitinx

Recommended Posts

publicado

Estimados:

trato de ver el codigo que copie el contenido de diferentes textbox alojados en un userform a una plantilla de word. Eh buscado respuestas sobre este tema y no logro encontrar respueta a este dilema. Si bien hay codigos para copiar datos de una celda a word no puedo encontrar lo que les comento, adiconalmente lo mucho que pude acercame a mi respuesta es el siguiente extracto de codigo.

 

wdReplaceAll = 2 'Todas las ocurrencias
  ' Set Obj_Word = CreateObject("Word.Application")  
 '  Obj_Word.Visible = True
 '  Obj_Word.Documents.Open Filename:=ThisWorkbook.Path & "\Informe.docx"    
 '  For y = 1 To 11
 '     With Obj_Word.Selection.Find
 '         .Text = "[" & Cells(1, y).Value & "]"
 '         .Replacement.Text = Cells(L.ListIndex + 2, y).Value
 '         .Forward = True
 '         .Wrap = wdFindAsk
 '         .Format = False
 '         .Execute Replace:=wdReplaceAll
 '     End With
 '  Next
 '  Set Obj_Word = Nothing

pero aparece un error esto es copiar de celdas lo que requiero es asignar el contenido del textbox y no el contenido de una celda. Espero puedan ayudarme o guiarme.

Gracias de antemano por su ayuda.

 

 

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.