[Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

Pessoal, aprendi aqui no forum como gerar transferir os dados do access para campos em um arquivo word porém eu quero gerar o mesmo arquivo em pdf. Existe alguma rotina para após a criação do arquivo word, pegar este arquivo e gerar um pdf?

Pesquisei aqui e tb na net mas não achei nada que fosse útil para este caso.

Obrigado

Pegar no word e guardar como: pdf ????

Gustavo, se o que você quer é exportar um Relatório para PDF (ja que tem o comando que exporta para WORD), Nao vejo a necessidade de Abrir esse arquivo, e Salvar ele em PDF... pode fazer assim:

DoCmd.OutputTo acOutputReport, "RelXXXX", "PDF Format (*.pdf)" , , True

RelXXXX é o Nome do seu Relatório.
E se você quer uma versão em PDF e outra dem .DOCX coloque os dois comandos, uma em baixo do outro!

Dessa Forma ele pergunta Onde quer salvar e qual o Nome quer dar para o Arquivo...

Olá Pedro e Fabio,

como o meu programa já gera um arquivo word quero pegar este word e gerar um pdf. O meu programa não tem um relatório feito no access, é um arquivo word modelo que levo os valores do access para os bookmarks. por isso este comando não vai funcionar.
Coloquei a função anexo porque ficou grande devido a quantidade de dados que tenho que levar do access para o word.

É meu amigo, infelizmente nao posso lhe ajudar... vamos aguardar e ver se alguem consegue...

Beleza Fabio, agradeço por ter tentado!

Mais alguém poderia ajudar?

consigo ver duas soluções para seu problema.

1ª fazer um relatório no access mesmo. o relatório do access é semelhante a um PDF e quando visualizar o relatório vc manda imprimir em PDF.
2ª continua usando o word mesmo, aproveitando seu código, e quando o arquivo estiver no word vc manda imprimir em PDF ou salvar em PDF.

A primeira solução é a mais simples, pois, como disse os relatórios do access são semelhantes a um arquivo em PDF e sai perfeito. Se precisar de ajuda nos relatórios, estou às ordens.

-----

Vc teria como me mandar o arquivo do word "MODELO CONTRATO - NET SINDICO.docx" para eu analisar seu código? Peço isso pois gero petições em word no meu programa em access, mas faço isso pelo sistema de mala direta que não é tão amigável, assim com seu modelo eu gostaria de ver se seria possível implementar esse seu sistema no meu.

Felicidades

Obrigado pela opnião Leandro, então eu prefiro seguir com o word, mas vou procurar outra forma, pq o ideal mesmo eh gerar o pdf mesmo para o meu cliente não alterar. Quero automatizar até o envio de email, mas antes queria resolver o pdf.

Bem, sobre o sistema, coloquei o programa e o arquivo word que fiz. Apanhei muito para conseguir mas com a ajuda do pessoal do forum consegui terminar esta parte.

Pode copiar a vontade kkkk

abs

Olá Gustavo,
Fiz pequeno exemplo que postei no Repositório de Exemplos:
https://www.maximoaccess.com/t26165-gerar-arquivo-pdf-a-partir-de-documento-do-word

Veja se é isso.
Abraço

Olá Alvaro, muito obrigado pela contribuição que é exatamente o que preciso.

Resolveu meu problema!

VLW!

Olá, Gustavo, fico feliz ter resolvido.
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço a todos

Alvaro, poderia reabrir aqui para solicitar uma ajuda, implementando o seu código dentro de uma função está apresentando o erro abaixo:

erro em tempo de execução 91, a variável do objeto ou variável do bloco with não foi definida e aponta o bloco abaixo


"    wordDoc.ExportAsFixedFormat OutputFileName:=FicheiroPDF, ExportFormat:= _
   wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
   Item:=wdExportDocumentContent, IncludeDocProps:=True"



No seu código apenas alterei o caminho do arquivo word e pdf, conforme abaixo:

Código:

Public Function GerarPDFProposta()

' 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 & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")
   
   FicheiroPDF = CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".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, ""


End Function

É justamente nele que esta o Problema...

Set wordDoc = wordApp.Documents.Open(CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")

FicheiroPDF = CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".pdf"

Mude Para:

Set wordDoc = wordApp.Documents.Open( "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")

FicheiroPDF ="C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".pdf"


Pois se Vc fala que esta em CurrentProject.Path (Projeto Atual, Local do aplicativo), nao deve especificar o caminho completo do arquivo, devendo apenas especificar a partir da \Nomearquivo.Formato.

Olá, o Fábio disse tudo!
Abraço

Fábio e Alvaro, obrigado pela ajuda!

Realmente funcionou, eu tive outro bug mas fácil de resolver, a minha instrução de gerar o arquivo word estava abrindo o arquivo e quando a nova instrução ia gerar o pdf ela ficava aguardando pela eternidade. Já resolvi e funcionou perfeitamente!

Boa noite . show de bola, será que tem como juntar esses pdf Teixeira no app?

Olá Gilliard,

Obrigado pelo retorno.
Não compreendi a questão, no entanto tenha atenção se está relacionada com o tópico ou é outra questão.

Abraço

Bom dia Teixeira, o exemplo que criou de gerar pdf está muito bom, seria uma ajuda e tanta se ao selecionar os arquivos e quando convertido e ja juntasse os pdf

Olá Gilliard

Não quero fugir da questão (eu avisei) mas vou manter o rumo neste tópico e pergunto...
Se gerar o relatório todo junto (varios relatorios num só) já resolve essa duvida o que lhe parece?

Abraço

Boa noite.
Não abri um novo tópico, pois a dúvida é a mesma. Eu tenho um modelo de word (atestado_1.docx), por causa da pessoa, se desejar alterar parte do texto (que não sejam os indicadores), faz no modelo, diferente de um relatório não tem acesso para alterar. Tenho um formulário com vários campos, botão, ao clicar, ele abre arquivo modelo, cola os campos do formulário e salva em outro word, tudo perfeito, mas gostaria em salvar também em pdf, não deu certo pelos exemplos do tópico, se alguém tiver uma ideia.
segue o código do botão.

Private Sub Comando17_Click()
Dim oApp As Object 'Cria uma variável objeto
On Error GoTo TrataErro


'Carregamos a barra de progressão
DoCmd.OpenForm "frm_001_BarraProgresso"
With Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form
.Title = "Gerando Atestado Acadêmico."
.BarColor = RGB(21, 43, 57)
.ForeColor = RGB(163, 163, 163)
.Max = 83
End With

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress


'Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
With oApp

'Torna o MS Word visível
visible = True

'Abre o documento base
.Documents.Open CurrentProject.Path & "\Modelos_Atestados\atestado_1.docx"


'Move cada campo para o indicador definido no documento
.ActiveDocument.Bookmarks("quealuno").Select
.Selection.Text = Trim(CStr(Me.Texto19))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("nome").Select
.Selection.Text = Trim(CStr(Me.Nome))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("portador").Select
.Selection.Text = Trim(CStr(Me.Texto21))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("cpf").Select
.Selection.Text = Trim(CStr(Me.CPF))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("matrícula").Select
.Selection.Text = Trim(CStr(Me.Matrícula))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("matriculada").Select
.Selection.Text = Trim(CStr(Me.Texto24))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("curso").Select
.Selection.Text = Trim(CStr(Me.Curso))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("data").Select
.Selection.Text = Trim(CStr(Me.Texto26))

Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

.ActiveDocument.Bookmarks("localizador").Select
.Selection.Text = Trim(CStr(Me.Texto34))



'Fecha a barra de progresso
DoCmd.Close acForm, "frm_001_BarraProgresso"

'Salva o documento
.ActiveDocument.SaveAs CurrentProject.Path & "\Atestados_Gerados\" & Me.Nome & "_" & Me.Curso & "_" & Format(Date, "mmmm") & "_" & Format(Date, "yyyy") & ".docx"



'Fecha o word
.ActiveDocument.Close



MsgBox "Atestado Gerado Com Sucesso...", vbInformation

'Abre o a pasta com o arquivo
Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\Atestados_Gerados\" & "", vbNormalFocus


End With
oApp.Quit
Set oApp = Nothing

Saida:
Exit Sub

TrataErro:
'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
If Err.Number = 94 Then
oApp.Selection.Text = ""
Resume Next
End If

MsgBox "Erro # " & Str(Err.Number) _
& vbNewLine & "Descrição: " & Err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
MsgBox Msg, vbExclamation, "Atenção"

'Fecha a barra de progresso
DoCmd.Close acForm, "frm_001_BarraProgresso"

#If DESENV Then
oApp.Quit
Set oApp = Nothing
Stop
Resume
#End If
Resume Saida



End Sub