Problem Creating an Instance of CAcroACDoc for .DOC to .PDF Conversion

[reffek]

Here's a snippet of code I am using to convert MS Word docs to PDFs. Similar code works fine in VB6 but in VB.NET is gives me the error "Object reference not set to an instance of an object." The error occurs on this line:

AcroDoc.Open("\\path\to\file\test.doc", "")

Here is the full snippet:

Imports Acrobat

Dim AcroApp As CAcroApp
Dim AcroDoc As CAcroAVDoc
Dim AcroPdf As CAcroPDDoc

AcroDoc.Open("\\path\to\file\test.doc", "")
AcroDoc = AcroApp.GetActiveDoc
AcroPdf = AcroDoc.GetPDDoc
AcroPdf.Save(1 Or 4 Or 32, "\\path\to\file\test.pdf")

AcroPdf.Close()
AcroDoc.Close(True)
AcroApp.Exit()

AcroPdf = Nothing
AcroDoc = Nothing
AcroApp = Nothing

 

[ThatRickGuy]

AcroDoc.Open("\\path\to\file\test.doc", "")
AcroDoc = AcroApp.GetActiveDoc

Are you sure that's right? Opening a file w/ AcroDoc, then overrighting the value of AcroDoc with AcroApp.GetActiveDoc?

I think this might be what you are looking for:

Imports Acrobat

Dim AcroApp As [b]New[/b] CAcroApp
Dim AcroDoc As CAcroAVDoc
Dim AcroPdf As CAcroPDDoc

[b]AcroApp[/b].Open("\\path\to\file\test.doc", "")
AcroDoc = AcroApp.GetActiveDoc
AcroPdf = AcroDoc.GetPDDoc
AcroPdf.Save(1 Or 4 Or 32, "\\path\to\file\test.pdf")

AcroPdf.Close()
AcroDoc.Close(True)
AcroApp.Exit()

AcroPdf = Nothing
AcroDoc = Nothing
AcroApp = Nothing

(changes in bold)

-Rick

----------------------
If you're about to post an ASP.Net question,
please don't do it in the VB.Net forum

http://www.ringdev.com

I believe in killer coding ninja monkeys.

 

[reffek]

Dim AcroApp As New CAcroApp

Causes "'New' cannot be used on an interface

 

[reffek]

Also, "Open" is not a member of "CAcroApp"

Like I stated, it was working in VB6... But for some reason .NET can't create the object properly.

 

[ThatRickGuy]

Ok, drop the new, what about the other part? I'm not familiar with the classes you are using, but did the other change look like it made sence?

-Rick

----------------------
If you're about to post an ASP.Net question,
please don't do it in the VB.Net forum

http://www.ringdev.com

I believe in killer coding ninja monkeys.

 

[reffek]

Open" is not a member of "CAcroApp

 

[ThatRickGuy]

one more try:

Imports Acrobat

Dim AcroDoc As New CAcroAVDoc
Dim AcroPdf As CAcroPDDoc

AcroDoc.Open("\\path\to\file\test.doc", "")
AcroPdf = AcroDoc.GetPDDoc
AcroPdf.Save(1 Or 4 Or 32, "\\path\to\file\test.pdf")

AcroPdf.Close()
AcroDoc.Close(True)

AcroPdf = Nothing
AcroDoc = Nothing

-Rick

----------------------
If you're about to post an ASP.Net question,
please don't do it in the VB.Net forum

http://www.ringdev.com

I believe in killer coding ninja monkeys.

 

[reffek]

Still no luck.

I did see this thread:

Original post:

http://www.planetpdf.com/forumarchive/87740.asp

Reply:

http://www.planetpdf.com/forumarchive/87897.asp

 

[ThatRickGuy]

You might want to contact the vendor/maker of the tool you're using.

-Rick

----------------------
If you're about to post an ASP.Net question,
please don't do it in the VB.Net forum

http://www.ringdev.com

I believe in killer coding ninja monkeys.