как установить свойство WrapText на все ячейки листа?
 

Драсте всем!после загрузки CSV файла, я пытаюсь установить свойства WrapText на ячейки таблицы, и затем уменьшить ширину столбцов превышающих до 10см установить ширину столбцов у меня получилось а WrapText неустанавливается. чего я неправильно делаю?вот мое макро:Sub FormatCSVSheet(TargetSheet as object)dim ColIdx as integerdim curCol as Objectdim oEntries as object dim oWrapCondition(0) as new com.sun.star.beans.PropertyValuedim oAlignCondition(0) as new com.sun.star.beans.PropertyValueoWrapCon dition(0).Name = "WrapText"oWrapCondition(0).Value = trueoAlignCondition(0).Name = "AlignmentHyphenation"oAlignCondition(0) .Value = true'ThisComponent.getCurrentController( ).select(TargetSheet) oEntries = TargetSheet.getPropertyValue("Conditiona lFormat") oEntries.AddNew(oWrapCondition()) oEntries.AddNew(oAlignCondition()) TargetSheet.setPropertyValue("Conditiona lFormat", oEntries)for ColIdx = 0 to TargetSheet.getColumns().count-1 curCol = TargetSheet.getColumns().getByIndex(ColI dx) if CurCol.Width > 10000 then CurCol.OptimalWidth = False CurCol.Width = 10000 end ifnext ColIdxend sub