Calc: как уcтановить свойство "Bold" для ячейки из Basic`a?

Господа, помогите пожалуйста!с помощью "записать закрос" получается такая ерунда:sub MyMain2dim document as objectdim dispatcher as objectdocument = ThisComponent.CurrentController.Framedis patcher = createUnoService("com.sun.star.frame.Dis patchHelper")dim args1(0) as new com.sun.star.beans.PropertyValueargs1(0) .Name = "Bold"args1(0).Value = truedispatcher.executeDispatch(document, ".uno:Bold", "", 0, args1())end subно должен же быть какой-то более простой способ!