Gerar arquivo PDF a partir de documento do WORD

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

Gerar arquivo PDF a partir de documento do WORD

Mensagempor ahteixeira » 09 Abr 2016, 12:07

Olá, a propósito de questão de colega noutro fórum, partilho exemplo de gerar PDF a partir de um documento de Word.
Segue o código e exemplo:
Código:
' AHTEIXEIRA 2016 
'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, ""

Abraço
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante