Re: [api-dev] Put view cursor in a table cell (writer)

[Jo]

Oliver Brinzing schreef:

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hi,

try ...

OPTION EXPLICIT

Sub Main

        Dim oDocument as Object
        Dim oTable as object
        Dim oCell as object
        Dim oViewCursor as object

        oDocument = ThisComponent
        oTable = oDocument.TextTables.getByName("MyTable")
        oCell = oTable.getCellByName("A1")

        oViewCursor = oDocument.getCurrentController().ViewCursor
        oViewCursor.gotoRange(oCell.createTextCursor(), False)
        
oDocument.getCurrentController().getFrame().getContainerWindow().Setfocus
                
End Sub

Oliver

This is great. It works like a charm. Many thanks!

Jo

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]