OpenOffice.info

Dieses Makro funktioniert auch unter OOo 2.0.3
(keine Versionsspezifika)

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

[quote="Stephan"]
[code]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[/code]
[/quote]

Danke für den Tip, es funktioniert!
Oliver

Das ist zu einfach um selber drauf zu kommen. Klasse

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

@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]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[/code]

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

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

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

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