opening acad and acrobat

[Suraj]

hi,

i need to know the vb code for opening acad and acrobat files - the following code which i used gives me errors/nothing happens.

Dim EAcad As New AutoCAD.AcadApplication
Dim eAdoc As New AutoCAD.AcadDocument
Set eAdoc = GetObject(filepath)
Set EAcad = eAdoc.Application

and

Dim adb As Acrobat.CAcroAVDoc
adb.Open szFullPath:=filename, szTempTitle:=filename
adb.FindText Text2.Text, 0, 0, 0

thanks.

[Suraj]

i have referenced acrobat and acad tlb and dll files in the project references - so that is not a problem

[RobDog888]

Dont you need to create the instance of acrobat too?

Set adb = New Acrobat.CAcroAVDoc

[Suraj]

that did not work...

do u know some website where i could lookup about opening autocad and acrobat files in vb

thanks

[RobDog888]

I know you can sign up for a membership with Adobe for free, but
its limited unless you want to upgrade to the full featured one for
some $$. They have samples and a SDK for Acrobat. I have used
it but on the Acrobat end and a little on the vb end. Check out
Adobe's site for Acrobat. My own basic code. Cant verify anymore
because I dont have Acrobat installed on my new system.

Option Explicit
'Add reference to acrobat 5.0
'Add one command button
'Add one commondialog control
Dim oApp As Acrobat.CAcroApp
 
Private Sub Form_Load()
    Set oApp = CreateObject("AcroExch.App")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If Not oApp Is Nothing Then
        oApp.Exit
    End If
    Set oApp = Nothing
End Sub
 
Private Sub Command1_Click()
    
    Dim pdfDoc As Acrobat.CAcroPDDoc
    Dim sPath As String
    
    'Path to an existing pdf document
    CommonDialog1.ShowOpen
    sPath = CommonDialog1.FileName
    Set pdfDoc = CreateObject("AcroExch.PDDoc")
    If pdfDoc.Open(sPath) Then
        '...
    Else
        '...
    Endif
 
End Sub

HTH