LibreOffice: Több dokumentum létrehozása adattáblából

Szerintem a probléma első fele klasszikus körlevél készítési feladatként kezelhető, nem kell hozzá semmit makrózni:

http://szabadut.fsf.hu/oktatas/oktatovideok/writer-videok/korlevel-kesz…

A random adatmintát meg a Calc RANDBETWEEN függvényével elő lehet állítani, majd egy másik körlevél adatforrásaként felhasználni.

https://help.libreoffice.org/Calc/Mathematical_Functions/hu#RANDBETWEEN

Minimális makrózást használó megoldás. A munkafüzet egy új ikont tartalmaz a nyomtatás mellett, amire (a makrók engedélyezése, és a biztonsági szint alacsonyabbra állítása után) kattintva megkérdezi, hány véletlen feladatlapot nyomtasson (a nagyobb biztonság miatt érdemes a makrókat az állományból a LibreOffice makrók közé másolni).

Az első munkafüzetlap tartalmazza az adatokat, a második (a nyomtatandó feladatlap) a rá való hivatkozásokat, amely az F9 lenyomásával véletlen értékekkel frissíthető. A makrózásra, plusz ikonra csak azért volt szükség, mert nem találtam arra lehetőséget, hogy több példány nyomtatásánál menet közben is frissítse a nyomtatott lapot a LibreOffice. A makró bekér egy számot, majd annyiszor hívja meg a makrórögzítéssel felvett F9 (frissítés) és alapértelmezett nyomtatás műveleteket. A tényleges makróírás tehát csak egy adatbekérő InputBoxot tartalmazó ciklus volt, és jó esetben erre sem lett volna szükség. A felhasznált Calc függvények: COUNTA, RAND, INT, INDIRECT, a két első sor nem kerül nyomtatásra a formázás miatt (Cellavédelem » Nem nyomtatható).

sub

A Csabának írt makró publikus részei (a Main-t kell futtatni, a másik kettő függvény):

REM **************
REM Az utolsó foglalt sor indexét adja vissza egy oszlopban
REM -1-gyet ad vissza, ha minden oszlop üres
REM **************


Function LastRowIndex (InformedColumn, Optional InformedSheet) as long
Dim oSheet As Object, C as Long
Dim oColumn As Object, oFinder As Object, oResult as object
Dim PartsOfTheName

'------- Munkalap -------
If IsMissing(InformedSheet) then
oSheet = ThisComponent.CurrentController.ActiveSheet
ElseIf IsNumeric(InformedSheet) then
oSheet = ThisComponent.Sheets(InformedSheet)
Else
oSheet = ThisComponent.Sheets.GetByName(InformedSheet)
End If

'------- Oszlop -------
If Not IsNumeric(InformedColumn) then
Dim AllColumnNames (0 to 1023)
AllColumnNames = oSheet.Columns.ElementNames
For i = 0 to 1023
If AllColumnNames(i) = UCase(InformedColumn) then
C = i
End If
Next
Else
C = InformedColumn
End If

'------- Keresés -------
oColumn = oSheet.Columns(C)
oFinder = oColumn.createSearchDescriptor
oFinder.searchRegularExpression = true
oFinder.SearchString = "."
oResult = oColumn.FindAll(oFinder)

'------- Sor index -------
If Not IsNull(oResult) then
ResultName$ = oResult.AbsoluteName
PartsOfTheName = Split(ResultName,"$")
LastRowIndex = Val(PartsOfTheName(ubound(PartsOfTheName))) - 1
Else
LastRowIndex = - 1
End If
End Function

REM *********
REM "véletlen szám" generátor
REM *********
Function GetRnd (maxValue)
Dim min,max,r,Count,Good as Boolean
min=1 : max=maxValue
Dim array(max-1)
Do
Do
Repeat:
r = Int(Rnd() * (max - min + 1)) + min
If r = max + 1 then goto Repeat
Good = true
For c = 0 to Count
If array(c) = r then
Good = false
EndIf
Next c
Loop While Good = false
array(Count) = r
Count = Count +1
Loop While Count < max
'A permutációt string-ben adja vissza, ahol a számok ;-vel vannak elválasztva
For c=0 to max-1
s = s & array(c) & "; "
Next
GetRnd = s
End Function

REM ***** Ez a meghívandó eljárás *****

Sub Main

Dim lastData, createdExam, currentLine As Integer
Dim Doc As Object
Dim oSheet, iSheet, oCell, iCell As Object

lastData = LastRowIndex(0, "Data") + 1 'a "Data" munkafüzetben az A oszlopra hivatkozik
createdExam = 20 'itt adod meg, hogy mennyi feladatsort generáljon

Doc = ThisComponent
Dim MyString As String
oSheet = Doc.Sheets(0)
iSheet = Doc.Sheets(1)
oRows = oSheet.getRows()

genPermutation = Split(GetRnd(lastData), ";")
count = 0
For c = 0 to (createdExam-1)
currPos = c + 3 * count '3 soronként kezdi újra a beírt szöveget, ha több diksit akarsz generálni
oCell = oSheet.getCellByPosition(0, currPos)
oCell.setString("Itt kiírattam egy szöveget")
oCell = oSheet.getCellByPosition(0, currPos+2)
Randomize
currentLine = genPermutation(c)
iCell1 = iSheet.getCellByPosition(0, currentLine - 1)
iCell2 = iSheet.getCellByPosition(1, currentLine - 1)
Randomize
MyString = "Itt beszúrta az egyik értéket: " + iCell1.String + ", itt a másikat: " + iCell2.String +"."
oCell.setString(MyString)
count = count +1
oRow = oRows.getByIndex(currPos+2)
oRow.isManualPageBreak = True 'itt beszúrt egy sortörést, hogy a következő feladatsor új oldalra kerüljön nyomtatáskor
Next
End Sub

Használjátok egészséggel!