guardar word como pdf
Publicado por informatic (2 intervenciones) el 26/10/2019 05:25:04
Hola, estoy realizando un formulario que al momento de terminarlo quiero guardarlo en una carpeta como pdf
si bien logro hacer que guarde el archivo word a pdf, mi problema cae cuando el nombre de un archivo es repetido,
me gustaria saber que cuando haya un archivo repetido se cree el mismo nombre de archivo mas un numero correlativo
es decir,
nombrearchivo.pdf
nombrearchivo(1).pdf
nombrearchivo(2).pdf
Este es mi codigo...
si bien logro hacer que guarde el archivo word a pdf, mi problema cae cuando el nombre de un archivo es repetido,
me gustaria saber que cuando haya un archivo repetido se cree el mismo nombre de archivo mas un numero correlativo
es decir,
nombrearchivo.pdf
nombrearchivo(1).pdf
nombrearchivo(2).pdf
Este es mi codigo...
1
2
3
4
5
6
7
8
9
10
Dim ruta as String
Dim minombrecompleto as String
Dim strName as String
ruta = "C:\Users\Usuario\Desktop\micarpeta\"
strName = ruta & minombrecompleto
ActiveDocument.ExportAsFixedFormat OutputFileName:=strName, ExportFormat:=17, OpenAfterExport:=True, OptimizeFor:=0, Range:=0, From:=1, To:=1, Item:=0, IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=0, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
UserForm1.HideApplication.Quit SaveChanges:=wdDoNotSaveChanges
Valora esta pregunta
0