Início
Olá, a propósito de questão de colega, partilho exemplo de gerar PDF a partir de um documento de Word.
Segue o código e exemplo:
Segue o código e exemplo:
- Código:
' AHTEIXEIRA 2016 para MaximoAccess
'Requer referencia Microsoft Word xx.xx Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim FicheiroPDF As String
Me.EstadoGerar.Caption = "A processar ..."
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open(CurrentProject.Path & "\MODELO CONTRATO - NET SINDICO.docx")
FicheiroPDF = CurrentProject.Path & "\MODELO CONTRATO - NET SINDICO.pdf"
wordDoc.ExportAsFixedFormat OutputFileName:=FicheiroPDF, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True
wordDoc.Close saveChanges:=False
Me.EstadoGerar.Caption = ""
MsgBox "Feito, verifique na pasta", vbInformation, ""
- Anexos
GeraPDFdeDocWord.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (179 Kb) Baixado 309 vez(es)