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] >