Подскажите по созданию макроса

[ХСБ]

Приветствую всех.
Подскажите, пожалуйста как создать макрос? Нужно чтобы макрос делал ширину колонок по содержимому.... никак не могу этого добиться. Функция "записать макрос" создаёт нерабочий макрос... Что делать? P.S. Иксель подобный макрос записал без проблем... почему ООо не может?
Система: WinXP или Win7
ООо: 3/2/1 Infra

Примерный файл, и скрины "до" и "после" прилагаю.


[вложение удалено Администратором]

[Рыбка Рио]

Макрос, который делают ширину столбцов оптимальной на всем активном листе:

Код Выделить Развернуть

sub Main
Doc=ThisComponent
CC=Doc.CurrentController
CS=Doc.CurrentSelection
Sheet=CC.ActiveSheet
CC.select(Sheet)
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = CC.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "aExtraWidth"
args1(0).Value = 200

dispatcher.executeDispatch(document, ".uno:SetOptimalColumnWidth", "", 0, args1())

CC.select(CS)
end sub

[ХСБ]

Клио, большое спасибо, это именно то что нужно Всё работает!