Ubuntu Suomen keskustelualueet

Ubuntun käyttö => Ohjelmointi, palvelimet ja muu edistyneempi käyttö => Aiheen aloitti: peran - 13.04.08 - klo:20.53

Otsikko: [Ratkaistu]Kuinka OpenOffice-makrolla sivunumero makromuuttujaan?
Kirjoitti: peran - 13.04.08 - klo:20.53

Siis kuinka imutetaan kursorin kohdan sivunumero oletus dokumentissa OpenOffice-BASIC:lla Basicin muuttujaan ?

Monimutkaisesti sanottu, joten vähän rautalankaa...

Kursori on kohdassa X, ja kaipaisin ko. sivunumeroa, jossa kursori sillä hetkellä on.
Sillä ei ole väliä onko kyseessä ko. osan sivunumero vai absoluuttinen sivunumero, mutta ko. sivunumero pitäisi saada tietoon muuttujalle.

Pitäisiköhän tätä yrittää kysyä OpenOffice-foorumilla - valitettavasti englanti ei ole parhaita puoliani.

Joops, ja OpenOffice Writeri on kyseessä.

Edit - ilmeisesti tuosta on kysymyksessä, mutta kuinka tota käytetään?
http://api.openoffice.org/docs/common/ref/com/sun/star/text/XPageCursor.html#getPage

Otsikko: Vs: Kuinka OpenOffice-makrolla sivunumero makromuuttujaan?
Kirjoitti: peran - 13.04.08 - klo:22.33

Lainaus käyttäjältä: peran - 13.04.08 - klo:20.53

Edit - ilmeisesti tuosta on kysymyksessä, mutta kuinka tota käytetään?
http://api.openoffice.org/docs/common/ref/com/sun/star/text/XPageCursor.html#getPage

Jostain syystä yritelmäni ei toimi.

Koodia: [Valitse]

sub kojeilu
Dim Pages as Object
dim sivunro as integer
Pages=createUnoService("com.sun.star.text.XPageCursor")
sivunro=Pages.getPage()
Msgbox("Pages "+sivunro, 16, GetProductName())
Resume LEAVEPROC
LEAVEPROC:
end sub

???

Otsikko: Vs: Kuinka OpenOffice-makrolla sivunumero makromuuttujaan?
Kirjoitti: peran - 14.04.08 - klo:13.13

Joo, no nyt tiedän, ettei se noin mene, sillä se on vain interface, mutta ko. interfacen toteuttaa TextViewCursor, jota siis haluaisin käyttää, mutta kuinka? ... Siis ainakin luullakseni.

http://doc.services.openoffice.org/wiki/Documentation/DevGuide/Text/TextViewCursor

TextViewCursor-tyyppisen objektin saa getViewCursorilla, joka löytyy interface:sta XTextViewCursorSupplier.

No, jo on monimutkaista.  :P

No, service löytyi, mutta kuinka sitä käytetään?

service TextDocumentView

Otsikko: Vs: Kuinka OpenOffice-makrolla sivunumero makromuuttujaan?
Kirjoitti: peran - 15.04.08 - klo:13.05

No, nyt löytyi ratkaisu, kunhan vähän tai ihan jonkun verran etsiskelin.

Koodia: [Valitse]

Sub Main
Dim DocVw as Object
dim sivunro as integer
dim document as object
document = ThisComponent
DocVw = document.getCurrentController().getViewCursor()
sivunro = DocVw.getpage()
Msgbox("Page "+sivunro)
End Sub

Ehkä tämä riittää ongelman ratkaisuun... Ehkä ei, mutta jonkun sivunumeron se sentään näyttää.