Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro Salvar Pdf
 
Notifications
Clear all

Erro Salvar Pdf

 
2024 - VBA & Macros
6 Posts
4 Usuários
0 Reactions
1,731 Visualizações
RSS
 fabrycioo
(@fabrycioo)
Posts: 7
Active Member
Topic starter
 

Tenho uma planilha que salva um documento word em pdf porem o pdf esta ficando corrompido

Private Sub btn_montar_contrato_Click()
    Dim WORD As WORD.Application
    Dim DOC As WORD.Document
    
    Set WORD = CreateObject("Word.Application")
    WORD.Visible = False
    
    Set DOC = WORD.Documents.Open("C:Planilha VBAPlanilha ExcelVBAcontrato.docx")
    With DOC
    File01 = Range("c5").Value
        If Dir([S2].Value & [C5].Value & " " & [E5].Value & ".pdf") <> "" Then
          Kill [S2].Value & [C5].Value & " " & [E5].Value & ".pdf"
        End If
        .SaveAs ([S2].Value & [C5].Value & " " & [E5].Value & ".pdf")
        '.Close
    End With
    
    'WORD.Quit
    Set DOC = Nothing
    Set WORD = Nothing
On Error Resume Next
Set w = GetObject(, "Word.Application")
w.Quit savechanger = True
        MsgBox ("Planilha de Orçamento Salva " & Plan1.Range("H8").Value & ".")
        Exit Sub
        On Error Resume Next
            WORD.Visible = True
End Sub
 
Postado : 09/05/2017 10:42 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Pq nao cria totalmente no Excel

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/05/2017 2:22 pm
 fabrycioo
(@fabrycioo)
Posts: 7
Active Member
Topic starter
 

Por que é um formulário de contrato no word de 29 paginas não consigo converter tudo em word preciso mesmo que ele salve em pdf ele faz todo o processo mais na hora de abrir o pdf ele da erro

 
Postado : 09/05/2017 2:29 pm
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite Fabricio,

Não entendi a sequência, é do Excel -> Word -> PDF?

Sobre o seu código, fica mais fácil se você postar uma planilha de exemplo.

Já que você diz que o seu código faz tudo corretamente, chuto que o erro está aqui:

.SaveAs ([S2].Value & [C5].Value & " " & [E5].Value & ".pdf")

att,

 
Postado : 09/05/2017 7:39 pm
 fabrycioo
(@fabrycioo)
Posts: 7
Active Member
Topic starter
 

Sim realmente o erro está ai mais o engraçado que em DOCX ele salva corretamente mais o PDF fica corrompido :cry:

 
Postado : 10/05/2017 7:01 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Da maneira que está, está salvando em formato Woeld(Docx), porem com o sufixo pdf (experimente abrir o arquivo gerado com o world)

Experimente algo do tipo:

Private Sub btn_montar_contrato_Click()
Dim WORD As WORD.Application
Dim DOC As WORD.Document
Dim Fname As String
    
Set WORD = CreateObject("Word.Application")
WORD.Visible = False
    
Set DOC = WORD.Documents.Open("C:Planilha VBAPlanilha ExcelVBAcontrato.docx")
With DOC
    Fname = [S2].Value & [C5].Value & " " & [E5].Value & ".pdf"
    If Dir(Fname) <> "" Then Kill Fname   
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Fname, Quality:=xlQualityStandard, includeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True"
        '.SaveAs ([S2].Value & [C5].Value & " " & [E5].Value & ".pdf")
        '.Close
End With
'....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/05/2017 5:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico