Roseli

Pessoal, Estou tentando imprimir automaticamente a mala direta em PDF e dar o nome do arquivo com 2 informações de dentro do word. Alguém saberia como fazer? Preciso que nesse trecho, conste 2 informações (Exemplo: Nome + Ticket) - nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value Código completo: Sub SalvarComoPDF() Dim qtde As Integer Dim nomeArquivo As String Dim registro As Integer 'Set Mail Merge in the first register ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord 'Mail Merge Count qtde = ActiveDocument.MailMerge.DataSource.RecordCount 'arquivo = ActiveDocument.MailMerge.DataSource.FieldNames(1).Name 'For to exportToPDF all registers For registro = 1 To qtde nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value ActiveDocument.ExportAsFixedFormat OutputFileName:= _ "C:\Users\rosel\Desktop\Nome excel\Imp\" & nomeArquivo & ".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 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord Next registro End End Sub