Автозаполнение шаблонов WORD

@Shevalie · Регистрация: 22.03.2013

Студворк — интернет-сервис помощи студентам

Доброго времени дня! Нужна Ваша помощь с автозаполнением писем.

Из-за большого потока клиентов просто не успевал заполнять четыре Word-документа. Подумал, что будет возможно копирование информации с помощью Excel, но столкнулся с проблемой редактирования текста (на подгон полей уходило еще больше времени).

Решил попробовать с Access. Создал форму для заполнения, необходимые шаблоны.
Но вот код для автозаполнения оказался мне непосильным.

Прошу Вашей помощи или совета.

@Eugene-LS · 24.11.2017, 15:32

Сообщение от Statheros

Решил по этой причине в другом месте слепить такую же кнопку.

Опубликуйте пример пожалуйста.
Так не понято.
И про "другое место" напишите (какая форма) - посмотрю что там - как, и почему ....

Судя по ошибке - вы обращаетесь к несуществующему полю РекордСета (предположение)

@alvk · 27.11.2017, 04:04

Или закладки такой нет в Worde

@Statheros · 27.11.2017, 14:26

Чем дальше в лес тем больше дров. Знаний не хватает, поэтому выкладываю версию базы с двумя кнопками. На данный момент не работает ни одна. Работающую кнопку "Печать указа" решил переделать чтобы заполнялась таблица по примерам указанным выше. В результате дошел до открытия шаблона, как программировать движение курсора по шаблону пока не разобрался. Решил вернуться на рабочий вариант, что-то накосячил, теперь и он не работает. Вторая кнопка "Печать удостоверения", а вернее шесть кнопок становящиеся видимыми по выбору значения из поля со списком, вообще не подают признаков жизни.
Наверняка что-то очевидное пропустил. Использовал предложенный мне вариант кода и он у меня работал. Как известно аппетит приходит во время еды. Идеи ведь так и прут. Полез переделывать, модернизировать, теперь ничего не работает. Прошу взглянуть профессиональным взглядом.

shanemac51 · 27.11.2017, 14:53

у вас путаница с именами полей запроса, имени ворд-документа, многие имена отчета вообще не заполнены

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
For Each fld In rst.Fields
Debug.Print fld.Type, fld.Name
Next fld
''''''имена в запросе
''4             IdDecree
''10            ФИО
''10            Post
''8             BirthDate
''10            Награда
''4             IdReward
''8             DecreeDate
''10            DecreeNumber
''
''rst!Cause  --нет
''rst!RewardName ---нет
 
        ReplacInWord app, "(д)", Format(rst!DecreeDate, "dd")
        ReplacInWord app, "(м)", Format(rst!DecreeDate, "mmmm")
        ReplacInWord app, "(г)", Format(rst!DecreeDate, "yy")
        ReplacInWord app, "(№)", rst!DecreeNumber
        ReplacInWord app, "(Cause)", rst!Cause
        ReplacInWord app, "(RewardName)", rst!RewardName
'''''имя файла
        Debug.Print strPathWord
        .SaveAs Replace(strPathWord, """", "'") 'сохраняем созданный документ по заданному пути strPathWord
    End With
    
    app.Activate

@Statheros · 27.11.2017, 16:58

shanemac51, потрясен своей невнимательностью. Наверное чаще надо выходить покурить... На четвертой странице Вы писали о возможности склонения слов при Вашем способе автозаполнения. Можно ли склонять месяц в моем случае.

Visual Basic
1
Format(rst!DecreeDate, "mmmm")

получается "Ноябрь", что несколько коряво. Правильней " 27 " ноября 2017 г.

@Eugene-LS · 27.11.2017, 17:11

Сообщение от Statheros

потрясен своей невнимательностью. Наверное чаще надо выходить покурить... На четвертой странице Вы писали о возможности склонения слов при Вашем способе автозаполнения. Можно ли склонять месяц в моем случае.

Вы пишете как полное ХАМЛО! - а это не правильно
Извинитесь перед shanemac51, и можзет быть что то продолжиться.

@Capi · 27.11.2017, 17:19

Сообщение от Statheros

Можно ли склонять месяц

Visual Basic
1
2
3
Format(Date(), "dd mmmm yyyy г.")
 
27 ноября 2017 г.

Добавлено через 3 минуты
Eugene-LS,

Есть смысл внимательнее читать сообщения.
Тогда не будет "праведного гнева" с Вашей стороны.

@Statheros · 27.11.2017, 18:41

Eugene-LS, с чего Вы взяли, что это к shanemac51? Написано вполне не двусмысленно... Речь о моей невнимательности. С благодарностью воспользовался столь быстрым ответом. И сейчас удивлен как я так напортачил. Видимо надо переключаться на какие-то другие задачи. Потому и написал про покурить. Не пойму кого я мог этим обидеть? Признаю свои ошибки. Благодарю всех за помощь. В моем посте не хамство, самоирония.

@Eugene-LS · 27.11.2017, 18:55

Statheros, думаю, что одного моего извинения вполне достаточно (см. выше).
Если хотите могу повторить.
Я просто вас не правильно прочитал. Бывает.
Проехали уже (я надеюсь).

Сообщение от Capi

Ага. Увидела, отменила.)))

А вас бврышня, арбитром, вообще никто не назначал ...

@Statheros · 27.11.2017, 19:09

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

@alvk · 28.11.2017, 08:58

Но лучше в новой теме.

@Statheros · 08.12.2017, 14:09

Добрый день, возник вопрос. Возможно ли описанными выше способами добавлять в документ-ворд изображения, хранящиеся в базе в виде вложения? Функции Word.Document.InlineShapes.AddOLEObject и Word.Document.InlineShapes.AddPicture как я понял требуют расположение файлов изображений во внешних папках.
Я по наивности вставил код

Visual Basic
1
ReplacInWord app, "(Фото)", rst!Фото

. Разумеется не работает. Вернее все заполняется, кроме фото.

@alvk · 09.12.2017, 11:31

Сообщение от Shevalie

Доброго времени дня! Нужна Ваша помощь с автозаполнением писем.

Сообщение от Statheros

Возможно ли описанными выше способами добавлять в документ-ворд изображения

Какие могут быть в письмах изображения?

@Statheros · 09.12.2017, 12:17

alvk, может кто-то и поместит изображения. Например, в информационном письме по поводу появления какого-нибудь нового товара... Такие письма вручную составлять времени много отнимет, другое дело с помощью автозаполнения. Тем более тема же ветки "Автозаполнение шаблонов WORD - MS Access". Если я грубо нарушаю какие-либо правила форума, оставляя сообщение в чужой теме, то прошу не сердиться, а так и написать. Однако автор темы молчит, потому делаю вывод, что вроде не против. Просто не знаю насколько уместно создавать точно такую же тему на форуме "Автозаполнение шаблонов WORD - MS Access №2". Проще же следить за одной веткой, чем за множеством одинаковых.

@alvk · 09.12.2017, 14:16

Сообщение от Statheros

Проще же следить за одной веткой, чем за множеством одинаковых.

ну так и следите : Путеводитель по разделу раздел word

@Statheros · 09.12.2017, 15:35

alvk, почему раздел Word? Все мои вопросы в этой теме по написанию кода в Access.

Добавлено через 29 минут
alvk, спасибо за ссылку. Одним словом туплю. Буду там писать.

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	27.11.2017, 04:04
	Или закладки такой нет в Worde 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	27.11.2017, 18:41
	Eugene-LS, с чего Вы взяли, что это к shanemac51? Написано вполне не двусмысленно... Речь о моей невнимательности. С благодарностью воспользовался столь быстрым ответом. И сейчас удивлен как я так напортачил. Видимо надо переключаться на какие-то другие задачи. Потому и написал про покурить. Не пойму кого я мог этим обидеть? Признаю свои ошибки. Благодарю всех за помощь. В моем посте не хамство, самоирония. 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	27.11.2017, 19:09
	Всех благодарю за советы. Буду проще писать. Кстати, сейчас кнопка печати работает. Все поправил. Хочу все же освоить заполнение таблиц. Так что дня через два как косяки пойдут обращусь опять за помощью. 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	28.11.2017, 08:58
	Но лучше в новой теме. 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	09.12.2017, 12:17
	alvk, может кто-то и поместит изображения. Например, в информационном письме по поводу появления какого-нибудь нового товара... Такие письма вручную составлять времени много отнимет, другое дело с помощью автозаполнения. Тем более тема же ветки "Автозаполнение шаблонов WORD - MS Access". Если я грубо нарушаю какие-либо правила форума, оставляя сообщение в чужой теме, то прошу не сердиться, а так и написать. Однако автор темы молчит, потому делаю вывод, что вроде не против. Просто не знаю насколько уместно создавать точно такую же тему на форуме "Автозаполнение шаблонов WORD - MS Access №2". Проще же следить за одной веткой, чем за множеством одинаковых. 0

@Statheros 0 / 0 / 0 Регистрация: 24.08.2017 Сообщений: 86
	09.12.2017, 15:35
	alvk, почему раздел Word? Все мои вопросы в этой теме по написанию кода в Access. Добавлено через 29 минут alvk, спасибо за ссылку. Одним словом туплю. Буду там писать. 0