** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Crear carpeta y guardar documento Word generado.
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCrear carpeta y guardar documento Word generado.

 Responder Responder
Autor
Mensaje
Antonio Pedro Ver desplegable
Asiduo
Asiduo


Unido: 13/Diciembre/2005
Estado: Sin conexión
Puntos: 258
Enlace directo a este mensaje Tema: Crear carpeta y guardar documento Word generado.
    Enviado: 13/Junio/2020 a las 23:07
Buenas noches,tengo la siguiente instrucción la cual me guarda un documento generado (access-word), en la carpeta sintomas:

docWord.SaveAs "C:\SINTOMAS\" & Forms!FSintomas!Texto188 & ".doc"

Lo que pretendo es que ese documento que se crea se guarde en una subcarpeta que creo con la siguiente instrucción:

Carpeta = "C:\SINTOMAS\" & "Sintomas atestado " & Forms!FSintomas!Texto188

MkDir Carpeta

strNuevoDocumento = Forms!FSintomas!Texto188 & ".doc"

MkDir Carpeta & "\" & strNuevoDocumento

Quedando así SINTOMAS\Sintomas atestado

Lo que estoy intentando y no se crea es que el documento Word que se ha generado llamado 001-2020 ALCOH se guarde en la Ruta SINTOMAS/Sintomas atestado/001-2020 ALCOH. 
Alguna ayuda. 
Un Salud@
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11668
Enlace directo a este mensaje Enviado: 14/Junio/2020 a las 09:49
¿Y cómo lo haces?

docWord.SaveAs Carpeta & "\" & strNuevoDocumento


debería funcionar.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Antonio Pedro Ver desplegable
Asiduo
Asiduo


Unido: 13/Diciembre/2005
Estado: Sin conexión
Puntos: 258
Enlace directo a este mensaje Enviado: 16/Junio/2020 a las 21:35

Hola y Saludos, es una combinación que hago de Access con Word (gracias a la ayuda de prga) no he puesto toda la instrucción pues es demasiado larga. Esta última instrucción es la que me guarda el documento generado en una carpeta:

 docWord.SaveAs "C:\SINTOMAS\" & Forms!FSintomas!Texto188 & ".doc"

Siendo, Texto188, un número de expediente.

Con tu ayuda que me ha servido de mucho, ya lo tengo solucionado, con algunos cambios, dejo por si pudiera servir:

Dim Carpeta As String

Dim Subcarpeta As String

Carpeta=”C:\SINTOMAS”

SubCarpeta= Forms!FSintomas!Texto188

MKDir Carpeta & “\” & SubCarpeta

docWord.SaveAs Carpeta & “\” & SubCarpeta & “\”Forms!FSintomas!Texto188

Nuevamente gracias por responder. Se puede cerrar el hilo.

 Un Saludo

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable