HelpF.pro

Используем диалог открытия файлов Word в 1С,возможен множественный выбор

Код 1C v 7.x
 oWord=СоздатьОбъект("Word.Application");
oWord.WindowState = 1;
oWord.Height = 0;
oWord.Width = 0;
myopendial = oWord.FileDialog(3);
myopendial.AllowMultiSelect = -1;
myopendial.Title = "Выбирайте файлы...";
Для i = 1 По myopendial.Filters.Count Цикл
myopendial.Filters.Delete();
КонецЦикла;
myopendial.Filters.Add("1С файлы", "*.ert; *.mxl; *.txt", 1);
oWord.Visible=-1;
oWord.Activate();
myopendial.Show();
Для i = 1 По myopendial.SelectedItems.Count Цикл
Сообщить(myopendial.SelectedItems.Item(i));
КонецЦикла;
oWord.Quit();

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/808.html