Betr. Makros unter OO 3.0.1 / Win XP
Guten Morgen,
ich versuche gerade, meine VB-Makros nach OO zu portieren und steh wieder mal im
Dunkeln. Ich habe folgendes Beispiel von OOWiki ausprobiert, bekomme aber eine
Fehlermeldung: Laufzeitfehler: Eigenschaft/ Methode nicht gefunden.
Ich vermute viel, weiß aber nichts und bitte um Hilfe.
mfg
Bernd
Dim I As Long
Dim Doc As Object
Dim Replace As Object
Dim BritishWords(5) As String
Dim USWords(5) As String
BritishWords() = Array("colour", "neighbour", "centre", "behaviour", _
"metre", "through")
USWords() = Array("color", "neighbor", "center", "behavior", _
"meter", "thru")
Doc = StarDesktop.CurrentComponent
Replace = Doc.createReplaceDescriptor (Laufzeitfehler)
For I = 0 To 5
Replace.SearchString = BritishWords(I)
Replace.ReplaceString = USWords(I)
Doc.replaceAll(Replace)
Next I
