Hello ashok,
On Saturday 31 January 2009 19:46, ashok _ wrote:
> I am running OOo 3.0 ...
on DEV300_m40 it works both with the Content property, or getting the note's
TextRange, creating a text cursor, and inserting text:
Sub Demo_1
Dim oDoc
oDoc = ThisComponent 'well... I simply suppose it's a Writer doc
Dim oNote
oNote = oDoc.createInstance("com.sun.star.text.textfield.Annotation")
oNote.Author = "Homer J. Simpson"
oNote.Content = "This is a demo"
Dim oCursor
oCursor = oDoc.getText().createTextCursor()
oCursor.goToEnd(false)
oDoc.getText().insertTextContent( oCursor, oNote, false )
End Sub
Sub Demo_2
Dim oDoc
oDoc = ThisComponent 'well... I simply suppose it's a Writer doc
Dim oNote
oNote = oDoc.createInstance("com.sun.star.text.textfield.Annotation")
oNote.Author = "Homer J. Simpson"
'oNote.Content = "This is a demo"
Dim oTextRange
oTextRange = oNote.TextRange
Dim oNoteCursor
oNoteCursor = oTextRange.getText().createTextCursor()
oTextRange.getText().insertString( oNoteCursor, "Hello...", False )
oTextRange.getText().insertControlCharacter( oNoteCursor,
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )
oTextRange.getText().insertString( oNoteCursor, "...world", False )
Dim oCursor
oCursor = oDoc.getText().createTextCursor()
oCursor.goToEnd(false)
oDoc.getText().insertTextContent( oCursor, oNote, false )
End Sub
Regards
--
Ariel Constenla-Haile
La Plata, Argentina
"Aus der Kriegsschule des Lebens
- Was mich nicht umbringt,
macht mich härter."
Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
