-----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

- --

GnuPG key 0xCFD04A45: 8822 057F 4956 46D3 352C 1A06 4E2C AB40 CFD0 4A45
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.3 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFEcFDOTiyrQM/QSkURAgybAKCaCsN1nfC8dDWuJssGHLSnrXyy/wCfaKij
qMGgZeNz6TTd7t+S2Eg4c4M=
=rT2l
-----END PGP SIGNATURE-----

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

Reply via email to