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

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