Hallo Jörg,
----- Ursprüngliche Mail ---- > Von: Jörg Schmidt <[email protected]> > An: [email protected] > Gesendet: Donnerstag, den 10. Dezember 2009, 0:38:39 Uhr > Betreff: Re: [de-users] Speichern unter..., Aus einer Vorlage immer in den > selben Ordner > > Hallo, > > Bernd Schmidkunz schrieb: > > für meine Rezeptsammlung, leider (noch) nicht in einer > > Datenbank, verwende ich eine Vorlage für alle neuen > > Rezepte.(DIN- A 6-Seite, mit einer Writer-Tabelle und Fußnote.) > > Um mich beim Speichern nicht immer durch meine > > Verzeichnisstruktur klicken zu müssen, suche ich nach einer > > Möglichkeit, mittels Anlage in dieser Vorlage beim > > Speicherndialog gleich den Ordner "Rezepte" vorgeschlagen zu > > bekommen. Oder gibt es eine Tastenkombination für eine fixe > > Lösung? Makro zu schreiben habe ich noch nicht versucht. > > Dafür wirst Du wohl ein Makro brauchen. Beispielsweise das Folgende > sollte genügen, wenn Du es im Bereich "Meine Makros" speichert, eine > Tastaturkombination oder SChaltfläche zuweist und im Makro die Zeile: > > .setDisplayDirectory(ConvertToURL("c:\test")) > > auf DEin Wunschverzeichnis anpasst: > > Sub dateiauswahl() > Dim auswahl as Object > Dim dateiname As String > Dim Dialogtyp(0) > akt_doc = ThisComponent > If akt_doc.supportsService("com.sun.star.text.TextDocument") Then > auswahl = createunoservice("com.sun.star.ui.dialogs.FilePicker") > DialogTyp(0) = > com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION > With auswahl > .initialize( DialogTyp()) > .enableControl(100,true) > .setvalue(100,0,true) > 'mehrere Dateien ja/nein > .SetMultiselectionMode(False) > 'Dateityp vorauswählen > .appendFilter("ODF Textdokument *.odt", "*.odt") > 'Startverzeichnis > .setDisplayDirectory(ConvertToURL("c:\test")) > End With > antwort = auswahl.execute > If antwort = 1 then > Datei = auswahl.Files(0) > akt_doc.storeAsUrl(Datei,Array()) > end if > End If > End Sub > > Gruß > Jörg danke für die makrobeschreibung, ich werde das am WE mal probieren. Heute früh hatte ich mir schon überlegt, dass dies eher eine Betreibssystem-einstellung wäre. Gruß Bernhard __________________________________________________ Do You Yahoo!? Sie sind Spam leid? Yahoo! Mail verfügt über einen herausragenden Schutz gegen Massenmails. http://mail.yahoo.com --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
