OOoBasic/Writer/Comments

  0
  1
  2
  3
  4
  5
  6
  7
  8

Sub InsertComment
  oDoc = ThisComponent
  oText = oDoc.getText()
 
  ' new comment field
  oComment = oDoc.createInstance("com.sun.star.text.textfield.Annotation")
  oText.insertTextContent(oText.getStart(), oComment, False)
  oComment.Content = "Comment"
End Sub

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13

sub GetAllComments
  oDoc = ThisComponent
  oFields = oDoc.getTextFields()
  
  oFieldEnume = oFields.createEnumeration()
  While oFieldEnume.hasMoreElements()
    oField = oFieldEnume.nextElement()
    If oField.supportsService("com.sun.star.text.textfield.Annotation") Then
      
      ' do something
      msgbox oField.Content
    End If
  WEnd
end sub