Copiar contenido de un textbox en userform a una plantilla word
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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.