Exportar word a pdf con nombre y ruta variable según valor de campo correspondencia y lista desplega
Publicado por Yanina (2 intervenciones) el 01/11/2019 15:44:52
Tengo un documento word con los siguientes datos VARIABLES:
-Campo de correspondencia "Cliente"
-Campo de correspondencia "Abreviatura"
-Lista desplegable "TipoDoc"
-Campo de texto de formulario "Numero"
Lo que quiero hacer es exportar el documento word a pdf a través de vba
1) En la ruta "...Ventas\Cliente\"
2) Y con el nombre "Abreviatura TipoDoc Numero"
Tengo la siguiente macro que funciona perfecto solo si pongo los valores como texto normal (entre comillas)
Lo que necesito saber es cómo seleccionar el dato actual de los campos mencionados para que la macro tome esos valores para su ejecución.
Espero puedan ayudarme. Desde ya muchas gracias
-Campo de correspondencia "Cliente"
-Campo de correspondencia "Abreviatura"
-Lista desplegable "TipoDoc"
-Campo de texto de formulario "Numero"
Lo que quiero hacer es exportar el documento word a pdf a través de vba
1) En la ruta "...Ventas\Cliente\"
2) Y con el nombre "Abreviatura TipoDoc Numero"
Tengo la siguiente macro que funciona perfecto solo si pongo los valores como texto normal (entre comillas)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Exportar_pdf()
' Exportar_pdf Macro
Dim Cliente As Variant, Ruta As Variant, TipoDoc As String, Numero As Variant
Cliente= "xx" 'Campo Correspondencia "Cliente"
Abreviatura= "x" 'Campo correspondencia "Abreviatura"
Ruta = "Y:\Ventas\"
TipoDoc = "Nota" 'Valor de lista desplegable "TipoDoc"
Numero = "52" 'Valor de campo de texto de formulario "Numero"
ChangeFileOpenDirectory Ruta & "\" & Cliente
ActiveDocument.ExportAsFixedFormat OutputFileName:=Abreviatura & " " & TipoDoc & " " & Numero & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
Lo que necesito saber es cómo seleccionar el dato actual de los campos mencionados para que la macro tome esos valores para su ejecución.
Espero puedan ayudarme. Desde ya muchas gracias
Valora esta pregunta
0