Работа с MS Word из 1С "для самых маленьких"

03.07.20

Разработка - Универсальные функции

Данная статья - попытка собрать сведения по работе (на начальном уровне) с MS Word в одном месте. На infostart.ru и других сайтах полно похожего материала, и при наличии должной усидчивости это все можно найти. Хотелось собрать основные моменты в одном месте.

Публикация - своего рода памятка, содержащая примеры кода для:

1. заполнение шаблона Word данными из 1С;
2. заполнение колонтитулов Word данными из 1С;
3. заполнение таблицы в Word данными из 1С;

Начало работы

В большинстве случаев перед нами ставится следующая задача: 
Нужно открыть документ Word, заполненный данными из 1С.

Для этого нам нужно подготовить шаблон документа Word. Не путайте это с Word Template, специальные файлы Word, которые содержат настройки документов для многократного использования. Нам нужен обычный вордовский документ с расширениеми *.docx или *.doc.  А далее поместить этот документ в макет с двоичными данными.

Попытка
 //Получаем макет из двоичных данных
   Шаблон = ПолучитьМакет(ДополнительныеПараметры.ВидДоговора);
 ИмяФайла = ПолучитьИмяВременногоФайла(".docx");
   Шаблон.Записать(ИмяФайла);
 //Создаем COM-объект для работы с Word
   ОбъектВорд = Новый COMОбъект("Word.Application");
   ОбъектВорд.Documents.add(ИмяФайла);
 //В Word можно открывать в одном приложении несколько документов, поэтому ОбъектВорд.Application.Documents - это коллекция открытых документов.
 //В нашем случае документ открыт всегда один
   ДокументВорд = ОбъектВорд.Application.Documents(1);
   ДокументВорд.Activate();
   Исключение Сообщить("Ошибка при запуске приложения "+ОписаниеОшибки());
 КонецПопытки;
//Разумеется, получение COM-объекта нужно поместить в попытку. Мало ли, что-то пойдет не так.

Читатель может справедливо заметить, что используется модальный вызов, и погрозить автору пальцем. И будет прав.

//Создадим структуру параметров документа
 ПараметрыДокумента = ПодготовитьСтрукутруПараметров();
 //Заполним структуру параметров документа
 ЗаполнитьСтруктуруПараметров(ПараметрыДокумента);

Далее я обычно создаю структуру полей, которые будут заполняться в шаблоне. Такой подход позволяет унифицировать процедуру заполнения шаблона, а также упростить последующее его изменение.

Углубимся немножко в принципы работы Word...

Каждый документ Word разделен на разделы, которые состоят из страниц.

Для каждого раздела есть возможность создавать свою нумерацию элементов, уникальные колонтитулы и настройки параметров страницы. Так, например, чтобы повернуть одну из страниц (вывести на печать как альбомную), нужно создать под неё отдельный раздел.


Каждая страница Word разделена на несколько областей:

  • Верхний колонтитул 
  • Основной текст
  • Нижний колонтитул

Нужно заметить, что в каждом разделе может быть уникальный колонтитул для первой страницы.

//Объект, содержит весь основный текст из всех разделов 
ДокументВорд.Content
//Объект содержит коллекцию разделов документа
ДокументВорд.Sections
//В каждом разделе есть своя коллекция для верхних колонтитулов
ДокументВорд.Sections(1).Headers
//И своя коллекция для нижних колонтитулов
ДокументВорд.Sections(1).Footers
//При этом, если стоит галочка "Уникальный колонтитул для первой страницы", то коллекции Headers и Footers будут содержать два элемента

 

Заполнение пользовательских параметров

При обращении к этим коллекциям мы можем выполнять в них поиск и получать встроенные объекты, например, таблицы.

Теперь мы более-менее поняли, как обращаться к областям Word, можем в них пошуровать и выполнить замену наших параметров:

//Переберем все параметры и заменим их в документе
Для каждого Параметр Из ПараметрыДокумента Цикл
  ВыполнитьЗамену(ДокументВорд.Content, Параметр.Ключ, Параметр.Значение);
//Ищим вхождения параметра в верхнем колонтитуле
  ВыполнитьЗамену(ДокументВорд.Sections(1).Headers.Item(1).Range(), Параметр.Ключ, Параметр.Значение);
//Ищим вхождения параметра в нижнем колонтитуле первой и последующих страниц               
  ВыполнитьЗамену(ДокументВорд.Sections(1).Footers.Item(1).Range(), Параметр.Ключ, Параметр.Значение);    
  ВыполнитьЗамену(ДокументВорд.Sections(1).Footers.Item(2).Range(), Параметр.Ключ, Параметр.Значение);
КонецЦикла;

//Выполнить поиск и замену Функция
ВыполнитьЗамену(знач Object, Параметр, Значение)
  Object.Find.Execute(Параметр,,,,,,,,,Значение,2)
КонецФункции

 

Рассмотри подробнее метод Execute. Его параметры идентичны диалоговуму окну при замене/поиске непоседресвенно из MS Word: 

А вот и основные параметры (вольный перевод справки MSDN):

  1. Искомый текст - Строка - Текст для замены. Текст может содержать специальные параметры. Например, ^p - абзац, ^t - табуляция
  2. Чувствительность к регистру - Булево - Если истина, то поиск будет осуществляться с учетом регистра
  3. Слова целиком - Булево - Если истина, то ищутся слова целиком. Вхождение слов не учитываются. Например, при поиске слова дом будет пропущено слово домашний
  4. Использовать подстановочные знаки - Булево - Если истина, то используются встроенные регулярные выражения.
  5. Искать похожие - Булево - Если истина, то результат поиска будет содержать похожие слова
  6. Искать все формы - Булево - Если истина, то результат поиска будет содержать различные формы слов.
  7. Поиск сначала - Булево - Если истина, то будет осуществляться с начала до конца документа
  8. Охват - WdFindWrap - Опредяляет направление поиска
  9. Формат - Format - Формат искомого текста
  10. Строка замены - Строка - Строка, на которую будет заменен исходный текст
  11. Количество замен - WdReplace - Определяет сколько раз выполнять замену
  12. и т.д.

WdReplace - Constant Value:
wdReplaceAll 2 
wdReplaceNone 0 
wdReplaceOne 1

Данный метод не позволяет получить "Строка замены" как выделенную область, но он работает где-то в 10 раз медленнее. Для получения выделенной области можно воспользоваться немножко откорректированной типовой функцией:

//УправлениеПечатьюMSWordКлиент c незначительными изменениями для конфигурации УПП 1.3
Функция ВыполнитьЗамену(знач Object, Параметр, Значение)
  СтрокаПоиска = "[" + Параметр + "]";
  СтрокаЗамены = Строка(Значение);
//Необходимо выделить областей, в которой мы осуществляем замену
  Object.Select();
//Получаем выделенную область
  Selection = Object.Application.Selection;
//Найдем все вхождения параметра и заменим его на нужное нам значение
  FindObject = Selection.Find;
  FindObject.ClearFormatting();
  Пока FindObject.Execute(СтрокаПоиска) Цикл
    Если ПустаяСтрока(СтрокаЗамены) Тогда
      Selection.Delete();
    Иначе
      Selection.TypeText(СтрокаЗамены);
    КонецЕсли;
  КонецЦикла;
//Отменим выделение
  Selection.Collapse();
КонецФункции

Уже получив выделенную область можно отредактировать стиль текста, шрифт и т.д.

//Редактирование шрифта
 Selection.Font
//Редактирование цвета
 Selection.HighlightColorIndex

Также есть второй подход, использующий такой объект Word, как поля. Мне он не очень нравится, т.к. в больших документах, порядка 100 страниц, эти поля начинают глючить (исчезать, не подставлять нужные значения) и прочая ерунда. Ну по крайней мере в Word 2007. Но я его все равно приведу:  

При подготовке шаблона в тело документа необходимо навставлять полей с типом DOCVARIABLE (можно вставлять горячими клавишими Ctrl+F9).

Доступ к таким полям можно получить следующим нехитрым образом:

ДокументВорд.Variables.Item(НазваниеПараметра).Values

Заполнение таблиц по шаблону

Итак, мы заполнили параметры в основном тексте документа, заменили параметры в колонтитулах, но у нас еще есть одна неприятность - нужно заполнить таблицу.

Подход, описанный ниже, годится только для таблиц с заранее известным форматом. Т.е. мы можем как угодно отформатировать таблицу и её строки изначально. Но потом изменять довольно-таки проблематично.

К таблицам можно получить доступ через области документа.

//Получаем доступ к первой таблице в основном тексте
 Таблица = ДокументВорд.Content.Tables(1)

Далее, получив таблицу, мы работаем с ней по привычной схеме - строки, столбцы.

Для задания форматирования легче в шаблоне создать таблицу с пустой первой строкой, которую мы в последующем удалим.

//Данные для заполнения
  ПараметрыТЧ = ПараметрыДокумента.ПриложениеТЧ;
//Нужно оставить шапку и первую строку нетронутой Итератор = 2;
  Таблица = ДокументВорд.Content.Tables(3);
  Для каждого Строка Из ПараметрыТЧ Цикл
//По умолчанию добавляет строку выше первой
    Таблица.Rows.Add();
    ЗаполнитьСтрокуТаблицы(Таблица, Итератор, Строка,"ПП,НоменклатураНаименование,ЕдИзмерения,ЦенаСтрокой",ПараметрыТЧ );
    Итератор = Итератор + 1;
  КонецЦикла;
//Структура шаблонов содержит Наименование колонок и их порядок
  Процедура ЗаполнитьСтрокуТаблицы(Таблица, НомерСтроки, ЗначениеЗаполнения, СтруктураШаблонов,ТаблицаЗначений)
    МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтруктураШаблонов,",");
    Итератор = 1;
    Для каждого Строка Из МассивСтрок Цикл
      Если ТаблицаЗначений.Колонки.Найти(Строка) = Неопределено И Строка <> "ПП" Тогда
        Итератор = Итератор + 1;
        Продолжить;
   //Не забываем, что Шапка тоже строка, а при нумерации нам нужно её исключить
      ИначеЕсли Строка = "ПП" Тогда
        Таблица.Cell(НомерСтроки, Итератор).Range().Text = Строка(НомерСтроки-1);
        Итератор = Итератор + 1;
        Продолжить;
      КонецЕсли;
      Таблица.Cell(НомерСтроки, Итератор).Range().Text = Строка(ЗначениеЗаполнения[Строка]);
      Итератор = Итератор + 1;
   КонецЦикла;
КонецПроцедуры

 

Вот, в принципе, и все. Основные вопросы, возникающие при работе с Word, я постарался осветить. Надеюсь, данный обзор поможет вам в работе =)

Спасибо за советы и комментарии:
v3rtermonkbest

Критика только приветствуется. Чем больше замечаний, тем лучше будет гайд =)

MS WORD

См. также

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4336    atdonya    22    

41

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3886    ke.92@mail.ru    16    

60

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8563    YA_418728146    6    

139

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2022    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16017    131    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7200    quazare    8    

108
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. maXon777 128 12.05.16 10:30 Сейчас в теме
Прекрасный обзор! Спасибо!

Очень понравился подход с программным заполнением таблицы путем добавления строк!
user712426; thang_madi; AhtungG; Rustam10; +4 Ответить
58. gurd 5 18.12.19 16:35 Сейчас в теме
А что если сделать закладки и циклом делать обход закладок и заполнять текст закладки? Например:

СтруктураДанных - это может быть как структура, так и соответствие

ДокументВорд = Ворд.Application.Documents(1);
Закладки = ДокументВорд.Bookmarks;
Для Каждого Закладка Из Закладки Цикл
	Закладка.Range.Text = СтруктураДанных[Закладка.Name];
КонецЦикла;
59. Сурикат 392 18.12.19 18:18 Сейчас в теме
(58)

Да, так тоже можно.
Не уверен, что если параметр встречается два раза закладки, отработают корректно (редко с ними работал).

И большинство пользователей увы тоже =(

Можно сделать кроссплатформенно и заменять значения напрямую в docx, не используя COM-объек => не требуется установки word
DOCX - это ZIP-архив с xml
60. gurd 5 18.12.19 22:11 Сейчас в теме
(59) да в этом с закладки может быть неудобно - если параметр несколько раз встречается то закладку в несколько мест с одним именем на вставить.
2. GOOD256 75 12.05.16 13:52 Сейчас в теме
3. pvl_mksv 20 12.05.16 14:25 Сейчас в теме
4. gradi 5 12.05.16 16:44 Сейчас в теме
В ворд2013 глюков с DOCVARIABLE не замечал.
jollyk; Dizel; LevV; +3 Ответить
7. Сурикат 392 12.05.16 23:17 Сейчас в теме
(4) gradi,
На небольших документов действительно все хорошо работает (на небольших я имею ввиду несколько десятков страниц). Когда количество приближается к 100 возможно непонятное поведение параметров. По использованию полей во мне больше говорит пользователь, который в свое время много с ними мучился =)
5. DJDUH 17 12.05.16 17:14 Сейчас в теме
Самая "засада" MSWord - это вставить значение в шейпы или иные надписи и картинки - сколько не игрался так и не получилось, найти выход - находит нужное, а значение вставить фига(
8. Сурикат 392 12.05.16 23:22 Сейчас в теме
(5) DJDUH,
К сожалению или к счастью с таким не сталкивался =)
Могу только посоветовать покурить MSDN в части свойств и методов указанных вами коллекций. Если получиться, дайте знать. Добавлю к публикации =) Ну или сами созреете для написания кратенького гайда =)
9. gradi 5 13.05.16 13:15 Сейчас в теме
(5) DJDUH, у вас не получалось именно вставить значение или добиться его отображения в документе?
6. director04 3657 12.05.16 20:25 Сейчас в теме
Поставил плюс за краткость. И хотел бы еще одни плюс за заголовок.
Хотя,... есть тут пара засранцев, которые обязательно нагадят, что де "все это всем давно известно..."
Спасибо, плюс
10. nni93 13.05.16 15:30 Сейчас в теме
11. AndMax 2 17.05.16 14:43 Сейчас в теме
Коротко и красиво, спасибо, +
12. stilet 50 18.05.16 11:05 Сейчас в теме
Подскажите, может кто нибудь сталкивался - как изменить цвет фона у какого нибудь набора символов (скажем двух или трех слов)
13. Сурикат 392 18.05.16 11:36 Сейчас в теме
(12) stilet, а он у вас все время разный?
15. v3rter 18.05.16 12:27 Сейчас в теме
(12) stilet, если выделенного текста желтым, то
Selection.Range.HighlightColorIndex = wdYellow
adhocprog; +1 Ответить
14. v3rter 18.05.16 12:24 Сейчас в теме
Базовый метод работы с Word - записываем макрос с нужными действиями, читаем его, читаем хелп к нужным командам, чистим макрос от лишних действий и параметров, копируем в 1С, добавляя "ДокументВорд." перед командами.

По поводу параметров - был и есть старый дедовский метод, когда параметр вставлялся в виде текста типа [Мой_параметр], {Мой_параметр}, [{(%%Мой_параметр%%)}] - на выбор, затем командной поиска и замены самого ворда параметры меняются на значения.

Кстати, проверяли: Application.Visible = False вначале и Application.Visible = True в конце действий ускоряет или нет?
Zhilyakovdr; gradi; monkbest; +3 Ответить
20. Сурикат 392 22.05.16 14:09 Сейчас в теме
(14) v3rter,
Application.Visible = False вначале и Application.Visible = True в конце действий не ускоряет процесс. Проверил =)
16. sudmorsh 57 18.05.16 16:18 Сейчас в теме
Очень полезно, спасибо ;)
17. v3rter 18.05.16 16:40 Сейчас в теме
Записал в ворде макрос замены текста во всем документе, кроме колонтитулов.

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
Показать

Возможно, будет полезен.

Из хелпа:
WdReplace
Constant Value
wdReplaceAll 2
wdReplaceNone 0
wdReplaceOne 1
Сурикат; +1 Ответить
18. monkbest 115 19.05.16 08:07 Сейчас в теме
(17) v3rter, зачем искать в цикле?
я делаю так
ТекДок.Content.Find.Execute("%параметр%,,,,,,,,,"мой текст",2);

меняет сразу во всем документе, работает гораздо быстрее, чем искать в цикле
Parazyte; eViLL; Andreyyy; Rustam10; Daynestro07; zhernikov; gigapevt; Сурикат; +8 Ответить
19. v3rter 19.05.16 10:04 Сейчас в теме
(18) monkbest, ну так я на это и намекал. Ждём от автора версию 2.0
21. isanka 23.05.16 14:02 Сейчас в теме
Спасибо за труды.
Для старта очень познавательно.
Вопрос.
как прочитать текст содержащийся в полученной таблице ?
и как заполнять таблицы в ворде данными не переписывая строки самой таблицы, а просто заполняя ее данными?
(пробовала заполнять в цикле (Таблица.Cell(ИндексСтрока+1,ИндексСтолбец+1).Range().InsertAfter(Текст),
так очень долго, да и местами таблицы уже частично заполнены, может есть возможность загрузить данные в таблицу с заранее известным количеством строк и столбцов?
или это из области фантастики?)


23. Сурикат 392 23.05.16 18:12 Сейчас в теме
(21) isanka,
Мне другие способы не знакомы. Можно заполнять же только некоторые ячейки. Обращение по номеру строки/столбца это позволяет.
Поищите как word с ADO дружит =) В Excel ADO дает неплохой прирост производительности. Если найдете, дайте знать =) Добавим в публикацию =))
24. v3rter 24.05.16 16:16 Сейчас в теме
(21) isanka, Попробуйте Таблица.Cell(ИндексСтрока+1,ИндексСтолбец+1).Range().Text или Таблица.Cell(ИндексСтрока+1,ИндексСтолбец+1).Range.Text

Всё это гуглится, но не на русском: https://msdn.microsoft.com/ru-ru/library/office/ff821612.aspx
22. Сурикат 392 23.05.16 18:10 Сейчас в теме
Приношу извинения за небольшие проблемы с форматированием =(( Подвел новый редактор.
25. freud 2 23.11.16 19:54 Сейчас в теме
windows 10 + ms office
1c выдает

ОбъектВорд = Новый COMОбъект("Word.Application")


Не удалось создать объект.
Возможно, отсутствует соответствующее приложение.

в чем причина
asviridovsky; +1 Ответить
26. sssss_aaaaa_2011 23.11.16 20:33 Сейчас в теме
(25) В том, что последние версии оффиса не имеют СОМ-объектов.
27. Сурикат 392 25.11.16 08:38 Сейчас в теме
(25)А где выполняется код? на сервере или на клиенте?
28. HalfZer0 16 02.06.17 12:43 Сейчас в теме
Я требую больше версий слова Стурктура, то есть Струкутра, то есть... ааааа!!!
maXon777; +1 Ответить
29. fish249 03.08.17 09:35 Сейчас в теме
30. MiniGrad2014 10.08.17 21:47 Сейчас в теме
Не помещая документ в макет можно напрямую заполнять поля шаблона ворда?
31. Tanis 29.09.17 09:53 Сейчас в теме
Доброе утро!

Как раз очень нужный вопрос.

Подскажите, плиз. Выполнение заполнения шаблона происходит на стороне клиента (пользователя) или на сервере?

Если есть вариант заполнять именно на сервере, то как это можно реализовать?

Спасибо!
32. Сурикат 392 29.09.17 12:06 Сейчас в теме
На сервере можно заполнять только в том случае, если стоит на нем Word. Иначе только ковыряние в XML.
33. Tanis 29.09.17 15:07 Сейчас в теме
Да. Поставили туда специально Ворд.

А как осуществить это? подскажите, пожалуйста.

Как передать макет на сервер, до его получения пользователем?

Спасибо!
34. tjurikov_ivan 213 29.09.17 15:20 Сейчас в теме
(33) В 1С ДО заполнение шаблонов на сервере происходит через фоновое задание
35. user697645_gonchar.m 29.09.17 15:23 Сейчас в теме
36. Сурикат 392 29.09.17 16:25 Сейчас в теме
Эм...
У вас 1с ДО?

Можно и без фонового задания.
Сохраняете в двоичные данные, а на сервере получаете.

Если нужно пользовательский макет, то двоичные данные сериализуются
37. Tanis 29.09.17 17:13 Сейчас в теме
Хм....

Тогда еще вопрос, а как сохранить этот шаблон в двоичные данные, для передачи на сервер?

Макет сделан как Актив документ.

Word = ЭтотОбъект.ПолучитьМакет("ШаблонВорда").Получить();

При этом сразу ошибка, что мол нет программы....
38. Сурикат 392 29.09.17 17:45 Сейчас в теме
А зачем вам макет active document, если можно сразу сделать двоичные данные и передавать на сервер?
Ведь вы все равно его для заполнения будете на диск сохранять =)
39. Tanis 29.09.17 19:10 Сейчас в теме
Так макет же является - актив документ.

В данном случае сохранение используется. Но могу сказать, что можно воспользоваться без сохранения. )))))
40. Сурикат 392 30.09.17 12:25 Сейчас в теме
(39)

Не используйте актив документ =) Это достаточно ущербная вещь, использование которой не дает никаких преимуществ, а добавляет только проблем.
41. Tanis 30.09.17 18:12 Сейчас в теме
Добрый вечер!

А чем они стали ущербные ((((

Что предлагаете? Держать шаблон на диске или вообще перетаскивать в макет?

Спасибо!
42. Сурикат 392 30.09.17 20:01 Сейчас в теме
Ущербные потому что править их довольно-таки тяжело, неудобный интерфейс. Возможно я что-то не знаю или это субъективно...
Предлагаю редактировать в Word и держать в макете с типом двоичные данные.
43. artms 282 27.10.17 09:07 Сейчас в теме
А почему не напечатать на сервере? https://infostart.ru/public/675307/
44. ZMD2065 14 08.02.18 12:23 Сейчас в теме
Коллеги, добрый день. Столкнулся с тем что в ЗУП 3.1 платформа 8.3.10.2667 при загрузке шаблона word 2013 не подтягиваются колонтитулы и рисунки. Может нужны какие-то специальные настройки в 1С или в word? Подскажите пожалуйста.
61. gucci76 364 29.01.20 22:56 Сейчас в теме
(44) Тоже с этим столкнулся. Хотел с помощью БСП напечатать. Если заменить word2013 на другой, то все нормально будет?
66. gucci76 364 14.02.20 14:23 Сейчас в теме
(61)Проверил.
Не в ворде дело.
Может кто видел пример как выводить колонтитулы?
Все примеры, что находил без них обходились. На сайте ИТС тоже искал - про колонтитулы только упоминание, а примера нет
Делал как мне кажется как в инструкции, но нет колонтитулов, хоть тресни
67. Сурикат 392 14.02.20 16:38 Сейчас в теме
(66)
как мне кажется как в инструкции, но нет колонтитулов, хоть тресни

А что вы хотите в итоге получить?
Заполнить колонтитулы данными или добавить колонтитутул по макету?
68. gucci76 364 14.02.20 18:00 Сейчас в теме
(67) Клиенты дали печатную форму с колонтитулами. Просто их выводить, без заполнения. В верхнем есть эмблема организации в виде картинки.
69. Сурикат 392 14.02.20 18:31 Сейчас в теме
(68)

Тогда зачем вы пытаетесь сделать что-то программно? =)
Запихиваете вашу форму в двоичные данные/ActiveX (если в нем поддерживаются колонтитулы) и их не трогаете =)
70. gucci76 364 14.02.20 22:02 Сейчас в теме
(69)БСП хочу использовать. Я не программно, а так как 1С рекомендует. Может я не в той теме написал. Просто когда по яндексу искал похожие ошибки, то только эту тему нашел.
45. Pavel Rodinchenko 20.02.18 10:54 Сейчас в теме
Спасибо за статью. Очень полезно
46. AlexeyK1 14 20.03.18 13:42 Сейчас в теме
А что же самых маленьких не учим с пеленок за собой убирать?
надо бы добавить уничтожение объектов и файлов.
а так статья хорошая )))

РS а то как открывать учим
//Разумеется, получение COM-объекта нужно поместить в попытку. Мало ли, что-то пойдет не так.

а как в Исключении прибить и почистить нет
47. Сурикат 392 20.03.18 14:21 Сейчас в теме
(46)
Я как-то верю в умные указатели...
Думаете не стоит? =)

Спасибо за замечание =)
48. Forrest_Gump 23.03.18 09:21 Сейчас в теме
Подскажите а чем могут быть "тормоза"???...
простенький шаблон договора 6 страниц... 30 параметров для замены...
Прикрепленные файлы:
49. pchelov 16.04.18 16:59 Сейчас в теме
Метод "Execute" имеет ограничение на длину значения для замены в 255 символов, если будет больше, то появляется исключение. Я написал небольшую процедуру для выполнения замены частями:

Процедура ВыполнитьЗаменуСОграничениемДлиныСтроки(вхДокументВорд, вхШаблонЗамены, вхЗначение)

// Замена значений в ворде имеет ограничение на длину в 255 символов.
// Разобьем значение на куски по 255 знаков

МаксДлинаСтроки = 255;

ИДШаблона = "@"+СтрЗаменить(Новый УникальныйИдентификатор, "-", "");

МаксДлинаСтроки = МаксДлинаСтроки-СтрДлина(ИДШаблона);

ТекШаблон = Строка(вхШаблонЗамены);
НеРазбитоеЗначение = Строка(вхЗначение);

МассивЧастейСтроки = Новый Массив;

Пока СтрДлина(НеРазбитоеЗначение)>0 Цикл

ЧастьНужнойДлины = Лев(НеРазбитоеЗначение, МаксДлинаСтроки);

МассивЧастейСтроки.Добавить(ЧастьНужнойДлины);

НеРазбитоеЗначение = Сред(НеРазбитоеЗначение, МаксДлинаСтроки+1, МаксДлинаСтроки);

КонецЦикла;

Для Каждого ЧастьСтроки Из МассивЧастейСтроки Цикл

вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, ЧастьСтроки+ИДШаблона, 1);

ТекШаблон = ИДШаблона;

КонецЦикла;

вхДокументВорд.Application.Selection.Find.Execute(ТекШаблон,,,,,,,,, "", 1); // Зачистим остатки шаблона

КонецПроцедуры
vat-74; windsurf; awp; +3 Ответить
79. Mx00 247 29.12.21 00:48 Сейчас в теме
(49) а как ведёт себя ваш модуль если "разрез" попадает на пробел?
я в похожий модуль добавлял замену пробела на "^0032"
		Если Прав(_ТекущаяЧасть,1)=" " Тогда // нельзя делить части по пробелу, при подстановке такой пробел "теряется"
			_ТекущаяЧасть=Лев(_ТекущаяЧасть,СтрДлина(_ТекущаяЧасть)-1)+"^0032";
		КонецЕсли;
		Если Лев(_ОстатокТекста,1)=" " Тогда // нельзя делить части по пробелу, при подстановке такой пробел "теряется"
			_ОстатокТекста="^0032"+Сред(_ОстатокТекста,2);
		КонецЕсли;
50. user608357_elpst 14.08.18 17:00 Сейчас в теме
Добрый день. А не подскажите - можно ли в созданный документ *.docx в нижний колонтитул внести произвольный текст и номер страницы?
51. named_Alexander 20.09.18 12:01 Сейчас в теме
А куда писать этот код ? Мне надо его в Справочник, модуль формы элемента поместить, чтоб Договор заполнялся данными из формы элемента. Создал в нужном мне справочнике макет с двоичными данными, потом в форме элемента создал кнопку и в событиях кнопки вставил код, Но он не работает там. Еще непонятно, где что выполняется, что на клиенте, а что на сервере ? Подскажите пожалуйста 1С УТ 11
52. Сурикат 392 21.09.18 13:36 Сейчас в теме
(51)
В УТ11 сложнее. На сервере или на клиенте у вас Word стоит?
53. named_Alexander 21.09.18 13:47 Сейчас в теме
54. user1132956 20.06.19 06:48 Сейчас в теме
Очень не понятно! решил впервые распечатать из Word, и что в итоге? Добавил файл ворд в макеты через двоичные данные, вставил код, сразу же заругался на "ДополнительныеПараметры.ВидДоговора" - что это такое, откуда брать и зачем? если уж называете статью, для самых меленьких, тогда хоть что-то объясняйте
55. Сурикат 392 20.06.19 09:15 Сейчас в теме
(54)

К сожалению, в одной статье не научить программированию и одновременно работе с word =(

Если бы вы открыли в синтакспомощнике описание метода ПолучитьМакет, то увидели бы, что он принимает в качестве первого параметра имя макета с двочиными данными =)
56. rjkjlptq 16 03.07.19 10:51 Сейчас в теме
Добрый день!
Подскажите, как вывести все значения через запятую в строку без использования таблицы.


Для каждого Параметр Из СтруктураПараметров.ТЧПостояннаяЧасть Цикл

СтруктураПараметров.ДанныеШапка.Площадь = Формат(Параметр.Площадь,"ЧЦ=15; ЧДЦ=1");

КонецЦикла;
57. Сурикат 392 03.07.19 15:50 Сейчас в теме
(56)
как вывести все значения через запятую в строку без использования таблицы.


Несовсем понятно какие данные на входе и какие должны быть на выходе...

P.S.
Возможно вам поможет СтрСоединить()
62. Tasha1C 06.02.20 11:10 Сейчас в теме
За статью +++. Все коротко и ясно!
63. ProkopyukIN 17 13.02.20 11:11 Сейчас в теме
подскажите как мне в клиент серверном режиме сделать.
макет в виде word храниться в Макетах. Заполняется на клиенте, как мне получить шаблон для заполнения по закладкам?

&НаСервере
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
Макет = ОбработкаОбъект.ПолучитьМакет("МакетWord");
Возврат Макет;

пробовал получить макет на сервере функцией и вернуть на клиент - active document не передает. неизвестный тип
64. Сурикат 392 13.02.20 12:28 Сейчас в теме
(63)
Вам нужно хранить не в ActiveX макет, а в двоичных данных. В таком случае он спокойно передается на клиент =)
65. ProkopyukIN 17 13.02.20 16:29 Сейчас в теме
(64) я как в таком виде закладки ставить и заполнять данными? по такому же принципу?
71. user1195203 03.07.20 09:50 Сейчас в теме
//Объект, содержит весь основный текст из всех разделов ДокументВорд.Content

Видимо энтер пропущен после "разделов".
Сурикат; +1 Ответить
72. littlekan 05.10.20 09:51 Сейчас в теме
Всем привет!
Подскажите, пожалуйста, как можно вставить текст после таблицы?
Пробовал считать строки таблицы, и потом спускаться на их количество, но получается какая-то ерунда, текст прыгает.
73. vavka 6 20.04.21 19:06 Сейчас в теме
Спасибо! Помог.
ВыполнитьЗамену(ДокументВорд.Sections(1).Footers.Item(2).Range(), Параметр.Ключ, Параметр.Значение);

подходит для формирования параметра на первой странице
74. aleks xantaev 8 28.06.21 17:47 Сейчас в теме
Подскажите как программно удалить водяной знак в ворде? Мне необходимо от различных условий удалять водяной знак.
75. Max_Kammirer 04.08.21 12:13 Сейчас в теме
А кто-то сталкивался с тем, чтобы кодом (программно) можно было отключать Заметки в ворде?
76. isanka 05.08.21 10:03 Сейчас в теме
День Бодрый.
Столкнулась с ошибкой при формировании документов Word из !С.
процедурой
Процедура ПоискИЗаменаВВордеИнУм(ОбъектВорд , Знач ТекстПоиска = "", Знач ТекстЗамены = "")
	
	ТекстЗамены = Строка(ТекстЗамены);
	
	ТекстПоиска = Строка(ТекстПоиска);
	
	Если ПустаяСтрока(ТекстПоиска) И ПустаяСтрока(ТекстЗамены) Тогда
		Возврат;
	КонецЕсли;
	
	ОбъектВорд.Selection.Find.Execute(ТекстПоиска,,,,,,,,,ТекстЗамены,2);
	
КонецПроцедуры
Показать

на строке
ОбъектВорд.Selection.Find.Execute(ТекстПоиска,,,,,,,,,ТекстЗамены,2);

{ОбщийМодуль.РаботаСWordДокументами.Модуль(208)}: Ошибка при вызове метода контекста (Execute)
ОбъектВорд.Selection.Find.Execute(ТекстПоиска,,,,,,,,,ТекстЗамены,2);
по причине:
Произошла исключительная ситуация (Microsoft Word): Слишком длинный строковый параметр.

Кто сталкивался с ограничением строки?
Может видит где ошибка?
в Word 2016.
Спасибо =)
77. SlavaKron 05.08.21 10:28 Сейчас в теме
(76) Попробуйте так:
Процедура ПоискИЗаменаВВордеИнУм(ОбъектВорд , Знач ТекстПоиска = "", Знач ТекстЗамены = "")
    
    ТекстЗамены = Строка(ТекстЗамены);
    
    ТекстПоиска = Строка(ТекстПоиска);
    
    Если ПустаяСтрока(ТекстПоиска) И ПустаяСтрока(ТекстЗамены) Тогда
        Возврат;
	КонецЕсли;
	
	ОбластьДокумента = ОбъектВорд.ActiveDocument.Content;
	ОбластьДокумента.Collapse(1);
	
	Поиск = ОбластьДокумента.Find;
	Поиск.Forward = True;
	Поиск.Text = ТекстПоиска;
	
	Пока Поиск.Execute() Цикл
		ОбластьДокумента.Select();
		ОбъектВорд.Selection.TypeText(ТекстЗамены);
	КонецЦикла;
    
КонецПроцедуры
Показать
78. isanka 05.08.21 10:56 Сейчас в теме
Заработало! ))
Slava Kron - Спасибо! Ты супер
Пошла сравнивать варианты отладке.
80. MarMargo 04.02.22 12:31 Сейчас в теме
Добрый день.
Может кто подскажет, возможно ли сделать печать в Word c ограничениями?

Например, в договоре оставить только некоторые поля для возможного заполнения/редактирования, а на остальной текст был запрет на изменение.
81. MarMargo 04.02.22 14:04 Сейчас в теме
(80)
поторопилась с вопросом, сама поняла как сделать

просто загрузила в макет (двоичные данные) вордовский документ с уже настроенными нужными ограничениями
82. ahmato 20.04.22 11:51 Сейчас в теме
Добрый день!

А как выровнять текст по левому или правому краю?
83. DiegoLidabo 11 01.06.22 07:52 Сейчас в теме
Есть шаблон ворд для массовой печати договоров (ДокументВорд).
Данные из ТЗ, каждая строка которой есть данные для одного договора.
Как избежать повторного кода перед обработкой ПоискаИЗамены ???


	Попытка 
		ОбъектВорд = Новый COMОбъект("Word.Application");
		ОбъектВорд.Documents.add(ФайлШаблон);
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	
	//Открыть Документ Word
	Попытка 
		ДокументВорд = ОбъектВорд.Application.Documents(1);
   		ДокументВорд.Activate();
	Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
Показать
84. bryuko69 15.06.22 21:33 Сейчас в теме
Всем привет, столкнулся с такой проблемой, только начинаю все изучать. и нужно заполнить таблицу данными, как мне программно указать адреса колонок где в шапке в одной колонке идет деление на две, как правильно указать путь. не судите строго. не знаю я как лучше изложить суть моей проблемы.








85. bryuko69 16.06.22 19:36 Сейчас в теме
(84)
Прикрепленные файлы:
86. Wefast 25.10.22 15:48 Сейчас в теме
А есть готовый пример в виде внешней печатной формы?
87. XelOla 17 07.12.22 08:17 Сейчас в теме
Здравствуйте!
А можно ли в scloud заполнить word?
Оставьте свое сообщение