OpenOffice.info

dim document   as object
	dim dispatcher as object
	dim test(5) as new com.sun.star.beans.PropertyValue
	
	test(0).Name = "Type"
	test(0).Value = ??
	test(1).Name = "SubType"
	test(1).Value = ??
	test(2).Name = "Name"
	test(2).Value = "Dokumentinfo:hallo"
	test(3).Name = "Content"
	test(3).Value = "Dokumentinfo:hallo"
	test(4).Name = "Format"
	test(4).Value = 0
	test(5).Name = "Separator"
	test(5).Value = " "
	
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	
	dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, test())

Hallo an alle, die hier lesen,

ich habe folgendes Problem: ich muss ein Makro schreiben, dass beim Speichern, im .doc Format, die vorhandenen Feldbefehle durch welche ersetzt, die auch M$ Office lesen kann.
[code]dim document as object
dim dispatcher as object
dim test(5) as new com.sun.star.beans.PropertyValue

test(0).Name = "Type"
test(0).Value = ??
test(1).Name = "SubType"
test(1).Value = ??
test(2).Name = "Name"
test(2).Value = "Dokumentinfo:hallo"
test(3).Name = "Content"
test(3).Value = "Dokumentinfo:hallo"
test(4).Name = "Format"
test(4).Value = 0
test(5).Name = "Separator"
test(5).Value = " "

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, test())[/code]

Kann mir jemand sagen was ich bei Type und Subtype eingeben muss um einen völlig selbsterstellten Feldbefehl zu haben?
Also wenn ich in den Feldbefehl reinschreibe Dokumentinfo:hallo, dass dann der inhalt des Feldes hallo steht.

Das ganze sollte unter OOo 2.4.1 laufen.

Ich weiss, dass man die Dokumentinfo:... Felder mit Type 18 und Subtype 13 bekommt, aber ich brauche Felder, die auch im .doc Format gespeichert werden.

Für alle Antworten danke ich schon mal im Vorraus.

MfG Wolfram