Datei > Eigenschaften > Benutzer: Voreinstellung mögli

[olivier]

Hallo *,

ich verwende die Datei-Eigenschaften (Benutzer), indem ich die 4 Zeilen immer in "Name", "Anschrift", "Telefon" und "E-Mail" ändere und meine Daten eintrage.

Leider muß ich dies in jeder neuen Datei erneut machen, was auf Dauer zeitraubend und lästig ist. - Gibt es eine Möglichkeit, hier für alle zukünftigen Dokumente einen Default einzustellen, um sich dies sparen zu können?

Danke und Gruß,
Oliver

[Hubi]

Du kannst doch unter Optionen // Allgemein //Eigenschaften vorher bearbeiten einstellen, dann wirst du beim Speichern automatisch gefragt was in den Feldern stehen soll. Das erspart einen Klick. Suche selber eien Konfigurationsdatei die mir diese Arbeit abnimmt.

Gruß

Hubi

[olivier]

Hallo Hubi,

ja, wenn ich unter Extras > Optionen > Laden / Speichern > Allgemein > Speichern > "Eigenschaften vorher bearbeiten" aktiviere, spare ich mir einen Klick, aber das ist auch alles.

Gibt es nicht irgendwo eine Konfigurations-Datei, wo diese Informationen hinterlegt werden könnten?

Dabei geht es um die im Reiter "Benutzer" stehenden vier Felder, sowohl um die Feldbezeichnungen, die standardmäßig geändert sein sollen, als auch die Inhalte der Felder.

Vermutlich muß da wohl ein echter Freak dran...

Gruß,
Oliver

[Stephan]

@Lenu
hätte ich jetzt nicht vermutet das man das korrekt aufzeichnen kann, habe es deshalb per Hand geschrieben

Würde ich mit einem Makro machen. Kopiere das Folgende Makro in eine der OOo-Bibliotheken und ordne es dem Ereignis Dokument erzeugen der OOo-Anwendung zu:

Code: Alles auswählen

Sub Main
Dim bez(3)
Dim wert(3)
vInfo = ThisComponent.getDocumentInfo()
bez(0)="Name"
bez(1)="Anschrift"
bez(2)="Telefon"
bez(3)="Email"
wert(0)="Klaus Mustermann"
wert(1)="12345 Testhausen Gartenstraße 3"
wert(2)="123-456"
wert(3)="a@b.de"
For i = 0 to vInfo.GetUserFieldCount() - 1
	vInfo.setUserFieldName(i,bez(i))
	vInfo.setUserFieldValue(i,wert(i))
Next i
End Sub

Die Werte mußt Du nur Deinen Bedürfnissen anpassen und das wars schon.
Erstellst Du ein neues Dokument werden die Werte nun zukünftig automatisch eingetragen.


Gruß
Stephan

[Hubi]

Das ist zu einfach um selber drauf zu kommen. Klasse

[olivier]

Code: Alles auswählen

Sub Main
Dim bez(3)
Dim wert(3)
vInfo = ThisComponent.getDocumentInfo()
bez(0)="Name"
bez(1)="Anschrift"
bez(2)="Telefon"
bez(3)="Email"
wert(0)="Klaus Mustermann"
wert(1)="12345 Testhausen Gartenstraße 3"
wert(2)="123-456"
wert(3)="a@b.de"
For i = 0 to vInfo.GetUserFieldCount() - 1
	vInfo.setUserFieldName(i,bez(i))
	vInfo.setUserFieldValue(i,wert(i))
Next i
End Sub

Danke für den Tip, es funktioniert!
Oliver

[olivier]

Hallo *,

wie würde solch ein Makro nun mit OOo 2.0.3 funktionieren? Wer könnte es umschreiben, daß es nun auch noch brauchbar ist? (Bin leider nicht so der Makro-Freak...)

Danke und Gruß,
Oliver

[komma4]

Dieses Makro funktioniert auch unter OOo 2.0.3
(keine Versionsspezifika)