none
Converter Macros VBA - Office 365 RRS feed

  • Discussão Geral

  • Pessoal, boa tarde!

    Tinha uma macro configurada para Salvar em PDFs sepadados diversos Certificados de Mala Direta do Word.

    Porém, infelizmente com a mudança do Pacote Office da Minha empresa do 2010 para o 365, a Macro/VBA ficaram completamente desconfigurados e não estão mais funcionando.

    Existe algum meio de converter essa Macro para que ela volte a funcionar ou gerar uma nova similar ao pacote office 365?

    Segue abaixo a macro utilizada no pacote anterior:

    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("Segurado").Value

         ActiveDocument.ExportAsFixedFormat OutputFileName:= _
             "Y:\Silva, Pamela\IBPP\" & 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

    Obrigado!

    Abs

    Renan

    sexta-feira, 22 de junho de 2018 23:06