[VB] Autocorrectie d.m.v OfficeCompatible.Application

Pagina: 1
Acties:

  • BestTested!
  • Registratie: Oktober 2003
  • Laatst online: 27-05 18:21
Momenteel ben ik bezig met een programma voor een helpdesk. Ik zit met het volgende probleem:
Sommige textfields moeten snel kunnen worden ingevuld. De autocorrection van MSOffice leent zich hier perfect voor (afkortingen automatisch aanvullen, vv --> Verbinding verbroken). Na lang zoeken heb ik dit gevonden op MSDN

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 Set OC = CreateObject("OfficeCompatible.Application")
   If OC Is Nothing Then Exit Sub
    
   On Error Resume Next
   OC.Init "OCBSamp", "Office Compatible Basic Sample App"

   If (Err.Number <> 0) Then
      Set OC = Nothing
      On Error GoTo 0
      Exit Sub
   End If
        
   On Error GoTo 0

   Set AutoCorrect = OC.AutoCorrect
   If Not AutoCorrect Is Nothing Then
      AutoCorrect.ShowDialog

      strOriginal = "This is teh"

      strNew = AutoCorrect.Correct(strOriginal)
    If (strNew <> "") Then
        StrOriginal = strNew      'AutoCorrect occurred
    End If   End If


Nu krijg ik echter een foutmelding bij de regel Set OC = CreateObject("OfficeCompatible.Application"). "Automation Error"

In mijn register staat OfficeCompatible wel goed, en ook MSO.dll (waar OfficeCompatible bijhoort) in dezelfde map gooien werkt niet.

Weet iemand hier een oplossing voor? Alvast bedankt

  • mboy
  • Registratie: December 2001
  • Laatst online: 20-06-2024
Om dit te kunnen gebruiken moet je een referentie toevoegen naar de MS Word object library.

  • BestTested!
  • Registratie: Oktober 2003
  • Laatst online: 27-05 18:21
Referenties zijn al toegevoegd. Excel en Word objecten maken lukt wel gewoon, die gebruik ik namelijk om rapporten te genereren.
Toegevoegd zijn:

Microsoft Word 10.0 Object Library
Microsoft Excel 10.0 Object Library
Microsoft Office 10.0 Object Library
Microsoft Office 1.0 Type Library

en nog wat andere ADO, Data en ODBC dingetjes, maar die doen er hier niet toe

  • mboy
  • Registratie: December 2001
  • Laatst online: 20-06-2024
Hmmm, dat is vreemd, want ik heb bovenstaande code getest met die referentie en bij mij werkte het wel gewoon, zonder verdere aanpassingen.

  • BestTested!
  • Registratie: Oktober 2003
  • Laatst online: 27-05 18:21
Raar. Ik neem aan dat jij ook OfficeXP en VB6.0 gebruikt? Ik zal het eens op een andere pc proberen.
edit:
--------------

Werkt op de andere pc ook niet. Ook weer "Automation Error" op diezelfde regel.

[ Voor 64% gewijzigd door BestTested! op 27-03-2004 12:28 ]


  • BestTested!
  • Registratie: Oktober 2003
  • Laatst online: 27-05 18:21
Toch weer even een klein kickje omhoog. Aangezien ik nog steeds met dit probleem zit.

[ Voor 74% gewijzigd door BestTested! op 27-03-2004 12:29 ]

Pagina: 1