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 SubHTH