1С 8.3 Word

ПРИМЕРЫ КОДА 1С

Интеграция 1С с Microsoft Word открывает широкие возможности для автоматизации документооборота и упрощения повседневных задач. Она востребована в бухгалтерии, кадровом учёте, торговле и других областях, где важна работа с формализованными документами. Чаще всего взаимодействие реализуется через COM‑интерфейс, который позволяет 1С управлять объектами Word: создавать документы, вставлять текст и таблицы, изменять оформление.

Оглавление:

✔ Создание нового документа Word и вставка текста

✔ Заполнение документа по шаблону

✔ Добавление таблицы в документ

✔ Экспорт текста в существующий файл Word

✔ Чтение содержимого документа Word

✔ Шаблоны (готовые модели) кода 1С 8.3 с тегом #Word

✔ Актуальные новости с тегом #Word

Создание нового документа Word и вставка текста в 1С 8.3:

Процедура СоздатьДокументWord()

   WordApp = Новый COMОбъект("Word.Application");
   WordApp.Visible = Истина; // Чтобы видеть процесс

   Документ = WordApp.Documents.Add();
   Диапазон = Документ.Range();
   Диапазон.Text = "Привет из 1С! Документ создан автоматически.";

КонецПроцедуры

Заполнение документа по шаблону в 1С 8.3:

Процедура ЗаполнитьПоШаблону(ПутьКШаблону, Имя, Дата)

   WordApp = Новый COMОбъект("Word.Application");
   WordApp.Visible = Истина;

   Документ = WordApp.Documents.Add(ПутьКШаблону);

   // Замена плейсхолдеров
   WordApp.Selection.Find.Execute("{Имя}", Ложь,, , , , , , , Имя);
   WordApp.Selection.Find.Execute("{Дата}", Ложь,, , , , , , , Формат(Дата, "ДФ='dd.MM.yyyy'"));

КонецПроцедуры

Добавление таблицы в документ в 1С 8.3:

Процедура ДобавитьТаблицу()

    WordApp = Новый COMОбъект("Word.Application");
    WordApp.Visible = Истина;

    Документ = WordApp.Documents.Add();
    Таблица = Документ.Tables.Add(Документ.Range(), 3, 3);

    Таблица.Cell(1,1).Range.Text = "Наименование";
    Таблица.Cell(1,2).Range.Text = "Ед.изм.";
    Таблица.Cell(1,3).Range.Text = "Кол-во";
    Таблица.Cell(1,4).Range.Text = "Цена";
    Таблица.Cell(1,5).Range.Text = "Вес";

    Таблица.Cell(2,1).Range.Text = "Золото";
    Таблица.Cell(2,2).Range.Text = "Слиток";
    Таблица.Cell(2,3).Range.Text = "3";
    Таблица.Cell(2,4).Range.Text = "9025.00";
    Таблица.Cell(2,5).Range.Text = "1";

КонецПроцедуры

Экспорт текста из 1С в существующий файл Word в 1С 8.3:

Процедура ДобавитьТекстВФайл(ПутьКФайлу, Текст)

   WordApp = Новый COMОбъект("Word.Application");
   WordApp.Visible = Ложь;

   Документ = WordApp.Documents.Open(ПутьКФайлу);

   Документ.Content.InsertAfter(Символы.ПС + Текст);

   Документ.Save();
   Документ.Close();
   WordApp.Quit();

КонецПроцедуры

Чтение содержимого документа Word в 1С 8.3:

Функция ПрочитатьТекстWord(ПутьКФайлу) Экспорт

   WordApp = Новый COMОбъект("Word.Application");
   Документ = WordApp.Documents.Open(ПутьКФайлу);

   Текст = Документ.Content.Text;

   Документ.Close(Ложь);
   WordApp.Quit();

   Возврат Текст;

КонецФункции

Шаблоны (готовые модели) кода 1С 8.3 с тегом #Word:

📰 Актуальные новости с тегом #Word:

В версии 8.5.4 реализована поддержка работы с офисными документами, защищенными паролем.
В версии 8.5.3 реализовано отображение документов формата Word
В версии 8.3.28 реализовано отображение документа формата doc/docx (MS Word)

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник