Работа с MS Word из 1С "для самых маленьких"
Данная статья - попытка собрать сведения по работе (на начальном уровне) с MS Word в одном месте. На infostart.ru и других сайтах полно похожего материала, и при наличии должной усидчивости это все можно найти. Хотелось собрать основные моменты в одном месте.
Комментарии
Избранное
Подписка
Сортировка:
Древо
А что если сделать закладки и циклом делать обход закладок и заполнять текст закладки? Например:
СтруктураДанных - это может быть как структура, так и соответствие
СтруктураДанных - это может быть как структура, так и соответствие
ДокументВорд = Ворд.Application.Documents(1);
Закладки = ДокументВорд.Bookmarks;
Для Каждого Закладка Из Закладки Цикл
Закладка.Range.Text = СтруктураДанных[Закладка.Name];
КонецЦикла;
(58)
Да, так тоже можно.
Не уверен, что если параметр встречается два раза закладки, отработают корректно (редко с ними работал).
И большинство пользователей увы тоже =(
Можно сделать кроссплатформенно и заменять значения напрямую в docx, не используя COM-объек => не требуется установки word
DOCX - это ZIP-архив с xml
Да, так тоже можно.
Не уверен, что если параметр встречается два раза закладки, отработают корректно (редко с ними работал).
И большинство пользователей увы тоже =(
Можно сделать кроссплатформенно и заменять значения напрямую в docx, не используя COM-объек => не требуется установки word
DOCX - это ZIP-архив с xml
(4) gradi,
На небольших документов действительно все хорошо работает (на небольших я имею ввиду несколько десятков страниц). Когда количество приближается к 100 возможно непонятное поведение параметров. По использованию полей во мне больше говорит пользователь, который в свое время много с ними мучился =)
На небольших документов действительно все хорошо работает (на небольших я имею ввиду несколько десятков страниц). Когда количество приближается к 100 возможно непонятное поведение параметров. По использованию полей во мне больше говорит пользователь, который в свое время много с ними мучился =)
(5) DJDUH,
К сожалению или к счастью с таким не сталкивался =)
Могу только посоветовать покурить MSDN в части свойств и методов указанных вами коллекций. Если получиться, дайте знать. Добавлю к публикации =) Ну или сами созреете для написания кратенького гайда =)
К сожалению или к счастью с таким не сталкивался =)
Могу только посоветовать покурить MSDN в части свойств и методов указанных вами коллекций. Если получиться, дайте знать. Добавлю к публикации =) Ну или сами созреете для написания кратенького гайда =)
Базовый метод работы с Word - записываем макрос с нужными действиями, читаем его, читаем хелп к нужным командам, чистим макрос от лишних действий и параметров, копируем в 1С, добавляя "ДокументВорд." перед командами.
По поводу параметров - был и есть старый дедовский метод, когда параметр вставлялся в виде текста типа [Мой_параметр], {Мой_параметр}, [{(%%Мой_параметр%%)}] - на выбор, затем командной поиска и замены самого ворда параметры меняются на значения.
Кстати, проверяли: Application.Visible = False вначале и Application.Visible = True в конце действий ускоряет или нет?
По поводу параметров - был и есть старый дедовский метод, когда параметр вставлялся в виде текста типа [Мой_параметр], {Мой_параметр}, [{(%%Мой_параметр%%)}] - на выбор, затем командной поиска и замены самого ворда параметры меняются на значения.
Кстати, проверяли: Application.Visible = False вначале и Application.Visible = True в конце действий ускоряет или нет?
Записал в ворде макрос замены текста во всем документе, кроме колонтитулов.
Возможно, будет полезен.
Из хелпа:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "что"
.Replacement.Text = "на что"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.EscapeKey
ПоказатьSelection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "что"
.Replacement.Text = "на что"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.EscapeKey
Возможно, будет полезен.
Из хелпа:
WdReplace
Constant Value
wdReplaceAll 2
wdReplaceNone 0
wdReplaceOne 1
Constant Value
wdReplaceAll 2
wdReplaceNone 0
wdReplaceOne 1
Спасибо за труды.
Для старта очень познавательно.
Вопрос.
как прочитать текст содержащийся в полученной таблице ?
и как заполнять таблицы в ворде данными не переписывая строки самой таблицы, а просто заполняя ее данными?
(пробовала заполнять в цикле (Таблица.Cell(ИндексСтрока+1,ИндексСтолбец+1).Range().InsertAfter(Текст),
так очень долго, да и местами таблицы уже частично заполнены, может есть возможность загрузить данные в таблицу с заранее известным количеством строк и столбцов?
или это из области фантастики?)
Для старта очень познавательно.
Вопрос.
как прочитать текст содержащийся в полученной таблице ?
и как заполнять таблицы в ворде данными не переписывая строки самой таблицы, а просто заполняя ее данными?
(пробовала заполнять в цикле (Таблица.Cell(ИндексСтрока+1,ИндексСтолбец+1).Range().InsertAfter(Текст),
так очень долго, да и местами таблицы уже частично заполнены, может есть возможность загрузить данные в таблицу с заранее известным количеством строк и столбцов?
или это из области фантастики?)
(21) isanka,
Мне другие способы не знакомы. Можно заполнять же только некоторые ячейки. Обращение по номеру строки/столбца это позволяет.
Поищите как word с ADO дружит =) В Excel ADO дает неплохой прирост производительности. Если найдете, дайте знать =) Добавим в публикацию =))
Мне другие способы не знакомы. Можно заполнять же только некоторые ячейки. Обращение по номеру строки/столбца это позволяет.
Поищите как word с ADO дружит =) В Excel ADO дает неплохой прирост производительности. Если найдете, дайте знать =) Добавим в публикацию =))
Доброе утро!
Как раз очень нужный вопрос.
Подскажите, плиз. Выполнение заполнения шаблона происходит на стороне клиента (пользователя) или на сервере?
Если есть вариант заполнять именно на сервере, то как это можно реализовать?
Спасибо!
Как раз очень нужный вопрос.
Подскажите, плиз. Выполнение заполнения шаблона происходит на стороне клиента (пользователя) или на сервере?
Если есть вариант заполнять именно на сервере, то как это можно реализовать?
Спасибо!
Хм....
Тогда еще вопрос, а как сохранить этот шаблон в двоичные данные, для передачи на сервер?
Макет сделан как Актив документ.
Word = ЭтотОбъект.ПолучитьМакет("ШаблонВорда").Получить();
При этом сразу ошибка, что мол нет программы....
Тогда еще вопрос, а как сохранить этот шаблон в двоичные данные, для передачи на сервер?
Макет сделан как Актив документ.
Word = ЭтотОбъект.ПолучитьМакет("ШаблонВорда").Получить();
При этом сразу ошибка, что мол нет программы....
Коллеги, добрый день. Столкнулся с тем что в ЗУП 3.1 платформа 8.3.10.2667 при загрузке шаблона word 2013 не подтягиваются колонтитулы и рисунки. Может нужны какие-то специальные настройки в 1С или в word? Подскажите пожалуйста.
(61)Проверил.
Не в ворде дело.
Может кто видел пример как выводить колонтитулы?
Все примеры, что находил без них обходились. На сайте ИТС тоже искал - про колонтитулы только упоминание, а примера нет
Делал как мне кажется как в инструкции, но нет колонтитулов, хоть тресни
Не в ворде дело.
Может кто видел пример как выводить колонтитулы?
Все примеры, что находил без них обходились. На сайте ИТС тоже искал - про колонтитулы только упоминание, а примера нет
Делал как мне кажется как в инструкции, но нет колонтитулов, хоть тресни
А что же самых маленьких не учим с пеленок за собой убирать?
надо бы добавить уничтожение объектов и файлов.
а так статья хорошая )))
РS а то как открывать учим
а как в Исключении прибить и почистить нет
надо бы добавить уничтожение объектов и файлов.
а так статья хорошая )))
РS а то как открывать учим
//Разумеется, получение COM-объекта нужно поместить в попытку. Мало ли, что-то пойдет не так.а как в Исключении прибить и почистить нет
Метод "Execute" имеет ограничение на длину значения для замены в 255 символов, если будет больше, то появляется исключение. Я написал небольшую процедуру для выполнения замены частями:
Процедура ВыполнитьЗаменуСОграничениемДлиныСтроки(вхДокументВорд, вхШаблонЗамены, вхЗначение)
// Замена значений в ворде имеет ограничение на длину в 255 символов.
// Разобьем значение на куски по 255 знаков
МаксДлинаСтроки = 255;
ИДШаблона = "@"+СтрЗаменить(Новый УникальныйИдентификатор, "-", "");
МаксДлинаСтроки = МаксДлинаСтроки-СтрДлина(ИДШаблона);
ТекШаблон = Строка(вхШаблонЗамены);
НеРазбитоеЗначение = Строка(вхЗначение);
МассивЧастейСтроки = Новый Массив;
Пока СтрДлина(НеРазбитоеЗначение)>0 Цикл
ЧастьНужнойДлины = Лев(НеРазбитоеЗначение, МаксДлинаСтроки);
МассивЧастейСтроки.Добавить(ЧастьНужнойДлины);
НеРазбитоеЗначение = Сред(НеРазбитоеЗначение, МаксДлинаСтроки+1, МаксДлинаСтроки);
КонецЦикла;
Для Каждого ЧастьСтроки Из МассивЧастейСтроки Цикл
вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, ЧастьСтроки+ИДШаблона, 1);
ТекШаблон = ИДШаблона;
КонецЦикла;
вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, "", 1); // Зачистим остатки шаблона
КонецПроцедуры
Процедура ВыполнитьЗаменуСОграничениемДлиныСтроки(вхДокументВорд, вхШаблонЗамены, вхЗначение)
// Замена значений в ворде имеет ограничение на длину в 255 символов.
// Разобьем значение на куски по 255 знаков
МаксДлинаСтроки = 255;
ИДШаблона = "@"+СтрЗаменить(Новый УникальныйИдентификатор, "-", "");
МаксДлинаСтроки = МаксДлинаСтроки-СтрДлина(ИДШаблона);
ТекШаблон = Строка(вхШаблонЗамены);
НеРазбитоеЗначение = Строка(вхЗначение);
МассивЧастейСтроки = Новый Массив;
Пока СтрДлина(НеРазбитоеЗначение)>0 Цикл
ЧастьНужнойДлины = Лев(НеРазбитоеЗначение, МаксДлинаСтроки);
МассивЧастейСтроки.Добавить(ЧастьНужнойДлины);
НеРазбитоеЗначение = Сред(НеРазбитоеЗначение, МаксДлинаСтроки+1, МаксДлинаСтроки);
КонецЦикла;
Для Каждого ЧастьСтроки Из МассивЧастейСтроки Цикл
вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, ЧастьСтроки+ИДШаблона, 1);
ТекШаблон = ИДШаблона;
КонецЦикла;
вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, "", 1); // Зачистим остатки шаблона
КонецПроцедуры
А куда писать этот код ? Мне надо его в Справочник, модуль формы элемента поместить, чтоб Договор заполнялся данными из формы элемента. Создал в нужном мне справочнике макет с двоичными данными, потом в форме элемента создал кнопку и в событиях кнопки вставил код, Но он не работает там. Еще непонятно, где что выполняется, что на клиенте, а что на сервере ? Подскажите пожалуйста 1С УТ 11
Очень не понятно! решил впервые распечатать из Word, и что в итоге? Добавил файл ворд в макеты через двоичные данные, вставил код, сразу же заругался на "ДополнительныеПараметры.ВидДоговора" - что это такое, откуда брать и зачем? если уж называете статью, для самых меленьких, тогда хоть что-то объясняйте
Добрый день!
Подскажите, как вывести все значения через запятую в строку без использования таблицы.
Для каждого Параметр Из СтруктураПараметров.ТЧПостояннаяЧасть Цикл
СтруктураПараметров.ДанныеШапка.Площадь = Формат(Параметр.Площадь,"ЧЦ=15; ЧДЦ=1");
КонецЦикла;
Подскажите, как вывести все значения через запятую в строку без использования таблицы.
Для каждого Параметр Из СтруктураПараметров.ТЧПостояннаяЧасть Цикл
СтруктураПараметров.ДанныеШапка.Площадь = Формат(Параметр.Площадь,"ЧЦ=15; ЧДЦ=1");
КонецЦикла;
подскажите как мне в клиент серверном режиме сделать.
макет в виде word храниться в Макетах. Заполняется на клиенте, как мне получить шаблон для заполнения по закладкам?
&НаСервере
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
Макет = ОбработкаОбъект.ПолучитьМакет("МакетWord");
Возврат Макет;
пробовал получить макет на сервере функцией и вернуть на клиент - active document не передает. неизвестный тип
макет в виде word храниться в Макетах. Заполняется на клиенте, как мне получить шаблон для заполнения по закладкам?
&НаСервере
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
Макет = ОбработкаОбъект.ПолучитьМакет("МакетWord");
Возврат Макет;
пробовал получить макет на сервере функцией и вернуть на клиент - active document не передает. неизвестный тип
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|