PDF openen vanuit Word

[remcop1989]

De volgende code maakt een PDF document van het Word document. Vervolgens plaatst hij deze in de map waar het Word document staat en sluit het Word document.

Ik wil nu nog code eraan toevoegen om het betreffende PDF Document te openen. Op deze site staat wel iets, maar daar kom ik geen wijs uit: http://www.myengineeringworld.net/2012/07/vba-macro-to-open-pdf-file.html

Wie helpt mij in de juiste richting?

Sub Convert_2_PDF()
    
    Dim XDocument As String
    Dim Xname As String
    Dim oWord As word.Application
    
    ' Let op vervang ook de extensies .docx en .doc
    
    'vraag of er een pdf gemaakt moet worden. indien ja, maak een pdf. Indien nee, maak geen pdf
    'Let op vervang ook de extensies .docx en .doc
        
    If activedocument.Path <> "" Then
            Xname = Strtran(Strtran(LCase(activedocument.Name), ".docx", ""), ".doc", "") & ".pdf"
            Xname = UCase(Left(Xname, 1)) + Right(Xname, Len(Xname) - 1)
        
            XDocument = activedocument.Path & "\" & Xname
          
            activedocument.ExportAsFixedFormat OutputFileName:= _
            XDocument, ExportFormat:= _
            wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
     End If
    
'sluit Word af
Do
Set oWord = GetObject(Class:="Word.Application")
If Not oWord Is Nothing Then
    oWord.Quit False
    Set oWord = Nothing
End If
Loop Until oWord Is Nothing
   
End Sub

 

[OctaFish]

Als je geen Acrobat hebt, gaat de macro van de link zowiezo niet werken. Maar jij bedoelt met 'openen' vermoedelijk 'lezen' in Reader, en niet Openen in Acrobat. En een pdfje lezen kan met FollowHyperlink prima.

 

[remcop1989]

Oké, daar heb ik hier meer informatie over gevonden.

Ik probeer nu de volgende code:

Sub Convert_2_PDF()
    
    Dim XDocument As String
    Dim Xname As String
    Dim oWord As word.Application
        
    If activedocument.Path <> "" Then
    
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

    Msg = "Offerte verzendklaar (PDF document) maken?"
    Style = vbYesNo
    Title = "Offerte verzenden"

    Response = MsgBox(Msg, Style, Title, Help, Ctxt)

            If Response = vbYes Then
            Xname = Strtran(Strtran(LCase(activedocument.Name), ".docx", ""), ".doc", "") & ".pdf"
            Xname = UCase(Left(Xname, 1)) + Right(Xname, Len(Xname) - 1)
        
            XDocument = activedocument.Path & "\" & Xname
          
            activedocument.ExportAsFixedFormat OutputFileName:= _
            XDocument, ExportFormat:= _
            wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False

            Dim PDFdocument As String
            
            PDFdocument = activedocument.Path & "\" & Xname
                                    
            Document.FollowHyperlink PDFdocument

            Else: Exit Sub 'MsgBox "u koos nee. er wordt geen pdf gemaakt."
                
            End If
    End If   
 
End Sub

Dit leidt tot de melding "Fout 424 tijdens uitvoering: Object vereist"

Wat gaat hier mis?

 

[OctaFish]

Moet denk ik zijn:

ActiveDocument.FollowHyperlink PDFdocument

 

[remcop1989]

Ja dat was hem