VBNet - Форум - Работа с OpenOffice write

Вопрос: Работа с OpenOffice write Добавлено: 13.02.10 16:12

Автор вопроса: whoppeee | ICQ: 401956393

Здрасти. Вопрос тем кто имел опыт работы с ОО в ВБ.НЕТ
необходимо сделать алюбомную ориентацию страницы. почти на всех форумах написано чтото схожее, из всего етого изверг след. код

   Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
        Dim oText As Object = oDoc.getText()
        Dim oCursor As Object = oText.createTextCursor()
        Dim Table As Object = oDoc.createInstance("com.sun.star.text.TextTable")

        oDoc.StyleFamilies.getByName("PageStyles").getByName("Default").IsLandscape = True

последняя строчка, собственно за ето и отвечает.

но в результате выполнения вылазиет ошибка

com.sun.star.container.NoSuchElementException

в чем проблема помогите((

и еще вопросик - как создать новую страницу и начать писать с нее? буду оч признателен
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: whoppeee ICQ: 401956393 Вопросов: 3 Ответов: 6	Профиль \| Цитата \| #1	Добавлено: 18.02.10 13:45
	разобрался с этим сам)) выкладываю для тех кому ето пригодится.. im oSM As Object = CreateObject("com.sun.star.ServiceManager" im oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop" im arg(-1) As Object im oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg) im oText As Object = oDoc.getText() im oCursor As Object = oText.createTextCursor() im Table As Object = oDoc.createInstance("com.sun.star.text.TextTable" im oNewStyle = oDoc.createInstance("com.sun.star.style.PageStyle" im oStyle As Object, s 'ориентация s = oCursor.PageStyleName oStyle = oDoc.StyleFamilies.getByName("PageStyles".getByName(s) oNewStyle.setPropertyValue("IsLandscape", True) oNewStyle.setPropertyValue("Width", oStyle.Height) oNewStyle.setPropertyValue("Height", oStyle.Width) oDoc.StyleFamilies.getByName("PageStyles".insertByName("LandscapeStyle", oNewStyle) oCursor.setPropertyValue("PageDescName", "LandscapeStyle" ' курсор с новой страницы: oText.insertControlCharacter(oCursor, 0, False) oCursor.BreakType = 4 oCursor.gotoEnd(False) Ответить

Номер ответа: 2 Автор ответа: whoppeee ICQ: 401956393 Вопросов: 3 Ответов: 6	Профиль \| Цитата \| #2	Добавлено: 18.02.10 13:46
	im oSM As Object = CreateObject("com.sun.star.ServiceManager" im oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop" im arg(-1) As Object im oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg) im oText As Object = oDoc.getText() im oCursor As Object = oText.createTextCursor() im Table As Object = oDoc.createInstance("com.sun.star.text.TextTable" im oNewStyle = oDoc.createInstance("com.sun.star.style.PageStyle" im oStyle As Object, s 'ориентация s = oCursor.PageStyleName oStyle = oDoc.StyleFamilies.getByName("PageStyles".getByName(s) oNewStyle.setPropertyValue("IsLandscape", True) oNewStyle.setPropertyValue("Width", oStyle.Height) oNewStyle.setPropertyValue("Height", oStyle.Width) oDoc.StyleFamilies.getByName("PageStyles".insertByName("LandscapeStyle", oNewStyle) oCursor.setPropertyValue("PageDescName", "LandscapeStyle" ' курсор с новой страницы: oText.insertControlCharacter(oCursor, 0, False) oCursor.BreakType = 4 oCursor.gotoEnd(False) Ответить

Номер ответа: 3 Автор ответа: whoppeee ICQ: 401956393 Вопросов: 3 Ответов: 6	Профиль \| Цитата \| #3	Добавлено: 18.02.10 13:47
	блин.. ну кароч вы поняли если че Ответить

Страница: 1 |