title image


Smiley Re: pdf-Dateien als hyperlink mit subadress
wer googelt ist schlauer :)



Sollte fast genauso in access funktionieren.









Sub Open_PDF_File_From_EXCEL_to_Acrobat()

    'by Ramses

    Dim myAcroApp As Object, myAcroDoc As Object, myAcroView As Object

    Dim toOpenFile As String

    'Hauptapplikation

    Set myAcroApp = CreateObject("AcroExch.App")

    'Dokumenthandler

    Set myAcroDoc = CreateObject("AcroExch.AVDoc")

    'Datei zum öffnen

    toOpenFile = "C:\Demo.pdf"

    myAcroApp.Show

    myAcroApp.Maximize 1

    'Datei öffnen

    myAcroDoc.Open toOpenFile, toOpenFile

    'Variablen neu definieren

    Set myAcroDoc = Acroapp.GetActiveDoc

    Set myAcroView = AVDoc.GetAVPageView

    With myAcroView

        'Gehe zu Seite

        .Goto 3

    End With

    'Schliessen

    'myAcroApp.Quit

    Set myAcroApp = Nothing

    Set myAcroDoc = Nothing

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: