@Edson Luiz Branco por gentileza pode me ajudar?
Em 2016 você ajudou com uma macro para separar malas diretas em arquivos distintos de PDF. Vide abaixo:
XXXsua macroXXX
Sub SalvaPDFsIndividuais() Const Caminho = "C:\Users\SeuNomeUsuário\Desktop\PDFs\" Dim i As Long For i = 1 To ThisDocument.Range.Information(wdNumberOfPagesInDocument) ThisDocument.ExportAsFixedFormat OutputFileName:=Caminho & "Arquivo " & i, _ ExportFormat:=wdExportFormatPDF, _ Range:=wdExportFromTo, From:=i, To:=i Next i End Sub
XXXX
Como faço para salvar em Word?
Troco PDF no wdExportFormatPDF por docx e dá erro.
Outra pergunta, é possível o nome do arquivo ser baseado em coluna da lista que gerou a mala direta?
Para que eu tenha cada arquivo já com nome certo.
Muito obrigado