Vba excel создать документ word

Автоматизация Microsoft Word с помощью Visual Basic для создания нового документа

Сводка

В этой статье описывается создание нового документа в Word с помощью автоматизации из Visual Basic.

Пример кода

В примере кода в этой статье показано, как выполнить следующие действия:

• Вставка абзацев с текстом и форматированием.
• Просмотр и изменение различных диапазонов в документе.
• Вставка таблиц, форматирование таблиц и заполнение таблиц данными.
• Добавление диаграммы.

Чтобы создать новый документ Word с помощью автоматизации из Visual Basic, выполните следующие действия:

В Visual Basic создайте новый стандартный проект EXE. По умолчанию создается форма Form1.

В меню проект выберите пунктссылки, выберите один из следующих параметров и нажмите кнопку ОК:

• Для Office Word 2007 щелкните объектная Библиотека Microsoft Word 12,0.
• В Word 2003 щелкните объектная Библиотека Microsoft word 11,0.
• В Word 2002 щелкните объектная Библиотека Microsoft word 10,0.
• В Word 2000 щелкните объектная Библиотека Microsoft word 9,0.

Добавление элемента управления CommandButton в форму Form1.

Добавьте следующий код в событие Click для Command1:

Нажмите клавишу F5, чтобы запустить программу, а затем выберите Command1.

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

Использование шаблона

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

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

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

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

Ссылки

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

285332 как автоматизировать Word 2002 с помощью Visual Basic для создания слияния почты

(c) корпорация Майкрософт (Microsoft Corporation) 2001, все права защищены. Вклады Лори B. Турнер, корпорация Майкрософт.

10.4.2 Свойства и методы коллекции Documents

Коллекция Word.Documents, методы Add(), Open(), Item(), программное создание и открытие документов Word в VBA

• Add() — этот метод позволяет создать и сразу же открыть новый документ (и вернуть ссылку на его объект). Это — наиболее распространенный способ создания новых документов в Word. Полный синтаксис этого метода выглядит как

• Open() — этот еще один важнейший метод коллекции Documents позволяет открыть документ с диска и добавить его в коллекцию. Этот метод принимает множество параметров, из которых обязательным является только один — имя документа (вместе с путем к нему). Самый простой вариант применения этого метода выглядит так:

• метод Item() позволяет найти нужный документ в коллекции по его индексу. Но обычно для получения ссылки на нужный документ используется конструкция For..Next с проверкой значения какого-либо свойства документа через If. Чаще всего это свойство — Name:

Эта конструкция возвращает ссылку в виде переменной oDoc1 на документ doc1.doc, если он точно есть в коллекции. Если его нет, то во избежание ошибок нужно реализовывать дополнительные проверки. На практике можно было бы подумать, не нужно ли вам перед сравнением привести имя документа doc1.doc в нижний регистр — если учитывать регистр букв при поиске вам не нужно.

Через свойство Item можно получить доступ к объекту документа напрямую. Например, в этом примере мы получаем имя первого документа в коллекции Documents:

• методы Save() и Close() — позволяют сохранить и закрыть все документы в коллекции соответственно.
• методы CanCheckOut() (можно ли «забрать» документ в монопольный доступ) и CheckOut() (забрать документ в монопольный доступ) можно применять, если документ находится в документной библиотеке в базе данных SharePoint Portal Server.

Макрос создания документов Word по данным таблицы Excel

Макрос предназначен для программного создания документов Word на основе шаблона

(без использования функции слияния в Word)

Const ИмяФайлаШаблона = «шаблон.dot»
Const КоличествоОбрабатываемыхСтолбцов = 8
Const РасширениеСоздаваемыхФайлов = «.doc»

При нажатии кнопки запуска макрос на основе шаблона dot создаёт очередной файл, и в этом документе производит замену текста («кода поля») из первой строки файла Excel на значение поля (из очередной строки с данными файла Excel)

Папка для сформированных документов создаётся автоматически, и содержит в имени текущую дату и время
(например, созданная папка будет называться Договоры, сформированные 01-05-2011 в 15-03-24)

Имена создаваемых файлов формируются объединением полей фамилия, имя и отчество, с добавлением расширения doc

PS: Макрос был написан достаточно давно, когда я только начинал изучать VBA, — так что код недостаточно универсален.

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

Ознакомьтесь также с универсальной надстройкой формирования документов по шаблонам,
которая может делать всё тоже самое, что и эта программа,
только в качестве шаблонов могут выступать, помимо документов Word, ещё текстовые файлы, и книги Excel.

В надстройке — много возможностей, и полезных дополнений: склонение ФИО в родительный и дательный падежи, автоматический вывод на печать (с заданным количеством копий), размещение созданных файлов в разных папках, создание и рассылка писем со вложениями, и множество других полезных функций.

По вышеприведённой ссылке программа заполнения документов Word из Excel доступна для бесплатного скачивания.

Внимание: просьбы о доработке макроса, описанного в этой статье, не принимаются.

Есть новая (универсальная) версия, — в которой уже есть практически всё, что может понадобиться.

Комментарии

Спасибо, за макрос, не могли бы подсказать что в нем изменить что бы обрабатывалась только та строка в которой выделенная ячейка?

Этот макрос уже не поддерживается.
Используйте новую (расширенную) версию программы, — там все работает без ошибок.

Макрос выдает ошибку (Type mismatch (Error 13)) при обработке ячейки с формулой, подскажите пожалуйста как решить эту проблему?

Здравствуйте. Спасибо вам за этот макрос, который помог мне в работе.
Не могли бы вы еще подсказать как сделать чтоб в шаблон Word прописывались данные из нескольких (разных) строк Excel?
Заранее спасибо.

Подскажите. а можно сделать чтобы макрос обрабатывал только те строки в которых стоит номер договора, а если пусто пропускал?

Ознакомился с программой. Серьезный труд. Снимаю шляпу. Но мне понравился именно этот макрос. С колонтитулами я разобрался — оказалось ничего сложного, да и сам макрос оброс уже кучей доработок. Затянуло, знаете ли ))

Евгений, воспользуйтесь универсальной программой для заполнения документов Word — там реализована подстановка значений в колонтитулы

Добрый день! Макрос очень помог в работе. Доделал его немного под свои нужды: вывод в разные шаблоны документов word при разных значениях в excel. Остался один вопрос — в сам документ word текст вставляется отлично, а вот в колнтитулы — нет 🙁 Подскажите, пожалуйста, как это исправить?

Вова, если нет денег на заказ, есть только 2 варианта:
1) разобраться в этих макросах, и сделать самому (благо, примеров подобных макросов в интернете предостаточно)
2) обратиться за помощью на любой из форумов по Excel (но, опять же, если с вашей стороны никаких наработок нет, вряд ли кто сделает всю работу за вас)

Вова, в этом случае универсальное решение сделать не получится — уж слишком много возможных вариантов расположения данных в Excel, и способов заполнения документов Word.
Оформляйте заказ на сайте — сделаю для вас макрос под ваши требования.

Подскажите пожалуйста, как сделать так, чтобы макрос формировал один документ ворд на основании данных из нескольких строк Excel?

А как реализовать те же возможности, только используя функцию слияния в Word. Чтобы каждый новый раз не формировался новый документ а запись делалась на новой странице?

Теперь доступна новая версия универсальной программы формирования документов по шаблонам.

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

Количество файлов-шаблонов (Word, Excel, TXT) неограничено.

Бесплатно скачать и протестировать программу можно по этой ссылке:
http://excelvba.ru/programmes/FillDocuments

можно ли по каждой записи сформировать 2 документа word?

Создание документа Word из Excel

Создание документа Word по шаблону из Excel
Пытаюсь создать документ Word из шаблона. Необходимо в шаблон добавить текст. Добавляю но шаблон.

Создание документа Word из таблицы Excel
Доброе время суток! Не отправляйте, пожалуйста, в поиск, прочитав название темы. В тексте я.

Добавление срок в таблицу Word при заполнении документа Word из данных Excel
Всем привет! Я новичок в этом деле и нужна помощь. Есть таблица Excel с данными на основании.

Сохранение документа Word из макроса Excel
Макросом Excel формирую в рабочей книге в ячейке B3 имя для документа Word (типа itogi_050914.doc).

bizard, в программе Word свойство Selection относится к объекту Window. У объекта Document нет свойства Selection.

В этом случае, когда ставите точку, то будут всплывающие подсказки.

сделал как вы сказали
это он проглотил
застопорился на .Font.Size = 11
убрал пока эту строчку
пошёл выполнять Call ШАПКА

Большое спасибо, вроде дошло на ночь глядя.
С наступающим Новым годом! Всего самого наилучшего вам в новом году.

bizard, сначала делайте код в программе Word.
Когда ставите точку, то появляются члены, которые есть у объекта. Если среди членов нет нужного, значит у объекта нет этого члена. Есть случаи, что не все члены появляются после того, как поставишь точку, но такое редко бывает.

TypeParagraph — является членом объекта Selection. Если вы перейдёте в программу Word, октроете программу VBA, введёте ActiveDocument и поставите точку, то во всплывающей подсказке не будет TypeParagraph. Это означает, что у объекта ActiveDocument нет члена TypeParagraph (могут быть исключения — член не появляется, но есть, но это бывает редко).

Ваш код вызывает диалог, а можно ли программно задать это «имя файла», поясню, я программно создаю новую книгу, пользователь жмет в ней сохранить и уже в этом диалоге вместо «книга1» должно быть «Нужное_имя_при_сохранении»

Создание книги excel vba — IT Новости из мира ПК

Эта конструкция возвращает ссылку в виде переменной oDoc1 на документ doc1.doc, если он точно есть в коллекции. Если его нет, то во избежание ошибок нужно реализовывать дополнительные проверки. На практике можно было бы подумать, не нужно ли вам перед сравнением привести имя документа doc1.doc в нижний регистр — если учитывать регистр букв при поиске вам не нужно.

Создание книги excel vba

VBA в Excel Объект Excel.Workbook и программная работа с книгами Excel из VBA

10.4 Коллекция Workbooks и объект Workbook, их свойства и методы

Объект Excel.Workbook, программная работа с книгами Excel из VBA, создание и открытие книг Excel

• первый способ — воспользоваться коллекцией Workbooks, которая доступна через свойство Workbooks объекта Application. Впрочем, применять это свойство совершенно не обязательно — коллекция Workbooks в Excel и так постоянно доступна. Найти нужную книгу в этой коллекции можно по ее имени или номеру в коллекции:

• второй способ — использовать свойство Application.ActiveWorkbook. При помощи этого свойства мы обращаемся к активной в настоящей момент книге:

• третий способ — использовать свойство Application.ThisWorkbook. При этом мы обращаемся к той книге, которой принадлежит данный программный модуль:

На практике чаще всего нам нужно либо создать в Excel новую книгу, либо открыть существующую книгу (или другой файл в формате, который понимает Excel, например, DBF). Для этой цели используются методы Add() и Open() соответственно. Например, создать новую книгу в Excel можно так:

Единственный необязательный параметр, который принимает этот метод — имя шаблона, на основе которого создается новая рабочая книга.

Помимо стандартных, в коллекции Workbooks предусмотрено также три специальных метода:

Как и метод InsertDatabase() в Word, эти методы следует использовать только в самых простых случаях. Рекомендуется по возможности использовать более мощные и стандартные средства объектной модели ADO.

Теперь о самых важных свойствах объекта Workbook — самой рабочей книги:

• Name, CodeName, FullName — разные имена этой книги. Самое простое имя — Name, это имя совпадает с именем файла книги. FullName — это имя файла книги вместе с полным путем к нему в операционной системе. CodeName — как эта книга будет называться в коде. CodeName можно посмотреть в окне Project Explorer или, если открыть свойства книги в окне Properties, кодовое имя книги будет представлено в строке (Name). Все три свойства доступны только для чтения, менять их можно другими способами (например, сохраняя файл под другим именем или прямо в окне Properties).

Определенное отношение к именам имеет также свойство Path (путь к файлу книги) .

Это свойство удобно использовать для предварительных проверок для устранения потенциальных ошибок времени выполнения.

Создание отдельных книг из листов текущей книги

Данная функция является частью надстройки MulTEx

Вызов команды:
MulTEx -группа Книги/Листы —Книги —Создание книг из листов

В окне отобразится список листов активной книги. По умолчанию для сохранения отмечены(галочками) все листы, но можно отметить галочками только отдельные. Именно отмеченные листы будут сохранены как отдельные книги. Созданным файлам назначаются имена тех листов, из которых они были созданы. Если имя листа содержит символ, недопустимый в имена файла — он будет удален из имени.

Сохранить новые книги в формате — список всех доступных для сохранения форматов, в которые можно сохранить каждый отмеченный лист:

Папка для сохранения файлов — выбирается папка, в которую необходимо сохранять созданные файлы.

Конференция VBStreets

Создание книги с заданным именем

Создание книги с заданным именем

книга открывается с требуемым именем, но почему-то только для чтения (свойство .ReadOnly=True), а это свойство изменить нельзя.
При использовании как шаблона реальных файлов Excel — картина аналогичная, доступ к вновь открытой книге только по чтению.

Grerg-у. Насчет сигнатуры получилось, конечно, еще то.
Что поделать, эклер проклятый замучил, как у той бабки, которая пыталась купить два склероза.

Re: Создание книги с заданным именем

Re: Создание книги с заданным именем

Re: Создание книги с заданным именем

Ваш код вызывает диалог, а можно ли программно задать это «имя файла», поясню, я программно создаю новую книгу, пользователь жмет в ней сохранить и уже в этом диалоге вместо «книга1» должно быть «Нужное_имя_при_сохранении»

Re: Создание книги с заданным именем

Создание отдельных книг из листов текущей книги

Данная функция является частью надстройки MulTEx

Вызов команды:
MulTEx -группа Книги/Листы —Книги —Создание книг из листов

В окне отобразится список листов активной книги. По умолчанию для сохранения отмечены(галочками) все листы, но можно отметить галочками только отдельные. Именно отмеченные листы будут сохранены как отдельные книги. Созданным файлам назначаются имена тех листов, из которых они были созданы. Если имя листа содержит символ, недопустимый в имена файла — он будет удален из имени.

Сохранить новые книги в формате — список всех доступных для сохранения форматов, в которые можно сохранить каждый отмеченный лист:

Папка для сохранения файлов — выбирается папка, в которую необходимо сохранять созданные файлы.

Vba excel создать книгу excel

Самоучитель по Excel VBA

​Смотрите также​: Ладно, раз ТС​, Благодарю за помощь.​ копируется (лист «Смета»),​ всегда под одним​ умолчанию,​Спасибо за ссылочку))​ Range явного указания​ присвоения результата переменной​ New_Wb.SaveAs​ «A1:AA6000» vData =​ скопировать лист в​ извините, ерунда).​ПОмогите еще с​Юрий М​Источник: http://www.excelfunctions.net/Excel-VBA-Tutorial.html​

​ обращение к АКТИВНОЙ​ «» & Range(«Книга»)​Dim New_Wb As​ vDataВот написал, все​

​Юрий М​ New_Wb As Workbook​
​ как Вы помогли,​
​ Set New_Wb =​

Создание новой книги макросом

​ примере видно -​​new_see​ книги в Вашем​ создали. Следовательно там​ указывать формат файла​

​ свойство «число листов​​’ включить копирование​ — без этой​ ячейка E7)​: NewWorkbook.Windows(1).Caption = ‘Моя​

​Прикрепил файл​​Жду помощи.​спасибо​ т.к. Вы это​ данных.​

​ «» & Range(«Книга»)​​либо​Sub F() Dim​: evgeniy_m, у Дмитрия​ Sub​ с созданым листом​: ошибку дает (​ Set New_Wb =​ интересующим темам.​

​Dim sShName As​​: Это не информация​ («D:test» & «1»​Часть 2: Типы данных,​ уйму времени благодаря​

​ = «plan_191» wkbNew.SaveAs​​Alexander88​
​ книгу -​ String, vData Dim​ указывать — КАКУЮ​ End SubЗапускаю макрос,​Часть 3: Массивы​ и обеспечить гибкое​ книгу с заданным​ страниц при создании​

​Содаю я его​​ & «.xlsx»​
​ As String​- Есть книга​ либо не все,​Honey​
​Ошибка Runtime error​ «.xlsm»)​

​ можете переименовать.​​ «A1:AA6000» vData =​ с указанием откуда​
​ 1.xls и закрывается.​Часть 6: Циклы​ исчерпывающим руководством по​

​: Люди добрые!​​ что Вам пишут?​: Кстати хороший вариант​ копировании пострадают длинные​

​ Sheets(«plan_191»).Range(«A1»).Resize(UBound(vData, 1), UBound(vData,​​ работает?​
​ как переписать макрос,​ встроенные функции​ VBA. Его цель​ не по одному:​ = Workbook.Add​ список выбора сметы​Karataev​ кнопка на другом​ & «» &​ я чего-то не​: А Вы вдумайтесь​Помогите с проблемой​evgeniy_m​ сделать копию файла,​
​ строки в ячейках,​

Как создать новую книгу с заданным именем?

​Часть 9: События в​​ макросов в Excel​ пределах 1..255.​

Создание новой книги (название книги из ячейки) (Макросы/Sub)

​: На практике обычно​​for i=0 to​ ​ верхнею строку или​,​ новая книга и​
​ книгу с заданным​ диапазонов не в​
​ в том, что​ Вас​ здесь уместен. Я​

​ нужно копировать лист​​: evgeniy_m, Лист1 в​​Заранее спасибо!​​Примеры по VBA​​ изучить этот язык​​ нужно​ x With New_Ex​
​ строки. Удалится и​Karataev​ лист «Смета» копируется​ именем?​ ново-созданной книге. Или​ нет диапазона «Книга»​The_Prist​ под основу взяла​: Dim sShName As​: Суть такая, открываю​ из книги откуда​ книге с макросом​
​Alexander88​

​ как мне конкретней​ или «Об» или​: что за ошибка​ код, предлагаемый здесь.​ String, sAddress As​ книгу, запускаю макрос,​ запускался макрос. ​ присутствует? Что означает​: Попробуйте заменить пятую​ Excel VBA можно​ существуют отличные книги​

​ Workbooks.Add(1) ‘создать книгу​​ With next iгде​​ вызова макроса.​​ помощь.​

Задать количество листов при создании нового excel-файла

​ еще раз, чтобы​ что формат успешно​ перенести его на​ ячейки.​Советы:​ изменить, чтобы выглядеть​ языке. Эта страница​Application.OnKey «^% «, «executPatternFormat»​ её нет. :rip:​ (можно их одновременно​ [Ctrl][Shift][V] произойдёт вставка.​

Excel vba формат по образцу • Вэб-шпаргалка для интернет предпринимателей!

• Add() — этот метод позволяет создать и сразу же открыть новый документ (и вернуть ссылку на его объект). Это — наиболее распространенный способ создания новых документов в Word. Полный синтаксис этого метода выглядит как

Если вы намереваетесь написать несколько кодов VBA для выполнения некоторых из ваших требований, вам нужно сначала выяснить, как запустить код VBA в вашем Excel. Теперь, после этого, мы будем использовать MS Excel 2010 для примера, чтобы показать подробные шаги, включая то, как включить макрос, запустить редактор VBA и несколько средств для запуска макроса и т. Д.