[Solved] Insert Annotation/Coment in Writer from macro

[Trainux]

Hello, i'm trying simulate the ctrl+Alt+C from macro.
This is my code but the annotation appears empty... What i'm making wrong?

Code: Select all

Sub tp_insertarComentario(ByVal cad As String)
	Dim document   as object
	Dim dispatcher as object
	Dim oct1
	
	
	document = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	oct1 = ThisComponent.getCurrentController()
	
	
	dim args2(2) as new com.sun.star.beans.PropertyValue
	args2(0).Name = "Text"
	args2(0).Value =  "Text of the annotation" 
	args2(1).Name = "Author"
	args2(1).Value = "Test"
	args2(2).Name = "Date"
	args2(2).Value = ""
	dispatcher.executeDispatch(document, ".uno:InsertAnnotation", "", 0, args2())

End Sub

[FJCC]

I suggest something like this instead, which inserts a comment at the position of the view cursor

Code: Select all

oAnno = ThisComponent.createInstance("com.sun.star.text.textfield.Annotation")
oAnno.Content = "My Text"
oAnno.Author = "f c"
oText = ThisComponent.Text
oVC = ThisComponent.CurrentController.ViewCursor
oText.insertTextContent(oVC.Start, oAnno, False)

[RoryOF]

If you download Annotation Tool and inspect its code I think you should get what you need,

http://en.ooo-info.org/documentation/an ... _tool.html project was called AnnotationTool

Edit: Above link is dead - site abandoned (08 February 2018). This link may provide some assistance https://openoffice-libreoffice.developp ... nnotations

[Trainux]

I suggest something like this instead, which inserts a comment at the position of the view cursor

Code: Select all

oAnno = ThisComponent.createInstance("com.sun.star.text.textfield.Annotation")
oAnno.Content = "My Text"
oAnno.Author = "f c"
oText = ThisComponent.Text
oVC = ThisComponent.CurrentController.ViewCursor
oText.insertTextContent(oVC.Start, oAnno, False)

Thanks, work perfectly!