Я знаю, что этот код работает на некоторых компьютерах (у меня нет к ним доступа).
К сожалению, когда я запускаю этот код, он не показывает никакого окна.
Он просто перестал работать на линии: wynik = WordBasic.Dialog.UserDialog(wybor).
Кажется, сценарий на этом заканчивается. Может кто-нибудь сказать мне, что не так?
WordBasic.BeginDialog 350, 208, "Otwórz aktualizację", "WczytajRozpiskę.fundial"
WordBasic.ListBox 12, 20, 100, 180, Tomy__$(), "Tomy"
WordBasic.ListBox 139, 20, 100, 180, Aktual__$(), "Aktual"
WordBasic.Text 12, 5, 39, 13, "Tom:", "Teks1"
WordBasic.Text 139, 5, 99, 13, "Aktualizacja:", "Teks2"
WordBasic.OKButton 249, 149, 88, 21
WordBasic.CancelButton 249, 179, 88, 21
If red$ = "1" Then WordBasic.PushButton 252, 19, 88, 21, "Zest.", "Wcis1"
WordBasic.EndDialog
Dim wybor As Object
Set wybor = WordBasic.CurValues.UserDialog
WordBasic.DisableInput 1
wynik = WordBasic.Dialog.UserDialog(wybor)
WordBasic.DisableInput 0