Hey Günter, Lehmann Berlin schrieb: [..] > Erst seit OO2.03 bleibt es mit Fehlermeldung hängen. Die beim Fehler > markierte Zeile ist: > thiscomponent.storeAsURL(FileName$, EmptyArgs())
Was genau sagt denn die Fehlermeldung? > Ich kopiere hier mal den Text davon rein: > > FUNCTION AUTOPILOT_CREATE() > REM > REM (c) Sun Microsystems, Inc. > xDoc = ThisComponent > xBkms = xDoc.getBookmarks > REM Automatic file name generation > path$ = > "file:///C:/Dokumente%20und%20Einstellungen/GL/Eigene%20Dateien/" > prefix$ = "Bgla" > extension$ = ".odt" > nNumber = 1 > sDirEntry$ = Dir$(path$ + prefix$ + "*" + extension$) > nPrefixLen = Len(prefix$) > nExtensionLen = Len(extension$) > while sDirEntry$ <> "" > sCount = Mid$(sDirEntry$, nPrefixLen + 1, Len(sDirEntry$) - > nPrefixLen - nExtensionLen) > nTempValue = Val(sCount) > if nTempValue > nNumber then nNumber = nTempValue > sDirEntry$ = Dir$ > wend > nNumber = nNumber + 1 > FileName$ = path$ + prefix$ + nNumber + extension$ > thiscomponent.storeAsURL(FileName$, EmptyArgs()) > REM Setzen des aktuellen Datums > IF xBkms.hasByName("Datum") THEN > xBkm = xBkms.getByName("Datum") > xAnchor = xBkm.getAnchor > xFld = xDoc.createInstance("com.sun.star.text.TextField.DateTime") > xFld.IsFixed = TRUE > xFld.IsDate = TRUE > xFld.NumberFormat = 37 > xAnchor.getText.insertTextContent(xAnchor, xFld, false) > xBkm.dispose > END IF > Das Makro habe ich hier aus Platzgründen abgeschnitten, es geht noch weiter > mit "Datum", "Zeit" usw. > > Die fehlerhafte Zeile, die zusammen mit der BASIC-Fehlermeldung markiert > wird, ist: > thiscomponent.storeAsURL(FileName$, EmptyArgs()) Hmm, ublicherweise müssen Arrays vor der Benutzung definiert werden. Das passiert hier nicht (jedenfalls nicht sichtbar). Das war allerdings auch schon früher so. Probier es halt mal: Irgendwo oben einfügen, also z.B. nach den Zeilen die mit REM beginnen: DIM EmptyArgs() Gruss Thomas -- ## Marketing deutschsprachiges Projekt ## http://de.openoffice.org - www.openoffice.org ## Vorstand OpenOffice.org Deutschland e.V. ## Mitglieder willkommen: www.OOoDeV.org --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]