PDF onleesbaar of beschadigd

Status
Niet open voor verdere reacties.

ToofPet

Nieuwe gebruiker
Lid geworden
7 mrt 2023
Berichten
1
Hi Forum,
Het opslaan van een word-document vanuit MS-Word: geen probleem
Het opslaan van een word-document vanuit een Excel macro kan niet worden geopend door Acrobat Reader.
Jaren gebruikte ik onderstaande code. Lukt plots niet meer. What's wrong?



Code:
Public wdApp As Object
Public wdSelection As Object
Public sel As Object
Public WordFilename As String, PdfFilename As String
    
Sub DOC_to_PDF()
    Set wdApp = CreateObject("word.Application")
    WordFilename = ThisWorkbook.Path & "\Word-document.docx"
    wdApp.Documents.Open WordFilename
    
    wdApp.Visible = True
    wdApp.Activate
    On Error Resume Next
    With GetObject(, "Word.Application")
      .ActiveWindow.WindowState = 2
    End With
    Set wdSelection = wdApp.Documents(1).Content
    wdSelection.Select
    Set sel = wdApp.Selection

' Document verwerken ..... om vervolgens op te slaan als PDF
    
    PdfFilename = ThisWorkbook.Path & "\pdf-document.pdf"
    wdApp.ActiveDocument.SaveAs Filename:=PdfFilename, FileFormat:=wdFormatPDF
     
    Application.ScreenUpdating = False
    wdApp.Visible = True
    wdApp.ActiveDocument.Saved = True
    wdApp.ActiveDocument.Close
    wdApp.Application.Quit
End Sub
 
Laatst bewerkt door een moderator:
Doe het eens zo:
Code:
wdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:=PdfFilename, ExportFormat:=wdExportFormatPDF
 
1. Vermijd public variables
2. vermijd overbodige objectvariabelen

Code:
Sub M_DOC_to_PDF()
  With getobject(ThisWorkbook.Path & "\Word-document.docx")
     .exportasfixedformat ThisWorkbook.Path & "\pdf-document.pdf", 17
     .Close 0
   end with
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan