Este fórum está sendo desativado

[VictorO]

Pessoal, preciso de uma ajuda aqui no trabalho, Preciso automatizar uma criação de certificados, então preciso de um código que copie os dados de uma planilha do excel (Nomes, datas, local, nome do curso, etc) para o word e que salve o documento word em PDF com o nome do Aluno que estiver no certificado. OBG!

[alexandrevba]

Boa tarde!!

Poderia postar seu arquivo modelo?
Para mais veja:
http://www.thespreadsheetguru.com/blog/ ... d-with-vba

Att

[Edu]

Acredito que a fermenta do Word Mala Direta resolveria seu problema, ela fica no menu correspondência.

[VictorO]

Segue o anexo

[alexandrevba]

Bom dia!!

Você consegue adaptar?
http://www.learnexcelmacro.com/2012/01/ ... e-in-word/

Att

[VictorO]

Bom, oq consegui por enquanto foi vincular a planilha excel ao documento word, ai já tenho uma base de dados a ser preenchida no word, oque preciso agora é fazer com que o word salve todos os certificados em pdf(certificados separados) cada um com o nome do aluno q estiver no certificado.

[alexandrevba]

Bom dia!!
Veja se ajuda....

Código: Selecionar todos

Sub ConvertWordsToPdfs()
'Fonte: http://sebnilsson.com/blog/microsoft-word-macro-convert-word-files-to-pdf-files/
'Talvez seja necessário referenciar a biblioteca Microsoft Word 15.0 Object Library
    Dim directory As String
    directory = "C:\SeuDiretorioDeArquivosDo_WORD"
  
    Dim fso, newFile, folder, files
    Set fso = CreateObject("Scripting.FileSystemObject") '
    
    Set folder = fso.GetFolder(directory)
    Set files = folder.files
    
    For Each file In files

        Dim newName As String
        newName = Replace(file.Path, ".doc", ".pdf")
                
        Documents.Open FileName:=file.Path, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
            
        ActiveDocument.ExportAsFixedFormat OutputFileName:=newName, _
            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.Close
      
    Next

End Sub

Att