Създайте Word документ от електронна таблица на Excel, макроси на Excel
Макросът е предназначен за програмно създаване на документи на Word въз основа на шаблон
(без използване на функцията за сливане в Word)
Архивът, прикачен към статията, съдържа 2 файла:
- шаблон на договор във формат Microsoft Word (разширение .точка)
- Excel файл с макрос
Макро настройките са зададени в код:
Const TemplateFileName = "template.dot"
Const Брой обработени колони = 8
Const GeneratedFile Extension = ".doc"
Когато се натисне бутона за изпълнение, макрос, базиран на шаблон точка създава друг файл и в този документ заменя текста („код на полето“) от първия ред на файла на Excel със стойността на полето (от следващия ред с данните във файла на Excel)
Папката за генерирани документи се създава автоматично и съдържа текущата дата и час в името
(например създадената папка ще бъде наречена Договори, сформирани на 01-05-2011 в 15-03-24)
Имената на създадените файлове се формират чрез комбиниране на полетата на фамилията, собственото име и бащиното име, с добавяне на разширението на doc
PS: Макросът е написан много отдавна, когато тепърва започвах да уча VBA - така че кодът не е достатъчно универсален.
Но като пример може би ще стане (ако имате нужда от по-функционален макрос, използвайте универсалната добавка (вижте по-долу))
Вижте и универсалната добавка за генериране на документи от шаблони,
който може да направи всичко по същия начин като тази програма,
само като шаблони, в допълнение към документите на Word, могат да действат и текстови файлове и книги на Excel.
От горната връзка, програмата за попълване на документи на Word от Excel е достъпна за безплатно изтегляне.
Внимание: заявки за ревизия на макроса, описан в тази статия, не се приемат.
Има нова (универсална) версия, която вече разполага с почти всичко, което може да е необходимо.
Коментари
Благодаря за макроса, бихте ли ми казали какво да променя в него, така че да се обработва само редът, в който се обработва избраната клетка?
Благодаря за макроса. Много помогнах в работата си.
Този макрос вече не се поддържа.
Използвайте новата (разширена) версия на програмата - там всичко работи без грешки.
Макросът дава грешка (Несъответствие на типа (Грешка 13)) при обработка на клетка с формула, моля, кажете ми как да разреша този проблем?