Imprimir página | Cerrar ventana

Crear carpeta y guardar documento Word generado.

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85344
Fecha de impresión: 19/Octubre/2021 a las 23:22


Tema: Crear carpeta y guardar documento Word generado.
Publicado por: Antonio Pedro
Asunto: Crear carpeta y guardar documento Word generado.
Fecha de publicación: 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@



Respuestas:
Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Antonio Pedro
Fecha de publicación: 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




Imprimir página | Cerrar ventana