Ez a példa definiál egy PaperSize nevű objektumot, amely com.sun.star.awt.Size típusú. Ez a papírméret megadásához szükséges. Ezenfelül a program létrehoz egy PrinterProperties nevű adatmezőt a két PropertyValue elem számára. Ezután inicializálja ezt az adatmezőt a Printer tulajdonság beállítani kívánt értékeivel. Az UNO szemszögéből nézve a Printer nem egy valódi tulajdonság, hanem egy imitált tulajdonság.

Sablonok

A sablonok névvel ellátott listák, amelyek formázó attribútumokat tartalmaznak. A StarOffice összes alkalmazásában megtalálhatók, és segítségükkel jelentősen egyszerűbbé válik a formázás. Ha a felhasználó módosítja egy sablon egyik attribútumát, a StarOffice automatikusan módosítja az összes dokumentumrészt, amely azon a sablonon alapul. Így például a felhasználó módosíthatja a dokumentum összes első szintű fejlécének betűtípusát egyetlen módosítással. Az adott dokumentumtípusoktól függően a StarOffice a sablonok számos típusát képes kezelni.

A StarOffice Writer által támogatott sablonok

• karaktersablonok,

• bekezdéssablonok,

• keretsablonok,

• oldalsablonok

• számozási sablonok

A StarOffice Calc által támogatott sablonok

• cellasablonok

• oldalsablonok

A StarOffice Impress által támogatott sablonok

• karakterelem-sablonok

• bemutatósablonok

A StarOffice terminológiájában a sablonok különböző típusának elnevezése StyleFamilies (stíluscsaládok) a com.sun.star.style.StyleFamily szolgáltatásnak megfelelően, amelyen alapulnak. A StyleFamilies a dokumentumobjektumon keresztül érhető el:

Dim Doc As Object

Dim Sheet As Object

Dim StyleFamilies As Object 

Dim CellStyles As Object



Doc = StarDesktop.CurrentComponent

StyleFamilies = Doc.StyleFamilies

CellStyles = StyleFamilies.getByName("CellStyles")

Ez a példa egy munkafüzet-dokumentum StyleFamilies tulajdonságát használja az összes elérhető cellasablon listájának létrehozásához.

Az egyes sablonok egy index használatával érhetők el közvetlenül:

Dim Doc As Object

Dim Sheet As Object

Dim StyleFamilies As Object 

Dim CellStyles As Object

Dim CellStyle As Object

Dim I As Integer



Doc = StarDesktop.CurrentComponent

StyleFamilies = Doc.StyleFamilies

CellStyles = StyleFamilies.getByName("CellStyles")



For I = 0 To CellStyles.Count - 1

   CellStyle = CellStyles(I)

   MsgBox CellStyle.Name

Next I

A ciklus azért van hozzáadva, mert a példaprogram megjeleníti az összes cellasablon nevét egymás után egy üzenetablakban.

Információk a különböző formázási lehetőségekről

Az összes sablon számos formázási tulajdonsággal rendelkezik. Az alábbiakban látható egy áttekintés a legfontosabb formázási tulajdonságokról és azok magyarázatának helyéről:

• Karaktertulajdonságok, 6. fejezet: Szöveges dokumentumok, com.sun.star.style.CharacterProperties szolgáltatás

• Bekezdéstulajdonságok, 6. fejezet: Szöveges dokumentumok, com.sun.star.text.Paragraph szolgáltatás

• Cellatulajdonságok, 7. fejezet: Munkafüzet-dokumentumok, com.sun.star.table.CellProperties szolgáltatás

• Oldaltulajdonságok, 7. fejezet: Munkafüzet-dokumentumok, com.sun.star.style.PageStyle szolgáltatás

• Karakterelem-tulajdonságok, 7. fejezet: Munkafüzet-dokumentumok, különböző tulajdonságok

A formázási tulajdonságok nem korlátozódnak azokra az alkalmazásokra, ahol ismertetésre kerülnek, hanem univerzálisan használhatók. Például az oldaltulajdonságok legtöbbje a Fejezet 7, Munkafüzet-dokumentumok van ismertetve, de nem csak a StarOffice Calc programban, hanem a StarOffice Writerben is használhatók.

A sablonokkal végzett munkáról bővebb információ a Fejezet 6, Szöveges dokumentumok található, a A karakter- és bekezdéstulajdonságok alapértelmezett értékei című részben.