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();