OpenOffice.info

Hallo Peter
[quote="Peter.Langer2"]
wie kann ich dem Ereignis "Dokument erzeugen" ein Makro zuweisen?
Wie kann ich ein Makro beim Start ausführen?
[/quote]

1. -->Extras-->Anpassen--'Ereignisse' -- 'Dokument erzeugen'
2. ........................................................-- 'beim Programmstart' oder 'Dokument öffnen'

--die jeweilige Zeile selektieren und über die Schaltfläche 'Makro..' den Pfad einstellen.

Gruß Karo

[size=150][color=#0000BF][b][url=http://ooomacros.org/dev.php#101416]X - Ray Tool[/url][/b][/color][/size]

Author: Bernard Marcelly
This is a tool that allows OOo Basic programmers to display the properties, methods, services and interfaces provided by an object. Values of properties can be displayed, and if the property or interface is an API object, it can also be analysed by X-Ray.

If the SDK is installed, X-Ray can display the relevant page in a web browser.

Ich habe das jetzt alles zusammengebastelt und das geht prima. Ich habe jetzt einfach den Vorschlag von Jürgen übernommen.
Nochmals vielen Dank!
Pit
PS. Was ist xray?

Hallo zusammen,

vielen Dank schonmal!! Ich war gerade mal etwas knapp mit meiner Zeit - werde mich heute aber mal an die Umsetzung machen und gebe dann Bericht.

Viele Grüße
Pit

Sub SpeichernUnter
Dim speicherDialog as Object
Dim dateiname As String
Dim DialogTyp(0)
Dim arg()
Dim antwort
Dim args1(0) as new com.sun.star.beans.PropertyValue

   kPfad = ThisComponent.URL
   'sPfad = DirectoryNameoutofPath(kPfad, "/") 'Bringt bei mir eine Fehlermeldung

   arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
   speicherDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
   'xray speicherDialog
   With speicherDialog
        .Initialize(arg())
        .appendFilter("OpenDocument Tabellendokument (.ods)", "*.ods")
        .SetMultiselectionMode(False)
        .setDisplayDirectory(ConvertToURL(sPfad()))
        .SetDefaultName("Rechentrainer.........") 'Hier kannts Du Deinen variablen Dateinamen definieren
        .SetTitle("Vergeben sie einen Namen und speichern sie das Angebot")
        .setcurrentFilter("OpenDocument Tabellendokument (.ods)")
        .SetValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION, 0, true)
   End With

   antwort = speicherDialog.execute()
   If antwort = 1 Then
      datei = speicherDialog.Files(0)
      Thiscomponent.storeAsUrl(datei, args1())
   End If
End Sub

.SetDefaultName

Hallo Pit,

versuch das mal:

[code]Sub SpeichernUnter
Dim speicherDialog as Object
Dim dateiname As String
Dim DialogTyp(0)
Dim arg()
Dim antwort
Dim args1(0) as new com.sun.star.beans.PropertyValue

kPfad = ThisComponent.URL
'sPfad = DirectoryNameoutofPath(kPfad, "/") 'Bringt bei mir eine Fehlermeldung

arg = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
speicherDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
'xray speicherDialog
With speicherDialog
.Initialize(arg())
.appendFilter("OpenDocument Tabellendokument (.ods)", "*.ods")
.SetMultiselectionMode(False)
.setDisplayDirectory(ConvertToURL(sPfad()))
.SetDefaultName("Rechentrainer.........") 'Hier kannts Du Deinen variablen Dateinamen definieren
.SetTitle("Vergeben sie einen Namen und speichern sie das Angebot")
.setcurrentFilter("OpenDocument Tabellendokument (.ods)")
.SetValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION, 0, true)
End With

antwort = speicherDialog.execute()
If antwort = 1 Then
datei = speicherDialog.Files(0)
Thiscomponent.storeAsUrl(datei, args1())
End If
End Sub
[/code]

Bei [code].SetDefaultName[/code] kannst Du Deinen Dateinamen definieren.

Ich habe Das mit [b][color=#FF0000]xray[/color][/b] herausgefunden. Ist echt ein tolles Tool.
Solltest Du auch mal ausprobieren wenn Du es noch nicht schon benutzt.

Viel Erfolg.

Jürgen

Lieber Rainer,
prima, geht, vielen Dank!
Kannst du mir nochmal weiterhelfen? Jetzt taucht nämlich ein neues Problem auf. Wie beschrieben wurde durch das Makro die geöffnete Datei "rechentrainer" nach der Eingabe des Namens des Benutzers über einen Dialog unter "rechentrainer_Name" gespeichert. Das klappt jetzt leider nicht mehr. Vorher habe ich die URL der Originaldatei ausgelesen und mit dem Namen ergänzt und so im gleichen Ordner wieder abgespeichert. Durch das Öffnen als Dokument als Tabellendokumentvorlage hat die Datei jetzt ja kein Ziel mehr, das Auslesen der URL klappt jetzt nicht mehr. Gibt es eine Möglichkeit jetzt einfach den "speichern unter" Dialog aufzurufen - aber so, dass im Namenfeld schon "rechentrainer_Name" vorgegeben ist? Oder wie kann ich jetzt einen Zielordner auswählen (und evtl. erzeugen) lassen?
Viele Grüße
Pit

Hallo zusammen!
Ich mal wieder!
Wer weiß was: Ich habe eine Calc Datei, bei deren Öffnen automatisch ein Makro startet, in dem der Benutzer nach seinem Namen gefragt wird, dieses Makro erzeugt eine Dateikopie unter seinem Namen - klappt wunderbar. Jetzt möchte ich diese Originaldatei aber als Dateivorlage anlegen. Wenn ich jetzt die Datei öffne wird die Datei "unbenannt" erzeugt, das Makro startet aber nicht, obwohl es bei Dateistart eingetragen ist - was ist falsch?
Grüße
Pit