Comment that I can not delete
@torreone: adding “Solved” in the title is not the right way to mark the question as “solved” because it will still be counted as unanswered by the site engine.
For a much better referencing in the site, answer your own question by cutting “Having found …” up to the end and pasting it in your answer. I used “cutting” instead of “copying”, meaning you should edit your question so that it looks like a question (explaining why you ask a new one) which now receives an acceptable answer.
To be really useful your question should include a link to 223599/writer-macro-for-extending-selection-from-table-to-paragraph-before-and-after-table.
A much better solution would be to reopen question #223599 to add your own answer. Your karma is high enough to allow you to do that and delete this one afterwards.
In question 223599/writer-macro-for-extending-selection-from-table-to-paragraph-before-and-after-table I posed the problem described by the title that @mikekaganski had given a solution to
Subsequently, after having closed the question, I had found an alternative solution that I propose here since I cannot reopen the closed discussion (it takes more than 200 karma to do this)
sub selectTable1(sTable)
Dim oD, oTab, oCell, oTC1, oVC
oD = ThisComponent
oTab = oD.getTextTables().getByName(sTable)
oVC = oD.getCurrentController().getViewCursor()
oCell = oTab.getCellByPosition(0, 0)
oVC.gotoRange(oCell, false)
oVC.goup(1, false)
oTC1=oVC.text.createTextCursorByRange(oVC)
oTC1.gotoEndOfParagraph(false)
oCell = oTab.getCellByPosition(oTab.columns.count-1, oTab.rows.count-1 )
oVC.gotoRange(oCell, false)
oVC.goDown(1, false)
oTC1.gotoRange(oVC,true)
oD.getCurrentController().select(oTC1)
End Sub
Thanks to @ajlittoz per the explaining the correct procedure to me.
I hope it is correct now.
(yes, I just edited the link to make it nicer)