Excel Erro ao gerar a partir do word um pdf no Excel VBA

[Paulo3536]

Olá,

Tenho um VBA que gera uma mala direta no Word e salva o arquivo...

Mas preciso que este arquivo seja salvo em pdf
O arquivo word salva perfeitamente com:

ArqXXX.saveas2 ArqXXX.Path & Nome & ".docx"

 

Tentei fazer com o mesmo comando para pdf, salva o arquivo, mas o arquivo fica corrompido (não abre)
ArqXXX.saveas2 ArqXXX.Path & Nome & ".pdf" 

 

Tentei também atráves de um outro comando mais completo que achei:

  

  ArqXXX.ExportAsFixedFormat OutputFileName:=ArqXXX.Path & Nome & ".pdf", _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
    OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, _
    KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False

 

Este dá msg de erro:

 

Erro em tempo de execução "5":

Argumento ou chamada de procedimento inválida

 

Alguém sabe como posso corrigir...

 

Agradeço a ajuda....

 

[Midori]

@Paulo3536 Para salvar em PDF é com o procedimento ExportAsFixedFormat. A macro é do Word ou Excel? A lista de parâmetros desse procedimento em um é diferente no outro.

[Scofieldgyn]

@Paulo3536 peguei esse material de um usuário na internet explicando como fazer pra salvar o arquivo em PDF a partir do Word.

Salvar individualmente em PDF.zip