Добавление макроса в файл Word из 1С

18.04.12

Интеграция - Внешние источники данных

Добавление макроса в файл Word из 1С

Скачать файлы

Наименование Файл Версия Размер
Код 1С.jpg
.jpg 115,06Kb
22
.jpg 115,06Kb 22 Скачать
Макрос.jpg
.jpg 163,48Kb
6
.jpg 163,48Kb 6 Скачать

Ниже представлен код 1С для добавления макроса в файл Word.

Макрос, который добавляется в данном примере в файл Word сохраняет его при закрытии в файл "НовоеИмяФайла "

Кусок кода, который расположен ниже можно встравлять в любое место когда, где необходимо будет добавление макроса в документ Word.

 

Расположенный ниже код - это всего лишь пример механизма вставки макросов в Word. На основании данного примера можно вставлять любые макросы в документы Word, путем модификации данного примера.

Данный пример может понадобится, например, для сохранения файла ворд в автоматическом режиме в какое-либо другое место после закрытия файла

 

 

 

Ворд = Новый COMОбъект("Word.Application");
ИмяФайла =  "Тест файл1.doc";
НовоеИмяФайла =  "Тест файл2.doc";
ФайлВорд = Ворд.Documents.Open(ИмяФайла ); //Открываем файл

 
Если Не ФайлВорд.ReadOnly Тогда
    Попытка
        ФайлВорд.VBProject.VBComponents("ThisDocument").CodeModule.DeleteLines(1,4);//Удаляем сначала весь код макроса
    Исключение
    КонецПопытки;

    
    ФайлВорд.VBProject.VBComponents("ThisDocument").CodeModule.InsertLines(1, "Private Sub Document_Close()");
    ФайлВорд.VBProject.VBComponents("ThisDocument").CodeModule.InsertLines(2, "FileName = """ + НовоеИмяФайла + """");
    ФайлВорд.VBProject.VBComponents("ThisDocument").CodeModule.InsertLines(3, "ThisDocument.SaveAs(FileName)");
    ФайлВорд.VBProject.VBComponents("ThisDocument").CodeModule.InsertLines(4, "End Sub");
    
    //Word сам сохранит файл в нужное место
Иначе
    Сообщить("Файл открыт только для чтения");
КонецЕсли;

Ворд.Visible = Истина;

См. также

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22440    19    1    

22

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9203    9    8    

10

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    48686    97    163    

86

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически и наиболее полно ввести данные в программу для начала работы. 

15600 руб.

08.12.2011    81556    128    123    

147

Перенос данных из Парус 10 (Торнадо) в ЗГУ ред.3 через Excel

Внешние источники данных Загрузка и выгрузка в Excel Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате из Парус 10(Торнадо) учреждений через файлы Excel в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ). В принципе, обработка может быть использована для загрузки из файлов Excel, полученных из любых информационных систем.

24000 руб.

16.11.2018    29996    20    31    

21

Загрузка спецификаций в УНФ из системы Базис-мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

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

7200 руб.

24.06.2021    19126    52    50    

29
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. pavel_pss 289 19.04.12 11:36 Сейчас в теме
Поставил плюс за старания и другой способ. :D
Но у тебя есть одна ошибка, ты сдела попытку только на очистку текста макроса, а на добавление не сделал.
Так же использование макросов это класно, но для такого метода использования необходимо чтобы в офисе было обязательно включено в настройках безопасности "доверять доступ к объектной модели проектов vba". Сами макросы можно тогда установить в "отключить все макросы без уведомления". Как это проверить включен ли доступ, я сам еще пока не нашел, нет времени.
8-)
2. evrakylon 25.04.12 11:32 Сейчас в теме
Плюс за идею. Как раз потребовалось создать много шаблонов active document в Word. Автоматизирую при помощи макросов
3. Yashazz 4709 25.04.12 16:52 Сейчас в теме
Для Экселя всё примерно так же?
4. 6630 1 17.05.12 07:22 Сейчас в теме
Да меня тоже для Excel Интересует подобная идея?
5. CaSH_2004 372 27.06.12 09:09 Сейчас в теме
Уважаемый автор - раскрась код
Оставьте свое сообщение