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?
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: