[Solved] How to get the Width of the first column of a Table

[brunnerdan]

Let's get a reference of a Table with the following code :

Code: Select all

   myDocument = ThisComponent
   myTable = myDocument.TextTables.getByName( "Table1" )

How can I get the width of the first column in my table ?

[JohnSUN-Pensioner]

Code: Select all

Sub WhereIsColumnsDelimiters(Optional numTable%)
Dim oTextTables As Object
Dim oTextTable As Object
Dim oColumns, i%
	If IsMissing(numTable) Then numTable = 0
	oTextTables = ThisComponent.getTextTables()
	If oTextTables.getCount() = 0 Then Exit Sub
	oTextTable = oTextTables.getByIndex(numTable)
	oColumns = oTextTable.getPropertyValue("TableColumnSeparators")
	For i = 0 To UBound(oColumns)
  		print " " & (i+1) & " column finished at " & oColumns(i).Position
  	Next i
End Sub

[brunnerdan]

Thanks, it seems to work. But in which unit the oColumns(i).Position is returned ? How can I convert the value returned to "centimeters" ?

[JohnSUN-Pensioner]

Oh, sorry! See here
"The real width of a table depends on the environment (page style and number of text columns at the table's position, alignment, and left and right margins). For that reason, the table column separator does not contain metric values for the column widths. The values are relative to the value of the property TextTable::TableColumnRelativeSum."

Edit: After searching on http://www.oooforum.org/

But you can try this topic

[brunnerdan]

Great, thanks !