Scannen in Word m.b.v. VB 6

[Klikmaar]

Ik heb een programma gemaakt in Visual Basic 6 voor het scannen van documenten m.b.v. Word 2003 waarna automatisch opgeslagen wordt als PDF.

Er zit een fout in de code, maar ik zie deze niet.
De volgende code heb ik gemaakt:

Dim pmkr As AdobePDFMakerForOffice.PDFMaker
Dim stng As AdobePDFMakerForOffice.ISettings
Dim a

Set pmkr = Nothing ' locate PDFMaker object
For Each a In Application.COMAddIns
If InStr(UCase(a.Description), "PDFMAKER") > 0 Then
Set pmkr = a.Object 'HIER WORDT DE FOUTMELDING ERROR 13 GEGEVEN
Exit For
End If
Next

pmkr.GetCurrentConversionSettings stng
stng.AddBookmarks = True ' make desired settings
stng.AddLinks = True
stng.AddTags = True
stng.ConvertAllPages = True
stng.CreateFootnoteLinks = True
stng.CreateXrefLinks = True
stng.OutputPDFFileName = opslaannaam
stng.PromptForPDFFilename = False
stng.ShouldShowProgressDialog = True
stng.ViewPDFFile = False
pmkr.CreatePDFEx stng, 0 ' perform conversion Dit is de conversie

 

[That Guy]

err, ja. Dat komt omdat je eerst 'a' dimentioneert als helemaal niets (geen type), wat het dus automatisch een 'variant' maakt. Daarna zeg je dat pmkr een a.object moet worden.

error 13 is een type mismatch, ofwel, de types komen niet overeen. Dit gebeurt bijvoorbeeld als je een string als getal wilt opslaan enzo. Probeer eens ipv. a te dimmen als niets, a te dimmen als object.
(

Dim a as Object

dus)

 

[Klikmaar]

De foutmelding blijft bestaan.
Weet iemand of de code veranderd moet worden wanneer een gebruiker Adobe Reader 8 of Adobe Reader 9 gebruikt.
Ik heb zelf Adobe Reader 8 en werkt goed, maar installeer ik het programma op een computer met Adobe Reader 9 krijg ik deze foutmelding (error 13)