Hier ist Günter Lehmann
ich stelle noch mal meine Frage zum Makro ein, das seit OO2.03 nicht mehr
funktioniert. Könntet Ihr Euch bitte das noch mal vornehmen?
Danke und Gruß
Hallo Mechtilde,
einen Platz im Netz zum hinstellen habe ich nicht. Das Makro ist ein ganz
normales Stück, das mit OO1.1.1 und OO1.1.2 und SO7 bei
Brief-Autopilot für automatische Anlage, Numerierung und Speicherung
angelegt wurde. Es läuft gut mit allen Versionen bis OO2.02 und SO8.
Erst seit OO2.03 bleibt es mit Fehlermeldung hängen. Die beim Fehler markierte
Zeile ist:
thiscomponent.storeAsURL(FileName$, EmptyArgs())
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())
Hilft das weiter?
Gruß Günter
----- Original Message -----
From: "Mechtilde" <[EMAIL PROTECTED]>
To: <users@de.openoffice.org>
Sent: Tuesday, September 12, 2006 2:32 PM
Subject: Re: [de-users] Makro "create" aus autopilot - Zusatz2
> Hallo,
>
> Lehmann Berlin wrote:
>> Danke für's Kümmern, Michael Braun!
>> Anliegend das pdf-Makro. Bis OO2.0.2 ging es noch, aber 2.0.2 habe ich
>> mit 2.0.3 überschrieben. Könnte Altversion zwar neu installieren, aber
>> dann verliere ich releasemäßig den Anschluß.
>> Ich habe Windows-Version für WinXP Media-Edition. Außer OpenOffice habe
>> ich noch StarOffice7 und 8 und MS-Office 2007 Beta auf der Maschine. Aber
>> der Auto-Start für alle ist deaktiviert, damit sie sich nicht stören.
>> Rufe sie nur jeweils individuell auf. Am MS-Off. wird es wohl nicht
>> liegen, denn ich hatte das Phänomen schon vor dessen Installierung.
>> Gruß Günter Lehmann
>>
>> p.s.-Zusatz: Ich hatte bis vorgestern Java 1.5.0_06 aktiv, dann geändert
>> auf 1.5.0_07. Effekt war bei beiden Versionen der gleiche.
>> Zusatz2: die Kiste hat anscheinend die pdf-Anlage nicht mitgeschickt.
>> Daher hier nochmal mit Anlage.
>
> Anhänge werden nicht mitversandt. Stelle diese bitte irgendwo ins Netz
> und poste hier einen Link dorthin.
>
> Mechtilde
> --
> Dipl. Ing. Mechtilde Stehmann
> ## Observer OpenOffice.org: lang/DE
> ## Freie Office-Suite für Linux, Mac, Windows, Solaris
> ## http://de.openoffice.org
> ## Meine Seite http://www.mechtilde.de
> ## PGP encryption welcome! Key-ID: 0x53B3892B
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
