Hi Thomas,
die DIM-Zeile, das war es!! Jetzt gehen wieder alle Makros für rd. 24
Vorlagenbriefe. Vielen Dank, ich freue mich sehr über die positive Klärung
und darüber, daß ich nun uneingeschränkt mit OO2.03 und folgenden Versionen
weiterarbeiten kann. Super!
Danke und freundlicher Gruß
Günter
----- Original Message -----
From: "Thomas Krumbein" <[EMAIL PROTECTED]>
To: <users@de.openoffice.org>
Sent: Wednesday, September 20, 2006 1:06 PM
Subject: Re: [de-users] Makro "create" aus früherem Autopilot writer
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]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
