Word Impressão vba para mala direta - Concatenar

[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

        

[Edson Luiz Branco]

Bem vinda ao fórum, @Roseli!

 

Mas "Ticket" também é um campo de mala direta, tal como "Nome" é?

 

Se sim, bastaria você inserir mais uma linha naquele trecho para concatenar as 2 informações:

 

...
...
nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value
'Acrescentar esta linha:
nomeArquivo = nomeArquivo & ActiveDocument.MailMerge.DataSource.DataFields("Ticket").Value
...
...

 

Se não for isso, anexe seu arquivo aqui no fórum zipando-o primeiro.