function copygroup(x,y,z)
groups = ActiveDocument.GetGroups
set gp = groups(x).GetProperties
msgbox("The following group is copied: " &gp.Name)
for i=0 to y-1
Set gr = ActiveDocument.CreateGroup(gp.Name &i +z)
set vars = gp.FieldDefs
labls = gp.Labels
clc = gp.IsCyclic
for j = 0 to vars.Count-1
set fld = vars(j)
gr.AddField fld.Name
next
set ngr = ActiveDocument.GetGroup(gp.Name &i +z)
grp = ngr.GetProperties
grp.Labels = labls 'set labels
grp.IsCyclic = clc 'set if cyclic or not
ngr.SetProperties grp
msgbox("The resulting group is: " &grp.Name) 'shows the name of the newly created group
next
end function
sub SelectGroupCopy 'RUN THIS SUB TO COPY GROUPS (with labels and cyclic settings)
groups=ActiveDocument.GetGroups
for i=0 to 100
on error resume next
set gp = groups(i).GetProperties
if Err=0 then 'if there are no errors, continue to give the messagebox
group = msgbox(gp.Name & vbCrLf&vbCrLf&"YES - Copy this group"&vbCrLf&"NO - Next",3,"Group Selection")
end if
if group = 6 then 'msgbox YES
noofcopies = InputBox("Please enter how many copies you would like","Number of copies?","1")
if noofcopies = "" Then 'Canceled by the user or no input
msgbox("User input canceled, click OK to exit.")
exit sub
end if
whereinline = InputBox("Please enter the starting position of your copies."&vbCrLf&vbCrLf&"If you choose Dyn_Fin and write 4, the first copy would be Dyn_Fin4, the second Dyn_Fin5 and so on.","Starting position of copies?","1")
If whereinline = "" Then 'Canceled by the user or no input
msgbox("User input canceled, click OK to exit.")
exit sub
Else
call copygroup(i,noofcopies,whereinline)
exit sub
end if
end if
if group = 7 then 'msgbox NO
end if
if group = 2 then 'msgbox CANCEL
exit sub
end if
next
end sub
I really hope QlikTech integrates this functionality within the UI sometime soon, as they've finally done with expressions.
BR
Jakob
