none
IMPRESSÃO MALA DIRETA PDF SEPARADO VBA RRS feed

  • Pergunta

  • Pessoal, 

    Gostaria de uma ajuda na revisão do código para impressão em pdf de uma mala direta em word.

    Ao executar está dando o Erro em tempo de execução 5852 (O Objeto selecionado não está disponível), quando passa pela linha: ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

    Agradeço pela ajuda.

    Josenildo

    Sub SalvarPDF()
      Dim qtde As Integer
      Dim nomeArquivo As String
      Dim registro As Integer
    
      ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
      qtde = ActiveDocument.MailMerge.DataSource.RecordCount
      arquivo = ActiveDocument.MailMerge.DataSource.FieldNames(1).Name
    
      For registro = 1 To qtde
      
      nomeArquivo = ActiveDocument.MailMerge.DataSource.DataFields("Nome").Value
    
      ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\jcalmeida\Documents\" & 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 Sub

    segunda-feira, 6 de abril de 2020 14:17