Замена текста в документе OOWriter3.0.0rc3
 

Не получается... Вот такой кодPrivate Sub Command1_Click()Dim arg()Dim service As ObjectDim desktop As ObjectDim Document As ObjectDim bookmark As Object Set service = CreateObject("com.sun.star.ServiceManage r")Set desktop = service.CreateInstance("com.sun.star.fra me.Desktop")Set Document = desktop.loadComponentFromURL("file:///" & Replace(App.Path, "\", "/") & "/.sxw", "_blank", 0, arg()) ZReplace = Document.createReplaceDescriptorZReplace .SearchString = "Ищем"ZReplace.ReplaceString = "Меняем"Document.replaceAll (ZReplace)End SubДокумент открывает, но вываливает ошибку на строке ZReplace = Document.createReplaceDescriptorГде что не правильно? Спасибо заранее!