сохранение макросов в документы сохраняемых как xls (97-XP)

Пишу простейший макрос:sub Maindim 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 = "StringName"args1(0).Value = "macros test"dispatcher.executeDispatch(document , ".uno:EnterString", "", 0, args1())dispatcher.executeDispatch(docum ent, ".uno:JumpToNextCell", "", 0, Array())end subсохраняю макрос в тело документазакрываю/открываю документ.Куда делся макрос ?Что я делаю не так ?