OpenOffice makronaredbe

[Tomy]

Tvrtka nam prelazi na Open Office. Prije smo koristili Microsoft Office. Imao sam Word dokument s makronaredbama. Makronaredba je povezivala Accessovu bazu podataka s Wordovim dokumentom. Kada sam u Wordu pisao kemijski sastav materijala nisam trebao pisati sve već samo oznaku i Alt+F8 i to je to. Znam da OO koristi drugačiji jezik za pisanje makronaredbe MO, ali ovako izgleda skriptau VBA:

Sub Materijali()
'
' materijali Macro
' Macro created 98.03.26 by Dalibor Malek
'
Set Db = OpenDatabase("E:/MOJI DOKUMENTI/OSTALO/metal.mdb")
Set Rs = Db.OpenRecordset(Name:="materijali")
Rs.Index = "PrimaryKey"
For r = 0 To 9
kljuc = ""
ActiveDocument.Tables(1).Cell(Row:=20 + r, Column:=3).Range.Select
p = Selection.text
br_slova = Len(p)
For x = 1 To br_slova
slovo = Mid(p, x, 1)
If (Asc(slovo) >= 41 And Asc(slovo) <= 90) Or (Asc(slovo) >= 97 And Asc(slovo) <= 122) Or (Asc(slovo) >= 48 And Asc(slovo) <= 57) Then
kljuc = kljuc + slovo
End If
Next x
If kljuc <> "" Then
Rs.Seek "=", kljuc
If Rs.NoMatch Then
MsgBox "Materijal nije pronađen!"
End If
If Rs.NoMatch = False Then
For c = 0 To 11
ActiveDocument.Tables(1).Cell(Row:=20 + r, Column:=2 + c).Range.Select
Selection.TypeText (Rs.Fields(c).Value)
Next c
End If
End If
Next r
End Sub

Može li tko prevesti taj VBA kod u Basic za OpenOffice ili python?!

HVALA!

[jorgovan]

mislim da bi prvo trebao prebaciti i bazu.

ako već prelazite na besplatan office, možda je bolja varijanta libre office.