Запись В Ворд

[Пустовалов Артем]

Ребята Привет) У меня вопрос по Сохранения в ворд) Запись в excel нормальная)А вот После записи в ворд файл выдает ошибку поврежденный файл что это может быть?)

[Vladimir_Sh]

Как записываете хоть?

[Пустовалов Артем]

Как записываете хоть?

   

Код Выделить Развернуть

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогОткрытияФайла.ПолноеИмяФайла = "Заявка";
ДиалогОткрытияФайла.Расширение = "xlsx";

ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft Excel (*.xlsx)|*.xlsx|Файлы Microsoft Word (*.docx)|*.docx|Все файлы (*.*)|*.*";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
Если ДиалогОткрытияФайла.Выбрать() тогда
ТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLSX);
КонецЕсли;

[Vladimir_Sh]

Проблема в том, что Вы всегда сохраняете файл в формате Excel в не зависимости от выбранного расширения в форме сохранения файла. Т.е. выбираете ".docx", но сохраняете его как ".xlsx" поэтому не можете открыть.
Первое что приходит в голову:

Код Выделить Развернуть

Если ДиалогОткрытияФайла.Выбрать() тогда
Если ДиалогОткрытияФайла.Расширение = "xlsx" Тогда //cохраняем в Excel
ТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLS);
ИначеЕсли ДиалогОткрытияФайла.Расширение = "docx" Тогда //сохраняем в Word
ТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла, ТипФайлаТабличногоДокумента.DOCX);
//можно еще набросать вариантов
КонецЕсли;
КонецЕсли;
Но для данного варианта очень плохо подходит фильтр

Код Выделить Развернуть

"|Все файлы (*.*)|*.*"
Его лучше исключить.

[Пустовалов Артем]

Проблема в том, что Вы всегда сохраняете файл в формате Excel в не зависимости от выбранного расширения в форме сохранения файла. Т.е. выбираете ".docx", но сохраняете его как ".xlsx" поэтому не можете открыть.
Первое что приходит в голову:

Код Выделить Развернуть

Если ДиалогОткрытияФайла.Выбрать() тогда
Если ДиалогОткрытияФайла.Расширение = "xlsx" Тогда //cохраняем в Excel
ТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла, ТипФайлаТабличногоДокумента.XLS);
ИначеЕсли ДиалогОткрытияФайла.Расширение = "docx" Тогда //сохраняем в Word
ТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла, ТипФайлаТабличногоДокумента.DOCX);
//можно еще набросать вариантов
КонецЕсли;
КонецЕсли;
Но для данного варианта очень плохо подходит фильтр

Код Выделить Развернуть

"|Все файлы (*.*)|*.*"
Его лучше исключить.

Теперь После выбора фильтра в расширение записывается пустая строка))

Добавлено: 18 ноя 2015, 10:48

Если поменять все на Word То записывает))Спасибо) дальше думаю разберусь)

[Vladimir_Sh]

Пустовалов Артем, Удачи!