| View previous topic :: View next topic |
| Author |
Message |
ranoel
General User
Joined: 30 Jan 2011
Posts: 26
Location: New Hampshire, USA
|
 Posted: Fri Apr 27, 2012 5:31 am Post subject: What's wrong with this code? |
 |
|
| Code: | Dim oServiceManager, oDesktop, oDoc, oTable, oCursor, oText, oTblColSeps As Object
Dim aNoArgs(-1)
oServiceManager = CreateObject("com.sun.star.ServiceManager")
oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
oDoc = oDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, aNoArgs)
oText = oDoc.getText
oCursor = oText.createTextCursor
oTable = oDoc.createInstance("com.sun.star.text.TextTable")
oTable.initialize(5, 8)
oDoc.getText.insertTextContent(oCursor, oTable, False)
oTblColSeps = oTable.TableColumnSeparators
oTblColSeps(0).Position = 3000
oTable.TableColumnSeparators = oTblColSeps |
I get an error on this line oTblColSeps = oTable.TableColumnSeparators
the error is "Specified array was not of the expected type".
Any help would be greatly appreciated |
|
| Back to top |
|
 |
B Marcelly
Super User
Joined: 12 May 2004
Posts: 1414
Location: France
|
| Posted: Fri Apr 27, 2012 6:59 am Post subject: |
|
|
See my answer to this previous thread.
_________________
Bernard
OpenOffice.org 1.1.5 fr / OpenOffice.org 3.4.1 en-US + langpacks, MS-Windows XP Home SP3
This forum is unusable, use instead Apache OpenOffice forums |
|
| Back to top |
|
|
ranoel
General User
Joined: 30 Jan 2011
Posts: 26
Location: New Hampshire, USA
|
| Posted: Sat Apr 28, 2012 6:39 am Post subject: |
|
|
Thanks for the tip Bernard,
I went back to Ver. 3.2 and the code ran with no errors but.....
The columns widths don't seem to be changing I've tried different values and different columns. Is there something else I need to do? |
|
| Back to top |
|
|
ranoel
General User
Joined: 30 Jan 2011
Posts: 26
Location: New Hampshire, USA
|
| Posted: Sat Apr 28, 2012 7:15 am Post subject: |
|
|
False alarm Bernard -- Problem solved --
Thanks again |
|
| Back to top |
|
|
|
