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