A fejlécek és láblécek módosításának másik módja a szöveges dokumentumoknál (StarOffice Writer) használható, mert ezek egyetlen szövegblokkból állnak. A com.sun.star.style.PageProperties szolgáltatás a következő tulajdonságokkal rendelkezik:

• HeaderText (objektum) - a fejlécet tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

• HeaderTextLeft (objektum) - a bal oldalak fejlécét tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

• HeaderTextRight (objektum) - a jobb oldalak fejlécét tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

• FooterText (objektum) - a láblécet tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

• FooterTextLeft (objektum) - a bal oldalak láblécét tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

• FooterTextRight (objektum) - a jobb oldalak láblécét tartalmazó szövegobjektum (com.sun.star.text.XText szolgáltatás).

A következő példa létrehoz egy fejlécet a szöveges dokumentum "Default" sablonjában, és hozzáadja a "Csak teszt." szöveget.

Dim Doc As Object

Dim Sheet As Object

Dim StyleFamilies As Object 

Dim PageStyles As Object

Dim DefPage As Object

Dim HText As Object



Doc = StarDesktop.CurrentComponent

StyleFamilies = Doc.StyleFamilies

PageStyles = StyleFamilies.getByName("PageStyles")

DefPage = PageStyles.getByName("Default")



DefPage.HeaderIsOn = True

HText = DefPage.HeaderText 



HText.String = "Csak teszt."

Ebben a példában a program közvetlenül a HeaderText tulajdonsággal fér hozzá az oldalstílus tulajdonságához HeaderFooterContent objektum helyett.

Középre igazítás (csak munkalapok)

A com.sun.star.sheet.TablePageStyle szolgáltatás szolgáltatás csak a StarOffice Calc-oldalstílusokkal használható, és segítségével a kinyomtatni kívánt cellatartományok középre igazíthatók az oldalon. Ez a szolgáltatás következő tulajdonságokat biztosítja:

• CenterHorizontally (logikai érték) - a táblázat tartalma vízszintesen középre van igazítva.

• CenterVertically (logikai érték) - a táblázat tartalma függőlegesen középre van igazítva.

A kinyomtatandó elemek meghatározása (csak munkalapok)

Munkalapok formázásánál megadhatjuk, hogy az oldalelemek láthatók legyenek-e. Ebből a célból a com.sun.star.sheet.TablePageStyle szolgáltatás a következő tulajdonságokat biztosítja:

• PrintAnnotations (logikai érték) - cellamegjegyzések nyomtatása.

• PrintGrid (logikai érték) - cella rácsvonalainak nyomtatása.

• PrintHeaders (logikai érték) - sor- és oszlopfejlécek nyomtatása.

• PrintCharts (logikai érték) - a munkalap diagramjainak nyomtatása.

• PrintObjects (logikai érték) - beágyazott objektumok nyomtatása.

• PrintDrawing (logikai érték) - rajzobjektumok nyomtatása.

• PrintDownFirst (logikai érték) - ha a munkalap tartalma több oldalra kiterjed, akkor először lefelé haladó sorrendben lesznek kinyomtatva, majd jobbra.

• PrintFormulas (logikai érték) - a képletek kinyomtatása a kiszámított értékek helyett.

• PrintZeroValues (logikai érték) - nullák nyomtatása.

Munkafüzet-dokumentumok hatékony szerkesztése

Míg az előző rész a munkafüzet-dokumentumok szerkezetét írta le, ez a rész a egyes cellák és cellatartományokhoz való egyszerű hozzáférést biztosító szolgáltatásokat írja le.

Cellatartományok

Az egyes cellaobjektumokon felül (com.sun.star.table.Cell szolgáltatás) a StarOffice cellatartományokat kezelő objektumokat is biztosít. Például a CellRange objektumok a munkafüzet-objektumok getCellRangeByName metódusával hozhatók létre:

Dim Doc As Object

Dim Sheet As Object

Dim CellRange As Object



Doc = StarDesktop.CurrentComponent

Sheet = Doc.Sheets.getByName("Sheet 1")

CellRange = Sheet.getCellRangeByName("A1:C15")

A munkafüzet-dokumentum cellatartományét kettősponttal (:) lehet megadni. Például az A1:C15 hivatkozás az 1-15 oszlopok celláit jelöli az A, B és C oszlopban.

A cellatartomány egyes celláinak helye a getCellByPosition metódussal határozható meg, ahol a cellatartomány bal felső cellájának koordinátái (0, 0). A következő példa ezt a metódust használja a C3 cella objektumának létrehozásához.

Dim Doc As Object

Dim Sheet As Object

Dim CellRange As Object

Dim Cell As Object



Doc = StarDesktop.CurrentComponent

Sheet = Doc.Sheets.getByName("Sheet 1")

CellRange = Sheet.getCellRangeByName("B2:D4")

Cell = CellRange.GetCellByPosition(1, 1)