Select/Highlight OpenOffice 中 table 单元格的宏和克隆

Question

我正在 NeoOffice 中编写一个 Basic macro（一个 mac OO 克隆），我想 highlight/select table 光标所在的单元格在 macro 运行时。

Google 给了我以下相关的片段集，它确实为单元格着色，但我想 select/highlight 它而不是像使用鼠标一样。我觉得我在正确的轨道上...

Sub selectCell
    Dim the_Cursor   As Object
    Dim the_CurCell   As Object

    the_CurCell=thisComponent.currentSelection(0).cell
    the_Cursor=the_CurCell.CreateTextCursorByRange(the_CurCell.start)
    the_Cursor.GoRight(1, true) 'le curseur recouvre toute la cellule
    the_Cursor.GoLeft(1, true) 'le curseur recouvre toute la cellule

    'the_CurCell.setPropertyValue("BackColor", 16711935) ' Magenta clair / Light Magenta
End Sub

有什么想法吗？

PS:我是运行 NeoOffice v3.3，应该是基于同一个版本的OO。

Answer 1

从
复制答案 https://forum.openoffice.org/en/forum/viewtopic.php?f=45&t=77377

Sub select_Cell_Texttable
    oTexttables = thiscomponent.texttables
    oTable1 = oTexttables.getByName("Table1")
    ocell = oTable1.getcellbyPosition(0,0)
    'ocell = oTable1.getcellbyName("A1")
    oViewCursor = ThisComponent.CurrentController.ViewCursor
    oViewCursor.gotoRange(ocell,false)
    oViewCursor.goright(1,true)
    oViewCursor.goleft(1,true)
end sub

Select/Highlight OpenOffice 中 table 单元格的宏和克隆

Macro to Select/Highlight a cell in a table in OpenOffice and clones

openoffice.org

openoffice-writer

openoffice-basic