OpenOffice, konfigurációs példák
Új sablon:
Egy példa az ügyfél:
Az ügyfelek - Ügyfelek - sablonok, amelyek print - Add
Hasonlóképpen, felveheti a szerződés sablon:
Az ügyfelek - szerződések - sablonok, amelyek print - Add
Fájl kiterjesztések. Az OpenOffice Writer sablonok mentési kiterjesztésű * .ott.
Megtakarítás a sablon OpenOffice Writer:
- Fájl - Mentés másként ... - válaszd ki a Szöveges dokumentum sablon OpenDocument (* .ott)
Az OpenOffice Calc sablonok mentési kiterjesztésű * .ots.
Megtakarítás a sablon OpenOffice Calc:
- Fájl - Mentés másként ... - válasszon ki egy sablont e OpenDocument munkafüzet (* .ots)
Sablonok OpenOffice Writer
Sablonok tartalmazhatnak szöveget, táblázatokat és egyéb formázási elemeket OpenOffice Writer. Mivel az MS Office, a területen, akkor adjunk hozzá egy sablont, hogy töltse ki, és makrók.
Létrehozása mezőt egy sablon:
Beszúrás - Mezők - Egyéb ... - menj a „Beállítások” - Beviteli mező - írja a Tip kellékek, mint például a „Klient.Imya” - Paste - Close
Azokon a területeken, amelyeket használni fognak később a makró elnevezése a következő:
Beszúrás - Mezők - Egyéb ... - menj a „Beállítások” fül - Beviteli mező - Paste - írja a mező nevét, mint a „Name” - OK - Close
Létrehozása szkriptek a sablon:
A sablon is hozzá VBA eljárás erre a mezőben sablont válasszon ki egy meglévő makrót vagy adjon meg egy újat.
Írásakor szkriptek OpenOffice Writer és OpenOffice Calc a script továbbítjuk az alábbiak szerint:
Állítsa oXPL = NamedObjects. ParamList () - a lista objektum paramétereit.
Állítsa oApp = oXPL.VariantProperty ( „Alkalmazások”) - az alkalmazás felület, amelyet arra a következtetésre jutott.
Set oDesktop = oXPL.VariantProperty ( "DOPOBEKT1") - tartalmaz asztali felület OpenOffice
Állítsa oDoc = oXPL.VariantProperty ( "DOPOBEKT2") - tartalmazza a dokumentum interfész
Ahhoz, hogy a mező a makró funkció használatakor getPropertyValue ( „Tartalom”), melynek eredménye az értéke tippeket tulajdonított érték ezen a területen - setPropertyValue „tartalom”, az új értéket.
Ahhoz, hogy megtalálja a sablont a kívánt területen a makro használható végig a területen található a sablont. getTextFields () függvény. createEnumeration () létrehoz egy listát az összes sablon mezők. Fields rendezheti át, vagy amíg el nem fogynak (hasMoreElements () függvény ebben az esetben igaz), vagy még nem talált megfelelő területen (vö értékmezőben tippek (getPropertyValue ( „Tartalom”)) a kívánt érték).
Rögzíteni az aktuális mezőben használni a funkciót setPropertyValue „tartalom”, az új érték
Set oFields = oDoc.getTextFields (). CreateEnumeration () „egy listát az összes sablon mezők rögzített oFields
Do While (oFields.hasMoreElements ())
Set oElem = oFields.nextElement ()
Ha oElem.supportsService ( "com.sun.star.text.TextField.Input") Ezután
Ha oElem.getPropertyValue ( "Tartalom") = "date" Akkor
oElem.supportsService ( „com.sun.star.text.TextField.Input”) funkció ellenőrzi a szöveg ezen a területen, vagy sem.
Példa kimeneti szavak összefoglalni a végén a dokumentumot:
Set oXPL = NamedObjects.ParamList ()
Állítsa oApp = oXPL.VariantProperty ( "Melléklet")
Állítsa oDesktop = oXPL.VariantProperty ( "DOPOBEKT1")
Állítsa oDoc = oXPL.VariantProperty ( "DOPOBEKT2")
Állítsa wf = CreateObject ( "wfintools.comtools")
sFields = wf.Propis ( "45,1", "978")
Set oEnd = oDoc.getText (). GetEnd ()
Ha nem oEnd semmi Aztán
Egy példa az átalakítás dátum formátum:
Set oXPL = NamedObjects.ParamList ()
Állítsa oApp = oXPL.VariantProperty ( "Melléklet")
Állítsa oDesktop = oXPL.VariantProperty ( "DOPOBEKT1")
Állítsa oDoc = oXPL.VariantProperty ( "DOPOBEKT2")
Állítsa wf = CreateObject ( "wfintools.comtools")
dstr = G2C .GetSysParam ( "Dátum operdnya")
oDoc.getText (). setString ( "Dátum operdnya" vbNewLine wf.FormatDate (dstr))
Sablonok OpenOffice Calc
Létrehozása szkriptek a sablon:
Az OpenOffice Calc script át ugyanazokat az adatokat, mint az OpenOffice Writer.
Annak érdekében, hogy adatokat írjon be egy cellába, akkor először alkalmazni, hogy segítségével a getCellByPosition (N1, N2), ahol N1 - a sejtek számát (Cell számozás kezdődik 0) vízszintesen, N2 - függőlegesen számát. Ezután rögzítse az adatokat a SetString () függvény (szöveges), vagy a setValue () (A számok).
Set oXPL = NamedObjects .ParamList ()
Állítsa oApp = oXPL.VariantProperty ( "Melléklet")
Állítsa oDesktop = oXPL.VariantProperty ( "DOPOBEKT1")
Állítsa oDoc = oXPL.VariantProperty ( "DOPOBEKT2")
„A oSheet továbbított érték az adott lap
Set oSheet = oDoc.CurrentController.getActiveSheet ()
Set oCell_1 = oSheet.getCellByPosition (1, 2)
- oCell_1 változó pont a második vízszintes és függőleges harmadik cella (B3), amelybe be van írva a „szöveg”.
Példa egy listát a nyitott vevői szerződések:
Set oSheet = oDoc.CurrentController.getActiveSheet ()
Állítsa Client = NamedObjects .ActiveObject ( "Ügyfél")
Startdate = G2C .GetSysParam ( "Dátum operdnya")
„Változó dogovor keresztül az»Ügyfél«van rendelve az objektum»Megállapodás«
Állítsa dogovor = client.GetMultiLink ( "Megállapodás")
Ha Dogovor.GetFirst () Akkor
nbsp Set Dog = Dogovor.GetBaseObject (True)
dataO = Dog.GetProperty ( "DataOtkrytiya". Semmi) .GetStr ()
dataz = Dog.GetProperty ( "DataZakrytiya". Semmi) .GetStr ()
„Ha az megnyitásának időpontja a szerződés kevesebb, mint operdnya időpontja, és a szerződés nem zárt (azaz a” mezőben a záró időpont null), akkor a cellát a (i, 6) „megadott szám és (i, 9) megnyitásának időpontja egyetértésben a változás az ő karakter / "on„”
Ha (CDate (dataO)