Adăugarea unui nou șablon:
Exemplu, pentru Client:
Clienți - Clienți - Imprimare șablon - Adăugați
În mod similar, puteți adăuga un șablon de contract:
Clienți - Contracte - Imprimare șablon - Adăugați
Extensii de fișiere. În OpenOffice Writer, șabloanele sunt salvate cu extensia * .ott.
Salvarea unui șablon în OpenOffice Writer:
- Fișier - Salvare ca ... - selectați OpenDocument text document template (* .ott)
În OpenOffice Calc șabloanele sunt salvate cu extensia * .ots.
Salvarea șablonului în OpenOffice Calc:
- Fișier - Salvare ca ... - selectați OpenDocument (* .ots)
Șabloane în scriitorul OpenOffice
Șabloanele pot conține text, tabele și alte elemente de formatare OpenOffice Writer. Ca și în MS Office, puteți adăuga câmpuri pentru umplere și macrocomenzi pentru șablon.
Crearea câmpurilor în șablon:
Inserare - Câmpuri - Extra ... - Accesați fila "Opțiuni" - Câmp de introducere - introduceți în câmpul Prompt, de exemplu "Client.Name" - Inserare - Închidere
Câmpurile care vor fi folosite în viitor în macro sunt denumite după cum urmează:
Inserare - Câmpuri - Avansat ... - Accesați fila "Caracteristici" - Câmp de introducere - Introduceți - introduceți numele câmpului, de exemplu "Nume" - OK - Închidere
Crearea scripturilor în șablon:
În șablon, puteți adăuga, de asemenea, o procedură VBA, pentru aceasta, în fereastra de editare a șabloanelor, trebuie să selectați o macrocomandă existentă sau să adăugați una nouă.
La scrierea scripturilor pentru OpenOffice Writer și OpenOffice Calc, următorul text este transferat în script:
Setați oXPL = NamedObjects. ParamList () - lista parametrilor obiectului.
Setați oApp = oXPL.VariantProperty ("APPENDIX") - interfața aplicației la care va apărea ieșirea.
Setați oDesktop = oXPL.VariantProperty ("ADD1") - conține interfața desktop OpenOffice
Setați oDoc = oXPL.VariantProperty ("ADD2") - conține interfața documentului
Pentru a accesa câmpul în funcția macro este utilizat getPropertyValue ( „Conținut“), al cărei rezultat este valoarea de sfaturi pentru atribuirea de valori în acest domeniu - setPropertyValue „Conținut“, noua valoare.
Pentru a găsi câmpul necesar pe șablon în macro, utilizați căutarea tuturor câmpurilor din șablon. Funcția getTextFields () CreateEnumeration () creează o listă cu toate câmpurile din șablon. Domenii pot sorta prin intermediul sau până când a alerga afară (funcția hasMoreElements (), în acest caz, este adevărat), sau nu și-a găsit încă câmpul corespunzător (a se compara sfaturi de teren valoare (getPropertyValue ( „Conținut“)) la valoarea dorită).
Pentru a scrie în câmpul curent, utilizați funcția setPropertyValue "Conținut", noua valoare
Setați oFields = oDoc.getTextFields () CreateEnumeration () 'o listă cu toate câmpurile șablonului este scrisă la oFields
În timp ce (oFields.hasMoreElements ())
Setați oElem = oFields.nextElement ()
Dacă oElem.supportsService ("com.sun.star.text.TextField.Input") Apoi
Dacă oEm.getPropertyValue ("Content") = "Date" Apoi
Funcția oElem.supportsService ("com.sun.star.text.TextField.Input") verifică dacă acest câmp este text sau nu.
Exemplu de ieșire a sumei în cuvinte la sfârșitul documentului:
Setați oXPL = NamedObjects.ParamList ()
Setați oApp = oXPL.VariantProperty ("APPENDIX")
Setați oDesktop = oXPL.VariantProperty ("ADD1")
Setați oDoc = oXPL.VariantProperty ("ADD2")
Setați wf = CreateObject ("wfintools.comtools")
sFields = wf.Propis ("45.1", "978")
Setați oEnd = oDoc.getText (). GetEnd ()
Dacă nu, atunci nu este nimic
Exemplu de conversie a unui format de dată:
Setați oXPL = NamedObjects.ParamList ()
Setați oApp = oXPL.VariantProperty ("APPENDIX")
Setați oDesktop = oXPL.VariantProperty ("ADD1")
Setați oDoc = oXPL.VariantProperty ("ADD2")
Setați wf = CreateObject ("wfintools.comtools")
dstr = G2C. GetSysParam ("Data zilei")
oDoc.getText () setString ("Data zilei" vbNewLine wf.FormatDate (dstr))
Șabloane în OpenOffice Calc
Crearea scripturilor în șablon:
Scriptul OpenOffice Calc trimite aceleași date ca și în OpenOffice Writer.
Pentru a scrie date într-o celulă, trebuie să se aplice mai întâi pentru el prin utilizarea getCellByPosition (N1, N2), în cazul în care N1 - numărul de celule (numerotarea celulară începe cu 0) orizontal, N2 - numărul vertical. Apoi scrieți datele folosind funcția SetString () (pentru text) sau SetValue () (pentru numere).
Setați oXPL = NamedObjects .ParamList ()
Setați oApp = oXPL.VariantProperty ("APPENDIX")
Setați oDesktop = oXPL.VariantProperty ("ADD1")
Setați oDoc = oXPL.VariantProperty ("ADD2")
'valoarea foii curente este trecută la oSheet
Setați oSheet = oDoc.CurrentController.getActiveSheet ()
Setați oCell_1 = oSheet.getCellByPosition (1, 2)
- variabila oCell_1 indică cea de-a doua celulă (B3) orizontală și verticală în care este scris "textul".
Exemplu de elaborare a unei liste de contracte deschise pentru clienți:
Setați oSheet = oDoc.CurrentController.getActiveSheet ()
Set Client = NamedObjects .ActiveObject ("Client")
Startdate = G2C .GetSysParam ("Data zilei")
"Variabile Dogovor prin obiectul" Client "i se atribuie obiectul" Contract "
Setați Dogovor = client.GetMultiLink ("Contract")
Dacă Dogovor.GetFirst () Apoi
nbsp Set Dog = Dogovor.GetBaseObject (Adevărat)
dataO = Dog.GetProperty ("Data deschiderii." Nimic) .GetStr ()
dataz = Dog.GetProperty ("Data de închidere", nimic) GetStr ()
„Dacă data de deschidere a contractului este mai mică decât operdnya data, iar contractul nu este închis (de exemplu, în“ domeniul de la data de închidere este nul), apoi celula cu numărul (i, 6) numărul „a intrat, și (i, 9) Data de deschidere contract cu o schimbare a semnelor "" / "pe". "
Dacă (CDate (dataO)