用于将openoffice注释复制到单元格的功能

Question

我尝试将电子表格数据导入CMS，但在我们想要导入的4000多行电子表格中，各种单元格上有大约100条评论。是否有将注释内容复制到单元格中的函数或宏？ （不作为评论，就像纯文本一样）

Answer 1

在Openoffice API中，interface XSheetAnnotationsSupplier提供了一种方法getAnnotations。使用此功能可以将所有表单注释与其位置一起使用。 Position是放置注释的单元格的地址：

sub getAnnotations()

 oThisWorkbook = ThisComponent
 oActiveSheet = oThisWorkbook.CurrentController.ActiveSheet

 oAnnotations = oActiveSheet.Annotations

 for each oAnnotation in oAnnotations
  lColumn = oAnnotation.Position.Column
  lRow = oAnnotation.Position.Row
  sText = oAnnotation.String

  oCell = oActiveSheet.getCellByPosition(lColumn, lRow)

  msgbox oCell.AbsoluteName & " has annotation: " & sText
 next

end sub

所以你有注释（评论）及其单元格。

现在你必须决定你想做什么。正如我在评论中已经说过的那样，在我看来，简单地将注释附加到单元格内容并不是一个好主意。这可能会使细胞内容无法进行进一步处理。