ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 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();


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.