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.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      28

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    1    1

  • Crear macros Excel

  • Mensajes

    • Hola La opción brindada por @torquemada es correcta, funciona, pero hay algunos inconvenientes que (desde mi punto de vista) no la convierten en mi primera elección. Los inconvenientes son: Tendrías que ir columna por columna haciendo los reemplazos, claro que no se harían a mano sino que utilizarías la opción reemplazar o la opción texto en columnas, aun asi demorará un poquito y será trabajoso. Cada vez que descargues otro listado, tendrás que volver a realizar los reemplazos. Me parece una mejor propuesta lo siguiente: Descarga los movimientos a un archivo de Excel Desde tu control de pagos (otro archivo) cargas los movimientos del archivo descargado mediante Power Query Power Query hará los reemplazos y reconocerá todo correctamente (sin que tengas que hacer nada especial) Cuando descargues los movimientos un día posterior, solamente tendrás que hacer clic en "Actualizar" y todo funcionará en automático
    • Hola a todos, Efectivamente, me temo que tal como trabajan las funciones =HOY() y/o =AHORA() (volátiles), sólo con macros puedes obtener soluciones. Un recurso pedestre podría ser, cada vez que quieras que se fije un dato, te sitúes en esa celda y pulses F2, F9 e INTRO.  Pero claro, puede ser un inconveniente si hay que hacerlo repetitivamente en muchas ocasiones,.............. en fin, lo comento sólo como posibilidad. Saludos,
    • Hola nuevamente, mi duda sigue siendo la ruta, o rutas, finales que quedan, esas que llamas "relativas"; igual por si acaso pon 3 o 4 de esas, tal cual son y/o se ven en el explorador de cada PC y, de ser posible, en cualquier otro "lado" en que las veas.
    • Hola, tal cual se plantea, solamente con macros (VBA); en todo caso, hacerlo a mano o con "CTRL + ;". Saludos.
    • Mil gracias, en verdad todo apoyo es super agradecido,   Su aporte y comentarios valen mucho para in servidor, y tiene razon esperare a conocer si alguien comparte alguna otra manera,   Gracias!!! (y)
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • 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.