OpenOffice.info

sub Propertytest
set DocInfo = ThisComponent.DocumentInfo

n = "freiesTestProp"
v = "neuer Inhalt um " & Time$
if DocInfo.PropertySetInfo.hasPropertyByName(n) then
	msgbox "Feld vorhanden mit Wert: " & DocInfo.GetPropertyValue(n)
	DocInfo.SetPropertyValue n, v	
else
	msgbox "Feld nicht vorhanden, wird neu angelegt"
	DocInfo.AddProperty n, 0, v
endif

end sub

Hat mir jetzt keine Ruhe gelassen und habe es gefunden!

Hier ein Code, wo man es leicht nachvollziehen kann, falls es mal irgendjemand anderes noch braucht

[code]
sub Propertytest
set DocInfo = ThisComponent.DocumentInfo

n = "freiesTestProp"
v = "neuer Inhalt um " & Time$
if DocInfo.PropertySetInfo.hasPropertyByName(n) then
msgbox "Feld vorhanden mit Wert: " & DocInfo.GetPropertyValue(n)
DocInfo.SetPropertyValue n, v
else
msgbox "Feld nicht vorhanden, wird neu angelegt"
DocInfo.AddProperty n, 0, v
endif

end sub
[/code]

Hi Karolus,

danke für die Antwort, wenn nichts besseres noch kommt, dann werde ich es so versuchen müssen. Muss aber erst mal Testen, wie viel Zeichen diese Felder aufnehmen können, wie gesagt, habe da etwas mehr an Infos zu hinterlegen.

Mir ist noch ne Idee gekommen, aber leider Termine, so dass ich es erst morgen testen kann. Werde mit MS-Würg da mal Dokumente mit vielen Zusatzinfos erzeugen und importieren, mal schauen, ob und wie Writer die Infos speichert.

dim oPropValues2(0) as new com.sun.star.beans.PropertyValue

oPropValues2(0).Name = "Title"
oPropValues2(0).Value = "Inhalt für Titel/und_gleich_die_Zusatzinfo/und noch mehr"

Hallo

[quote="khsc7"]
müßte das nicht....
dim oPropValues2([b]2[/b]) as new com.sun.star.beans.PropertyValue sein?

Hermann[/quote]

Nein das wären drei opropvalue2-Paare


Wäre es nicht machbar das du mehrere Infos zusammenpackst:
[code]dim oPropValues2(0) as new com.sun.star.beans.PropertyValue

oPropValues2(0).Name = "Title"
oPropValues2(0).Value = "Inhalt für Titel/und_gleich_die_Zusatzinfo/und noch mehr"[/code]

und diese beim späteren auslesen wieder mit :
split(alles,/) auseinandernimmst ?

Gruß Karo

Moin,

müßte das nicht
[quote]dim oPropValues2([b]2[/b]) as new com.sun.star.beans.PropertyValue
[/quote]
sein?

Hermann

dim oPropValues2(1) as new com.sun.star.beans.PropertyValue

oPropValues2(0).Name = "Title"
oPropValues2(0).Value = "Inhalt für Titel"
oPropValues2(1).Name = "Zusatzinfo1"
oPropValues2(1).Value = "Inhalt für Zusatzinfo"
ThisComponent.getDocumentInfo().SetPropertyValues(oPropValues2)

oPropValues() = ThisComponent.getDocumentInfo().getPropertyValues()

on error resume next	' Datum/Zeitangaben müssen anders gelesen werden, aber hier egal...
For i=LBound(oPropValues()) To UBound(oPropValues())
  s = s & i & ": " & oPropValues(i).Name & " = " & oPropValues(i).Value
  s = s & CHR$(10)
Next
msgbox s

Hallo,

ich müsste per Makro ein Dokument zusätzliche Infos speichern, die primär nur vom Makro aus zu lesen und zu schreiben sind. Es gibt zwar im "Datei"-"Eigenschaften" diese 4 Infofelder, das wäre schon mal ein Anfang, aber leider brauche ich aber viel mehr Felder, so wie es in MS-Würg :roll: ist, wo man da beliebig viele hinzufügen kann.

Habe schon eine mal versucht (hoffte auf eine undokumenterte Möglichkeit), es einfach in die Dokumentinfo reinzuschieben, es erfolgt auch kein Fehler, nur drin ist nichts...
Im folgendem Beispiel wird das Feld "Title" korrekt verändert, meine Zusatzinfo wird verschluckt.
[code]
dim oPropValues2(1) as new com.sun.star.beans.PropertyValue

oPropValues2(0).Name = "Title"
oPropValues2(0).Value = "Inhalt für Titel"
oPropValues2(1).Name = "Zusatzinfo1"
oPropValues2(1).Value = "Inhalt für Zusatzinfo"
ThisComponent.getDocumentInfo().SetPropertyValues(oPropValues2)

oPropValues() = ThisComponent.getDocumentInfo().getPropertyValues()

on error resume next ' Datum/Zeitangaben müssen anders gelesen werden, aber hier egal...
For i=LBound(oPropValues()) To UBound(oPropValues())
s = s & i & ": " & oPropValues(i).Name & " = " & oPropValues(i).Value
s = s & CHR$(10)
Next
msgbox s
[/code]

Hat irgendjemand noch ne andere Idee, die mich weiter bringen könnte?