Formula je zgodna da od jedne kolone napravi drugu kolonu (kao i bilo koja druga formula, tipa
=A1*1,18 za računanje cene sa PDV-om od polja A1). Za više mogućnosti mogu se samo nadovezati formule, što može ružno da izgleda ali lepo radi:
=REPLACE(REPLACE(A1;SEARCH("ic$";A1);2;"ić");SEARCH("dz";A1);2;"dž")
Za pretvaranje sadržaja celih listova,
makro je bolje rešenje. Kao i u MS Excel-u za napisanu proceduru može da se postavi dugme u paletu alatki za najlakše pokretanje ili može da se procedura dodeli nekom događaju, na primer da se pokreće pri svakom čuvanju datoteke.
Da se promeni tekst u celom listu u priloženom makrou oReplaceDesc treba napraviti nad oSheet, umesto nad oRange (uzimamo celi list, a ne potez ćelija). Za zamenu u svim listovima, potrebna je petlja koja bi pozvala getByIndex(i) u intervalu 0..20. Na primer nešto ovako (
kod nije testiran):
Code:
Sub PopraviPrezime
Dim SearchStrings() As String
Dim ReplaceStrings() As String
SearchStrings(0) = "ic$"
ReplaceStrings(0) = "ić"
SearchStrings(1) = "dz"
ReplaceStrings(1) = "dž"
SearchStrings(2) = "dj"
ReplaceStrings(2) = "đ"
Dim i, j
For i = 0 To 19 ' listovi 0,1,2,...19 (20 listova)
oSheet = ThisComponent.getSheets().getByIndex(i)
oReplaceDesc = oSheet.createReplaceDescriptor()
oReplaceDesc.SearchRegularExpression = TRUE
For j = 0 To UBound(SearchStrings)
oReplaceDesc.SearchString = SearchStrings(j)
oReplaceDesc.ReplaceString = ReplaceStrings(j)
oSheet.replaceAll( oReplaceDesc )
Next j
Next i
End Sub
Više o sintaksi bejzik jezika se može pronaći u zvaničnoj dokumentaciji:
http://wiki.services.openoffic...wiki/Documentation/BASIC_Guide
Ovaj kod treba prekopirati kao novu proceduru u makroima dokumenta nakon čega je moguće pokrenuti je. Više o makroima i snimanju makroa
http://wiki.services.openoffic...tarted/Creating_a_simple_macro
Inače snimanje makroa bi trebalo da radi kao i u MS Excelu, pokrene se snimanje, odrade se komande, zaustavi snimanje. U prozorčetu se zada ime novog makroa. Makro se može pokrenuti kroz meni „Alatke > Makroi > Pokreni makro“ (engl. Tools > Macros > Run Macro). U kom koraku nastaju problemi?
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja