REM --Definicija promenljive sa našim slovima
REM - Makro by Dragan Vračar
REM
Dim Shared NasaSlova$

Sub MAIN

Begin Dialog UserDialog 152, 90, "Microsoft Word"
    PushButton 5, 5, 143, 21, "1250", .P1250
    PushButton 5, 25, 143, 21, "Yuscii", .PYuscii
    PushButton 5, 65, 143, 21, "Cancel", .Cancel
End Dialog

Dim Rdlg As UserDialog
x = Dialog(Rdlg)
a = 1

REM -- napuni promenljivu NasaSlova$ sadržajem u odnosu na
REM -- odabrani kodni raspored i pozovi proceduru Fontovi

Select Case x
    Case 1
      REM kodna strana CP 1250
      NasaSlova$ = "Šišarka Čačak Ćićolina Đorđe Žuža"
      Fontovi
    Case 2
      REM kodna strana Yuscii
      NasaSlova$ = "[i{arka ^a~ak ]i}olina \or|e @u`a"
      Fontovi
    Case Else

End Select

End Sub


REM -- Procedura Fontovi otvara novi dokument, formira tabelu i
REM -- potom je napuni primerima fontova koji postoje na sistemu
REM

Sub Fontovi

ScreenUpdating
FileNew .Template = "NORMAL"
FormatParagraph .Alignment = 0, .Before = "0 in", .After = "0 in"
TableInsertTable .NumColumns = 2, .NumRows = 1
TableRowHeight .AllowRowSplit = 0
TableColumnWidth .ColumnWidth = "2 in", .NextColumn
TableColumnWidth .ColumnWidth = "4.5 in"
PrevCell
FormatBordersAndShading .ApplyTo = 3, .TopBorder = 3, \
    .LeftBorder = 3, .BottomBorder = 3, .RightBorder = 3, \
    .HorizBorder = 1, .VertBorder = 1
For broj = 1 To CountFonts()
broj = 1

While broj < CountFonts()
    Imef$ = Font$(broj)
    Font "Arial"
    Insert Imef$
    NextCell
    Font Imef$
    Insert "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG" + \
           Chr$(13) + "the quick brown fox jumps over the lazy dog" \
           + Chr$(13) + "0123456789 ;:?/!@#$%^&*()_-+=" \
           + Chr$(13) + NasaSlova$
    NextCell
    broj = broj + 1
Wend

TableDeleteRow
ScreenUpdating

End Sub