Utilizar texto del documento como nombre del archivo
Publicado por Eduardo (7 intervenciones) el 15/10/2019 20:23:09
Estoy trabajando con combinar correspondencia para generar cartas a clientes, tengo una macro que divide el documento en varios archivos pdf pero me gustaría que cada archivo pdf resultante tuviera de nombre de archivo el nombre de cada uno de los pacientes
Agradecería cualquier ayuda para llegar a lo que necesito
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub GUARDAR_HOJAS()
Dim num_paginas As Integer
Dim num_doc As Integer
Dim pag_inicial As Integer
Dim pagina_final As Integer
Dim URL As String
Dim nombres As String
num_paginas = InputBox("Ingrese el numero de paginas por documento")
num_doc = InputBox("¿Cuantos documentos desea generar?")
URL = "C:\Users\Jesus Baltazar\Documents\Portadas"
nombres = Portadaspag_inicial = 1pagina_final = num_paginasFor i = 1 To num_docActiveDocument.ExportAsFixedFormat OutputFileName:= _
URL & "\" & nombres & i & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=pag_inicial, To:=pagina_final, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory URL
pag_inicial = pagina_final + 1
pagina_final = pagina_final + num_paginas
Next i
End Sub
Agradecería cualquier ayuda para llegar a lo que necesito
Valora esta pregunta
0
