To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=116420
User lunter changed the following:
What |Old value |New value
================================================================================
Version|OOO330m9 |OOO330m20
--------------------------------------------------------------------------------
------- Additional comments from [email protected] Wed Jan 26 09:05:50
+0000 2011 -------
Sub Main
Dim oSM
Dim oDesk, oDoc As Object
Dim arg()
Dim oTable As Object
Dim oCells As Object
Dim oText As Object
Dim oCursor As Object
Dim oCellText As Object
Dim oCellCursor As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter","_blank",0,arg
())
Set oText = oDoc.Text
Set oCursor = oDoc.CurrentController.GetViewCursor
Set oTable = oDoc.createInstance("com.sun.star.text.TextTable")
oTable.initialize(1,2)
oText.InsertTextContent(oCursor,oTable,false)
Set oCells = oTable.getCellRangeByPosition (0,0,1,0)
' Range chars weight works
oCells.CharWeight = 150
' Range vertical centering do not
work !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
oCells.VertOrient = 2
Set oCellText = oTable.GetCellByPosition(0,0)
Set oCellCursor = oCellText.CreateTextCursor
oCellText.InsertString(oCellCursor,"oCells.VertOrient = 2" + chr(13) + "do not"
+ chr(13) + "work",false)
Set oCellText = oTable.GetCellByPosition(1,0)
Set oCellCursor = oCellText.CreateTextCursor
oCellText.InsertString(oCellCursor,"bolder and vertical centered Text",false)
' amazingly, it works:
' oCellText.VertOrient = 2
End Sub
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
