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