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]
