Word - Exportar word a pdf con nombre y ruta variable según valor de campo correspondencia y lista desplega

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 6 puestos en Word (en relación al último mes)
Gráfica de Word

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)

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder