OpenOffice.info

Sub Notizen_anzeigen()
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
	oField = oEnum.nextElement()
	If oField.supportsService("com.sun.star.text.TextField.Annotation") Then
		x = oField.Date
		x1 = oField.Author & " (" & x.Day & "." & x.Month & "." & x.Year & ")"
		MsgBox (oField.Content, 0, x1)
	End If
Loop
End Sub

Kann ich Dir nicht helfen, wenn es um SO 5.2 geht. In OOo 1.1.2 könntest Du die Notizen beispielsweise in einem Meldungsfenster mittels eines Makros anzeigen:

[code]Sub Notizen_anzeigen()
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
oField = oEnum.nextElement()
If oField.supportsService("com.sun.star.text.TextField.Annotation") Then
x = oField.Date
x1 = oField.Author & " (" & x.Day & "." & x.Month & "." & x.Year & ")"
MsgBox (oField.Content, 0, x1)
End If
Loop
End Sub[/code]

Ich würde vermuten in SO 5.2 geht das auch mit einem Makro, jedoch habe ich weder Ahnung wie man 5.2 programmiert, noch SO 5.2 zur Hand das ich das auf gut Glück versuchen könnte.



Gruß
Stephan

Hallo,

leider gelingt es mir nicht, meine unter OpenOffice 1.1.2 geschriebenen Notizen unter StarWriter 5.2 im Tipp-Fenster anzeigen zu lassen.

Es ist zwar möglich, durch Doppelklick auf das gelbe Kästchen das "Notizen einfügen" Fenster zu öffnen, aber das Lesen von langen Notizen ist so sehr mühsam. Genau so umständlich ist es, wenn ich mit die Notizen im Navigator ansehen will.

Habt Ihr einen Tipp, wie ich mir die Notizen gut lesbar anzeigen lassen kann?!

Viele Grüße
Domera :P