Вывод результатов excel в word - Word и Excel - помощь в работе с программами

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

В Microsoft Excel, в основном, используется два типа форматов файлов: «.xlsx» (современный формат) и «.xls» (использовался в версиях Excel 1997-2003). Документы Microsoft Word имеют два основных формата файлов: «.docx» (современный формат) и «.doc» (использовался в версиях Word 1997-2003).

Содержание:

Как таблицу в Экселе перенести в Ворд — 1 способ
Как вставить таблицу Эксель в Ворд — 2 способ
Как вставить Excel в Word — 3 способ
Уменьшение ширины таблицы Excel после вставки в документ Word
Как Excel перевести в Word в программе — 4 способ
Как конвертировать Excel в Word онлайн — 5 способ
Выводы статьи

Между собой форматы «XLSX», «XLS» или «DOCX», «DOC» никак не связаны из-за разной структуры, поэтому напрямую сохранить файл одного формата в другом формате не получится. Нам придется переносить документ Excel в Word вручную или воспользоваться помощью программ или онлайн сервисов для конвертации файлов.

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

Как таблицу в Экселе перенести в Ворд — 1 способ

Сначала рассмотрим самый простой способ, как перенести таблицу из Excel в Word вручную: простым копированием содержимого файла. При этом способе мы скопируем содержимое листа Excel, а затем вставим его в документ Word.

Выполните следующие действия:

Откройте книгу Excel.
На открытом листе Excel выделите диапазон содержимого, который нужно перенести в документ Ворд.
Щелкните правой кнопкой мыши внутри выделенной таблицы, в контекстном меню выберите «Копировать». Другой вариант для копирования: нажмите на клавиши «Ctrl» + «C».

Откройте документ Word.
Щелкните правой кнопкой мыши внутри документа, в контекстном меню в пункте «Параметры вставки:» выберите вариант: «Сохранить исходное форматирование». Другой способ для вставки: кликните мышью в открытом документа Word, а затем нажмите на клавиши «Ctrl» + «V».

При выборе варианта вставки в Word, можно использовать другие способы сохранения таблицы:

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

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

При использовании данного способа мы сможем отредактировать скопированную таблицу в Word. Можно изменить содержимое таблицы: изменить данные, форматирование, ширину и высоту, шрифт и т. д.

Из минусов этого способа можно отметить то, что если данные на листе Excel занимают больше места, чем на листе Word, то вся таблица не поместится по ширине (особенно это станет заметно при представлении «Разметка страницы»).

Как вставить таблицу Эксель в Ворд — 2 способ

В этом способе мы вставим содержимое таблицы Excel в документ Word, в котором отрыта пустая таблица Excel.

Пройдите следующие шаги:

В окне программы MS Word войдите во вкладку «Вставка», в группе «Таблицы» нажмите на стрелку внизу кнопки «Таблица».
В меню «Вставка таблицы» выберите «Таблица Excel».

В окне документа Word откроется пустая таблица Excel.

Откройте книгу MS Excel.
Выделите содержимое таблицы на листе Excel.
В меню «Главная» кликните на значок «Копировать», который находится в группе «Буфер обмена».

В окне программы Word нажмите на кнопку «Вставить».
Таблица Excel открыта в окне программы Word.

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

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

Как вставить Excel в Word — 3 способ

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

Проделайте следующие действия:

В окне программы Excel выделите таблицу.

В меню «Главная», в группе «Буфер обмена» нажмите на треугольничек на кнопке «Копировать».
В открывшемся меню выберите пункт «Копировать как рисунок…».

В окне «Копировать как рисунок» нужно выбрать параметры копирования изображения.

Откройте страницу документа Word в меню «Главная», а затем нажмите на кнопку «Вставить», находящуюся в группе «Буфер обмена».

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

Уменьшение ширины таблицы Excel после вставки в документ Word

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

Выделите вставленную таблицу Excel в документе Word.
Откройте меню «Макет».
В группе «Размер ячейки» нажмите на кнопку «Автоподбор», выберите пункт «Автоподбор по содержимому».

Таблица уменьшилась до требуемого размера и поместилась на странице документа.

Как Excel перевести в Word в программе — 4 способ

Сейчас я расскажу, как вставит таблицу из Excel в Word с помощью программы ABBYY FineReader. Программа ABBYY FineReader предназначена для оптического распознавания символов, приложение переводит изображения документов или PDF файлы в редактируемые форматы.

ABBYY FineReader — платная программа на русском языке от российского разработчика. Компания ABBYY — один из мировых лидеров в своей нише программного обеспечения.

Для конвертирования файла из формата Excel в формат Word, необходимо сделать следующее:

Запустите программу ABBYY FineReader на компьютере.
В окне программы в разделе «Просмотр и редактирование PDF-документов» нажмите на кнопку «Открыть PDF-документ» (да-да, именно так).

В окне Проводника на нижней панели вместо «PDF-файлы» выберите «Все файлы».
Выберите на ПК документ Excel, нажмите на кнопку «Открыть».
Программа выполнит распознавание файла, а затем откроет его содержимое в окне «Новый — ABBYY FineReader».

Нажмите на стрелку кнопки «Сохранить копию документа», а контекстном меню выберите «Документ Microsoft Word».

В окне Проводника присвойте имя новому документу, нажмите на кнопку «Сохранить».
После выполнения конвертирования, на Рабочем столе откроется окно программы Word со вставленной таблицей из книги Excel.

Таблицу после конвертирования в документ Ворд можно редактировать.

Как конвертировать Excel в Word онлайн — 5 способ

Сейчас мы разберемся, как таблицу из Excel перебросить в Word с помощью онлайн сервиса. Мы воспользуемся услугами бесплатного онлайн сервиса CoolUtils.com, на котором можно конвертировать файлы различных форматов между собой.

Преобразование Excel в Word онлайн проходит в следующем порядке:

Войдите на страницу сервиса CoolUtils.com для загрузки на онлайн сервис файла Excel.
Нажмите на кнопку «Browse» для выбора файла на своем компьютере. Эта кнопка станет активной после включения в браузере Adobe Flash Player.
В пункте «Настройте опции», в настройке «Конвертировать в» выберите формат «Doc».
В пункте «Получить файл» нажмите на кнопку «Скачать конвертированный файл».

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

Если нужно, отредактируйте файл, а затем сохраните его в формате Word.

Выводы статьи

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

Похожие публикации:

Как в Excel снять защиту листа не зная пароль — 2 способа
Как сделать рамку для оформления текста в Word
Как сделать нумерацию страниц в Word
Как удалить нумерацию в Word
Как убрать водяные знаки в Word — 2 способа

Источник

МЕНЮ САЙТА

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ

Слияние данных MS Excel и MS Word

Часто данные электронной таблицы требуется использовать при составлении различных документов: отчетов, писем, договоров и т.д. В этом случае удобно использовать слияние данных MS Excel и MS Word.

Процедура слияния состоит из нескольких этапов.

1 этап. Подготовка данных электронной таблицы

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

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

В качестве примера возьмем таблицу с перечнем клиентов фитнес клуба «Экселент»

2 этап. Подготовка шаблона документа Word

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

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

Текст письма будет одинаковым за исключением обращения, номера клубной карты и даты окончания её действия. Эти данные будут импортироваться из таблицы Excel (выделено синим)

Таким образом, на этом этапе в документе Word печатается общий для всех писем текст.

Для более удобной дальнейшей работы при слиянии рекомендуется установить параметр Затенение полей в положение Всегда, чтобы отличать вставленные поля слияния от обычного текста. Если этот параметр включен, поля отображаются на сером фоне. На печать этот фон, естественно, не выводится.

3 этап. Работа Мастера слияния MS Word

Открываем файл письма в MS Word.

Проще всего осуществить слияние данных, следуя указаниям Мастера слияния. В версиях после Word2003 Мастер слияния запускается с помощью кнопки Начать слияние на вкладке Рассылки

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

Ещё раз обращаю внимание, что в бланке письма содержится только общий для всех писем текст, поэтому обращение выглядит как Уважаем!, а номер карты и дата пропущены.

Работа Мастера слияния включает 6 шагов.

1 шаг: выбираем тип документа для рассылки, в нашем случае это Письма

2 шаг: выбираем документ, на основе которого будут создаваться рассылки, им может быть открытый текущий документ, шаблон или существующий документ. При выборе варианта Шаблон или Существующий документ появляется возможность указать нужный файл в Проводнике. Мы выбираем Текущий документ

3 шаг: выбираем получателей. В нашем случае источником данных будет таблица Excel, значит отмечаем вариант Использование списка. Затем с помощью кнопки Обзор… выбираем нужный файл в Проводнике

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

В нашем случае требуется установить фильтр по полю Рассылка по значению «да» (значение «да» появляется в таблице, если срок действия клубной карты истекает в следующем месяце). Фильтр можно установить, щёлкнув мышкой по названию поля и выбрав «да», либо воспользовавшись ссылкой Фильтр в этом же диалоговом окне

4 шаг: вставляем нужные поля в документ. Прежде, чем выбрать один из предложенных Мастером вариантов работы, следует установить курсор в тексте туда, куда Вы хотите вставить данные. Если Вы забыли это сделать, тоже ничего страшного, поля можно вставить в любое место документа, а затем перенести. В нашем случае ставим курсор после слова «Уважаем» перед восклицательным знаком. Так как нам нужны отдельные поля, выбираем Другие элементы…

Раскрывается диалоговое окно для выбора полей слияния.

Выбираем поле Имя, нажимаем Вставить, то же самое для поля Отчество. Закрываем окно Вставка полей слияния и добавляем пробелы между вставленными полями. Если параметр Затенение полей установлен в положение Всегда, то вставленные поля будут отчетливо видны на сером фоне. Устанавливаем курсор после №, снова нажимаем ссылку Другие элементы…, выбираем № клубной карты — Вставить. Аналогично вставляем поле Дата окончания действия карты

Кроме указанных выше полей требуется вставить окончание обращения ый(ая), которое зависит от значения поля Пол. Для этого воспользуемся специальным полем, позволяющим вставлять одно из двух значений в зависимости от данных. Поставим курсор сразу после слова «Уважаем», нажмём кнопку Правила на вкладке Рассылки и выберем вариант IF…THEN…ELSE. В версиях до Word2007 аналогичная кнопка называется Добавить поле Word и находится на панели инструментов Слияние

В раскрывшемся диалоговом окне зададим параметры

После нажатия ОК, получим результат

5 шаг: просматриваем получившиеся письма, используя кнопки навигации. На этом шаге также можно изменить список получателей, применив фильтр или убрав флажки. Так как мы применили фильтр ранее, получателей осталось 3.

Присмотревшись повнимательней к полученному результату, видим, что он не вполне соответствует нашим ожиданиям

Номер клубной карты вместо 001768 отображается как 1768, а дата и вовсе не по-нашему: сначала месяц, а потом день, хотя в таблице Excel всё было в порядке. Такие же неприятности могут возникнуть при импорте ячеек с десятичными числами, денежным форматом и т.д. Вывод неутешительный: при слиянии форматирование чисел и дат не сохраняется. Но выход есть!

Поля документа Word, в которые вставляются наши данные, представляют собой код, который, во-первых, можно посмотреть, а во-вторых, изменить. Чтобы увидеть код поля, например, с номером клубной карты, следует кликнуть по нему правой кнопкой мыши (ПКМ) и выбрать команду Коды/Значения полей.
Получим следующее

{ MERGEFIELD «M__клубной_карты» }
Сам код изменять мы не будем, а вот формат допишем. Принцип добавления формата будет понятен любому, кто хоть немного знаком с созданием пользовательского формата в Excel. Чтобы число всегда состояло из шести цифр, формат должен состоять из шести нулей:
{ MERGEFIELD «M__клубной_карты» # «000000» }. Теперь снова ПКМ по полю — Обновить поле, и видим число в нужном формате.

Аналогично поступаем с датой { MERGEFIELD «дата_окончания_действия_карты» @
«DD.MM.YYYY» }

И получаем окончательный вариант

Подробнее о кодах полей Word можно прочитать в справочной системе Word или на официальном сайте Microsoft

6 шаг: выбираем вариант Изменить часть писем… и просматриваем получившийся документ, при необходимости его можно отредактировать, сохранить как отдельный файл или отправить на печать

*если в файле с базой клиентов при открытии в Excel2003 вместо формул будут отображаться ошибки #ИМЯ!, подключите надстройку Пакет анализа (Сервис — Надстройки)

Категория: Интеграция Excel с другими приложениями | Добавил: Pelena (22.11.2012)

Просмотров: 315615 | Комментарии: 63
| Теги: рассылки, Слияние данных
| Рейтинг: 4.7/15

Всего комментариев: 61	1 2 3 »
Порядок вывода комментариев: Никак не найду в 2003 офисе в указанном месте функцию «Пакет анализа». Может как то по другому называется? 0 Ага, сделал, спасибо! Просто там есть и «надстройка» и «настройки» Еще вот проблема: все вставки получаются одни и те же, т.е. делаю, например, первую вставку с данными «имя», потом делаю вставку с данными «фамилия», при этом, первая вставка из имени автоматом превращается в фамилию. И так постоянно, каждая новая вставка меняет все предыдущие на однотипную — последнюю. Вроде всяко перепробовал, но ничего не выходит. Еще не нашел где активировать «затенение полей» Спасибо большое за статью! Благодаря вам сэкономила несколько часов лишней работы! 0 Хороший вопрос. В этом случае структура поля будет примерно следующей: *{ = { MERGEFIELD «имя_вашего_поля» } 100 # «0%» } Причем вторые фигурные скобки надо будет поставить через Ctrl+F9. Подробнее: выделяем { MERGEFIELD «имя_вашего_поля» }, нажимаем Ctrl+F9, затем внутри внешних фигурных скобок дописываем недостающие символы, не забывая в начале = 12 Prickly (23.12.2014 08:58) [ Материал] Т.е. имеется ввиду в одном и том же документе Word создать 100 шаблонов письма и вставить туда по одной строке из Excel? 0 Здравствуйте. Зачем все просматривать? Если выборку делать не надо, то и просматривать незачем, просто в Мастере жмите Далее 14 Prickly (23.12.2014 09:31) [ Материал] Pelena, дело в том, что я хочу, чтобы все строки по своим письмам сохранились в одном и том же документе, получается 100 писем. Но когда я вставляю у меня вставляется только одно значение, а остальные могу видеть только через кнопки просмотреть следующее или предыдущее, а я хочу чтобы 1 строка сохранилась в первом шаблоне, а остальные снизу в таких же шаблонах. 0 Похоже, Вы работу Мастера не завершили. Должен получиться один документ, в котором 100 листов. Если не разберётесь, задайте вопрос на форуме, приложив пример файла 16 Prickly (23.12.2014 09:45) [ Материал] Может вы поможете? Я дошел до последнего шага в примере. Изменить части писем и Печать. Где завершается работа Мастера? 0 Правильно, сколько страниц в документе получилось? Теперь можете Мастер закрыть, а с документом работать, как обычно, сохранить, редактировать и т.д. Не пойму, что Вас смущает? Если Вы хотите, чтобы на листе было несколько шаблонов, то на первом шаге Мастера выберите Наклейки, а не Письма 18 Prickly** (23.12.2014 11:26) [ Материал] Pelena, Мой шаблон такой, что на одном листе 2 шаблона. Получается мне нужно 50 страниц в документе Word. 1 строка = 1 шаблон. Сделал накрейки, но все равно не получается (((( 0 Не видя файла, больше ничего сказать не могу. Добро пожаловать на форум Получилось ))))))))))))) Урээ!! Елена, а теперь не подскажите, как это можно автоматизировать? со вставкой даты возникли проблемы. вставляется дата в формате число: 41997 применение формата @ «DD.MM.YYYY» не помогло 0 Без файла трудно что либо сказать, задайте вопрос на форуме, приложив файлы-примеры к сожалению на работе политика ИБ не даёт загружать файлы на данный ресурс я почитал help по ссылке на сайте Майкрософт, не получается. вот в фигурных скобках код поля: MERGEFIELD «F21» @ «dd.MM.yyyy» F21 — это ссылка на колонку в таблице Excel, данные в формате «дата». 0 Пришлите кусок файла Excel и документ мне на почту, она есть на Глваной странице сайта в контактах
1-25 26-50 51-61

Добавлять комментарии могут только зарегистрированные пользователи.

[

Регистрация

Вход

]

Источник

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

Как перевести документ Excel в Word

Способ 1

Откройте электронную таблицу, сохраненную в Excel.
Открытие электронной таблицы, сохраненной в Excel
Используйте мышь, чтобы выделить информацию, которую вы хотите передать в текстовый редактор.
С помощью мыши выделите информацию, которую необходимо перенести в документ текстового редактора
Щелкните правой кнопкой мыши выбранную область. В открывшемся диалоговом окне щелкните строку «Копировать».
Щелкните правой кнопкой мыши выбранную область, выберите «Копировать»
Откройте редактор MS Word.
Откройте программу MS Word
Щелкните правой кнопкой мыши пустой лист.
Щелкните правой кнопкой мыши пустой лист
В открывшемся интерфейсе найдите строку «Параметры вставки».
В появившемся интерфейсе находим строку «Параметры вставки»
Наведите указатель мыши на один из значков в разделе «Параметры клея». Выбирайте лучший вариант среди предложенных.
Наведите курсор на один из значков в разделе «Параметры вставки» и выберите лучший вариант

Значки «Использовать целевые стили» и «Связать и использовать целевые стили» позволяют пользователю просматривать информацию в текстовом редакторе, как она была представлена в Excel.

Значок «Изображение» в Word вставляет таблицы в качестве иллюстраций. Однако возможность изменять содержимое ячеек в этом изображении уже будет потеряна.

Примечание! Чтобы быстро вставить таблицу Excel в документ Word, вы можете использовать клавиши «Shift + Insert» и «Ctrl + V».

«Shift + Insert»;
Чтобы быстро вставить документ в Word, нажмите комбинацию клавиш «Shift + Insert»
«Ctrl + V».
Чтобы быстро вставить документ в Word, нажмите комбинацию клавиш «Ctrl + V»

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

Способ 2

Откройте редактор MS Word.
Откройте программу MS Word
На панели инструментов щелкните вкладку «Вставка».
На панели инструментов нажмите вкладку «Вставка»
В группе «Таблицы» щелкните одноименный значок. Откроется контекстное меню этой группы.
В группе «Таблицы» щелкните одноименный значок
В выделенном окне найдите строку «Таблица Excel». Нажмите здесь.
В выделенном окне выберите строку «Таблица Excel»
Откройте документ в MS Excel.
Открытие электронной таблицы, сохраненной в Excel
Выделите мышью данные, которые хотите перенести в документ Word.
С помощью мыши выделите информацию, которую необходимо перенести в документ текстового редактора
Щелкните правой кнопкой мыши выбранную таблицу. Скопируйте содержимое ячеек, щелкнув строку «Копировать» в »диалоговом окне».
Щелкните правой кнопкой мыши выбранную область, выберите «Копировать»
Запомните номер ячейки, которая находится в верхнем левом углу таблицы.
Запомните номер первой ячейки в таблице
На панели задач щелкните открытый документ в MS Word.
На панели задач нажмите на документ, открытый в MS Word
Щелкните правой кнопкой мыши ячейку, в которую вы хотите вставить содержимое электронной таблицы Excel.
Щелкните правой кнопкой мыши ячейку, в которую вы хотите вставить содержимое электронной таблицы Excel
В открывшемся диалоговом окне щелкните значок «Вставить».
Нажмите «Вставить»
Отредактируйте таблицу и ее содержимое с помощью инструментов форматирования текстового редактора.
Таблица Excel в документе Word редактируется с использованием форматирования текстового редактора

Способ 3

Откройте документ в MS Excel.
Открытие электронной таблицы, сохраненной в Excel
Запомните количество столбцов и строк в таблице, которое необходимо перенести в документ редактора Word.
Запоминаем количество столбцов и строк таблицы, которые необходимо перенести в документ Word
Откройте редактор MS Word.
Откройте программу MS Word
На панели инструментов найдите вкладку Вставка. Нажмите здесь.
На панели инструментов нажмите вкладку «Вставка»
Щелкните значок «Таблица», расположенный в одноименной группе, вызывая при этом дополнительное меню.
В группе «Таблицы» щелкните одноименный значок
В развернутом дополнительном списке щелкните строку «Вставить таблицу».
В открывшемся диалоге нажмите на строку «Вставить таблицу»
В новом открытом интерфейсе укажите количество строк и столбцов. После настройки параметров нажмите «ОК».
В открывшемся новом интерфейсе укажите количество строк и столбцов, нажмите «ОК»
На панели задач щелкните открытый документ в MS Excel.
На панели задач щелкните документ, открытый в MS Excel
Выберите таблицу, которую хотите перенести в документ редактора Word.
Выберите таблицу для переноса в документ Word
Щелкните выделенные ячейки правой кнопкой мыши. В появившемся диалоговом окне щелкните строку «Копировать».
Щелкните правой кнопкой мыши выбранную область, выберите «Копировать»
Вернитесь к открытому документу текстового редактора.
Вернуться к открытому документу в текстовом редакторе
Выделите мышкой таблицу, созданную в документе MS Word.
Выделите мышью таблицу, созданную в документе MS Word
Щелкните устройство правой кнопкой мыши в любой ячейке.
Щелкните правой кнопкой мыши любую ячейку
В открытом интерфейсе щелкните значок «Заменить содержимое ячейки».
Щелкните значок «Заменить содержимое ячейки»

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

Вы можете редактировать таблицу с помощью инструментов форматирования MS Word

Примечание! Вышеупомянутые методы не позволяют вставлять таблицы Excel вместе с формулами.

Видео — Как перенести таблицу из Excel в Word

Способ 4

Откройте электронную таблицу в MS Excel.
Открытие электронной таблицы, сохраненной в Excel
Выделите стол мышью.
Выделите стол мышкой
Щелкните устройство в таблице правой кнопкой мыши. В диалоговом окне щелкните строку «Копировать».
Щелкните правой кнопкой мыши выбранную область, выберите «Копировать»
Откройте текстовый редактор.
Откройте программу MS Word
Зайдите и щелкните вкладку «Главная».
Перейдите на вкладку «Главная»
В разделе «Буфер обмена» найдите значок «Вставить».
В группе «Буфер обмена» находим значок «Вставить»
Щелкните стрелку под значком «Вставить».
Щелкните стрелку, расположенную под кнопкой «Вставить»
Найдите строку «Специальная вставка» и щелкните по ней.
В открывшемся окне выберите строку «Специальная вставка», нажмите на нее
В появившемся окне выберите фразу «Лист (объект) Microsoft Excel)».
Щелкните строку «Лист (объект) Microsoft Excel)»
Подтвердите свои действия, нажав кнопку «ОК».
Нажмите кнопку «ОК»

Примечание! В интерфейсе специальной вставки слева есть опции «Вставить» и «Связать».

для представления таблицы в MS Word в виде стандартной документации установите флажок рядом с фразой «Вставить»;
Нажмите на пункт «Вставить»
чтобы изменить данные, доступные в текстовом редакторе, выберите строку «Ссылка».
Ставим галочку на пункт «Подключить»

Таким образом, данные Word будут связаны с информацией, содержащейся в ячейках документа Excel.

При необходимости обновление данных возможно через главное меню в редакторе Word. Это требует:

Щелкните правой кнопкой мыши таблицу в MS Word.
Щелкните правой кнопкой мыши таблицу в MS Word
Найдите в появившемся диалоговом окне строку «Обновить ссылку» и щелкните по ней.
Найдите в появившемся диалоговом окне строку «Обновить ссылку» и щелкните по ней

В результате, если данные были изменены в документе Excel, такие же изменения появятся на листе Word.

Также узнайте несколько эффективных способов из новой статьи — «Как перевести Excel в Word».

Видео — Связывание данных таблиц Excel и документов Word

Источник

Содержание

Вариант 1: Microsoft Office 2007 – 2021
- Шаг 1: Подготовка данных таблицы Microsoft Excel
- Шаг 2: Подготовка шаблона документа Microsoft Word
- Шаг 3: Добавление поля слияния на страницу
- Шаг 4: Проверка результатов
- Шаг 5: Завершение слияния
Вариант 2: Microsoft Office 2003
Вопросы и ответы

Вариант 1: Microsoft Office 2007 – 2021

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

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

Подробнее: Как перенести таблицу из Microsoft Excel в Word со связью

Важно! Все рассмотренные далее действия будут выполняться на примере программного обеспечения Microsoft Office 2016. По этой причине могут наблюдаться некоторые отличия в интерфейсе в сравнении с другими версиями текстового редактора. Но руководство все равно является актуальными, а серьезные отличия будут помечаться.

Шаг 1: Подготовка данных таблицы Microsoft Excel

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

Подробнее: Как разъединить ячейки в Microsoft Excel

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

Подробнее: Как сделать заголовок столбцов в Microsoft Excel

Если база данных с исходными значениями создается в Microsoft Excel с нуля, рекомендуем воспользоваться «Умной таблицей». Это позволит облегчить соблюдение всех вышеописанных требований. На нашем сайте есть статья, в которой подробно рассматривается использование этой функции табличного редактора.

Подробнее: Как создать умную таблицу в Microsoft Excel

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

Шаг 2: Подготовка шаблона документа Microsoft Word

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

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

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

Читайте также:
Как убрать красное / синее / зеленое подчеркивание текста в Microsoft Word
Как пропустить все ошибки в документе Microsoft Word

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

Откройте меню «Файл», кликнув по одноименной вкладке в Microsoft Word 2013 – 2021 или нажав по иконке в верхнем левом углу в Microsoft Word 2007 – 2010.

На боковой панели слева щелкните по пункту «Параметры», чтобы открыть окно настроек программы.

Воспользовавшись навигационной панелью в левой части интерфейса, перейдите в раздел «Дополнительно» и в блоке «Показать содержимое документа» из выпадающего меню «Затенение полей» выберите значение «Всегда». После этого нажмите по кнопке «ОК», чтобы сохранить изменения.

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

Шаг 3: Добавление поля слияния на страницу

Все инструменты для выполнения слияния находятся на вкладке «Рассылки». На данном этапе выполнения поставленной задачи важны только два блока инструментов — «Начало слияния» и «Составление документа и вставка полей».

Процедура слияния подразумевает добавление на страницу документа полей с соответствующей информацией, которая будет браться из заранее подготовленной таблицы Microsoft Excel. Для этого необходимо сделать следующее:

Раскройте выпадающий список «Начать слияние», который находится в блоке «Начало слияния». Затем кликните в нем по предпочитаемому шаблону. В качестве примера будет выбран пункт «Письма», но работа с другими практически ничем не отличается.

Примечание! Если в выпадающем меню выбрать «Конверты» или «Наклейки», появится дополнительное диалоговое окно, в котором потребуется задать начальные параметры. Каждое действие сопровождается текстовой подсказкой, поэтому проблем возникнуть не должно. В остальном слияние выполняется описанным ниже способом.

Раскройте выпадающее меню «Выбрать получателей», которое расположено в том же блоке чуть ниже. В нем нажмите по опции «Использовать существующий список». Это позволит определить в качестве базы данных с исходными значениями заранее созданную таблицу Microsoft Excel.

В появившемся окне файлового менеджера перейдите в директорию, где находится таблица с данными, выделите ее щелчком левой кнопки мыши и нажмите «Открыть».

Если файл Excel содержит несколько листов с информацией, выберите необходимый и кликните по кнопке «ОК». Обратите также внимание на пункт «Первая строка данных содержит заголовки столбцов», если этот параметр соответствует действительности, установите отметку напротив него.

Обратите внимание! Если базу данных с исходными значениями необходимо будет сменить в будущем, воспользуйтесь опцией в блоке «Начало слияния», которая называется «Изменить список получателей». При ее вызове откроется файловый менеджер, в котором потребуется выбрать новую таблицу Excel.

Установите курсор в то место документа, куда необходимо вставить информацию, взятую из таблицы. Для этого раскройте в блоке «Составление документа и вставка полей» выпадающий список меню «Вставить поле слияния» и выберите нужный столбец данных. В качестве примера будет добавлено поле «Номер».

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

Примечание! Оставшиеся инструменты в блоке «Составление документа и вставка полей» в практическом применении не нуждаются, они служат для автоматизации некоторых процессов при работе с большим объемом данных. Например, с помощью инструмента «Правила» можно задать некоторые условия вставки определенных полей, а вызвав диалоговое окно «Подбор полей» — заранее настроить дополнительные поля, чтобы быстро вставлять их посредством других опций.

Шаг 4: Проверка результатов

После добавления полей слияния на страницу документа информация из таблицы Excel отображаться в них не будет, из-за чего не получится визуально определить корректность подстановочных данных. Для этого необходимо воспользоваться другим инструментом вкладки «Рассылки», который так и называется — «Просмотр результатов».

Первостепенно необходимо включить отображение данных в полях. Для этого кликните по кнопке «Просмотреть результаты». На странице документа сразу отобразится информация в соответствующих местах. В правой части блока инструментов «Просмотр результатов» можно воспользоваться стрелками, чтобы ознакомиться с каждым образцом будущих документов. Позволяется даже вручную вводить номер строки Excel, из которой были взяты данные.

Если необходимо проверить заполнение полей определенного получателя, следует воспользоваться диалоговым окном «Найти получателя». Кликните по нему и в появившемся меню введите в поле «Найти» информацию из любого столбца таблицы Excel. Затем определите область поиска. Чтобы повысить точность при обработке большого объема данных, установите переключатель в положение «по полю» и из выпадающего списка выберите непосредственно нужное поле. Затем кликните по кнопке «Найти далее».

Оставшийся инструмент в блоке «Просмотр результатов» необходим для поиска ошибок, которые могут возникнуть из-за наличия объединенных ячеек в таблице Excel или несоответствия форматирования некоторых полей. Текстовый процессор Word автоматически вычисляет все ошибки и составляет соответствующий отчет. Для этого кликните по кнопке «Поиск ошибок» и в появившемся диалоговом окне определите тип проверки, после чего нажмите по кнопке «ОК».

Шаг 5: Завершение слияния

После добавления всех необходимых полей на страницу документа и проверки корректности их отображения можно переходить непосредственно к массовой рассылке или печати. Все необходимые для этого инструменты расположены на вкладке «Рассылки» в блоке «Завершение».

Открыв выпадающий список пункта «Найти и объединить», можно увидеть три опции:

«Изменить отдельные документы». Позволяет выбрать один документ для редактирования и дальнейшего применения (печати или рассылки). Для этого необходимо будет в блоке «Просмотр результатов» определить нужного получателя, затем установить отметку на пункте «текущую запись» и кликнуть по кнопке «ОК». Если выбрать несколько документов или все, они сольются воедино.

«Печать документов». Открывает подобное диалоговое окно, в котором необходимо выбрать количество записей и нажать по кнопке «ОК». В дальнейшем откроется стандартное окно для печати документов.

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

Подробнее: Как настроить печать документов в Microsoft Word

«Отправить электронные сообщения». Предоставляет диалоговое окно для настройки рассылки. Для корректной работы требуется, чтобы в базе данных Excel был отдельный столбец с перечнем адресов электронной почты каждого получателя, иначе этой функцией воспользоваться не получится.

Вариант 2: Microsoft Office 2003

В отличие от Microsoft Word 2007 – 2021 в версии 2003 года все ранее описанные действия выполняются иначе. Обусловлено это кардинально отличающимся интерфейсом программы. Но стоит отметить, что этапы выполнения поставленной задачи остаются неизменными. По этой причине ниже будет пропущена часть о подготовке базы данных в таблице Microsoft Excel и создании шаблона в текстовом редакторе. Также описание каждой функции будет кратким, так как полное уже приводилось выше в статье.

Примечание! Microsoft Word 2003 не имеет совместимости с новейшим форматом XSLX, поэтому, чтобы выполнить слияние, базу данных в Excel необходимо сохранять в формате XLS.

В рассматриваемой версии приложения нет привычной панели инструментов, поделенной на отдельные блоки, из-за чего пользоваться функциями слияния неопытному пользователю довольно трудно. По этой причине ниже все действия будут выполняться посредством специального Мастера.

Раскройте меню «Сервис», находящийся в верхней части интерфейса окна, и наведите курсор на пункт «Письма и рассылки», затем кликните по опции «Слияние».

В появившейся панели Мастера, расположенной в правой части окна, выберите из списка тип документа и щелкните «Далее. Открытие документа». Как и в примере ранее, сейчас будет выбран шаблон «Письма».

Определите документ, на основе которого будет осуществляться рассылка. Если шаблон создавался в текущем, выберите соответствующий пункт и нажмите «Далее. Выбор типа документа».

Возьмите в качестве исходного списка получателей заранее созданную таблицу Microsoft Excel. Для этого установите курсор в положение «Использование списка» и кликните по ссылке «Обзор», находящейся чуть ниже.

В новом окне файлового менеджера перейдите в директорию с нужным документом, выделите его и щелкните по кнопке «Открыть».

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

Поставьте отметки напротив тех строк списка, информация из которых необходима для создания слияния. В нижней части этого диалогового окна есть кнопки с дополнительными функциями. Посредством них можно сразу снять или добавить выделения на все пункты, выполнить поиск или замену. После завершения этой процедуры нажмите «ОК».

Вернувшись в главное окно текстового редактора, кликните по пункту «Далее. Создание писем», расположенном на панели мастера.

Установите курсор на странице документа в то место, куда будет вставлено поле, затем щелкните по строке «Другие элементы».

В новом окне поставьте переключатель в положение «Поля базы данных», выделите в списке нужное поле и кликните по кнопке «Вставить». Проследите за тем, чтобы на странице документа появилась соответствующая надпись.

Закройте окно, установите курсор в новое положение, а затем снова кликните по пункту «Другие элементы» и вставьте новое поле. Таким образом добавьте все необходимые элементы на страницу. После этого щелкните «Далее. Просмотр писем».

Воспользовавшись предложенными инструментами на панели Мастера, просмотрите все экземпляры документов и выявите неточности, впоследствии исправив их. Также с помощью кнопки «Исключить получателя» можно убрать лишние дубликаты. После завершения этой процедуры кликните по пункту «Далее. Завершение слияния».

Завершите слияние, нажав по строке «Печать». После этого откроется новое диалоговое окно, в котором останется выбрать количество печатаемых экземпляров. Также можно отдельно изменить часть писем, воспользовавшись соответствующей опцией на панели Мастера.

Обратите внимание! В зависимости от выбранного типа создаваемого слияния, который определялся на втором шаге вышепредставленной инструкции, в завершающей части будут предложены разные действия. В данном случае это печать документа, но если было выбрано «Электронное сообщение», предлагалось бы ввести контактную информацию получателей.

Источник

0 / 0 / 0

Регистрация: 05.10.2012

Сообщений: 3

05.10.2012, 18:42. Показов 72828. Ответов 64

Здравствуйте, ув. форумчане. Помогите начинающему. У меня есть экселевский файл с реквизитами клиентов. могу ли я сделать, чтобы по нажатию какой-нибудь кнопки(или по запуску макроса) создавался договор по определенному контрагенту из шаблона word?

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	05.10.2012, 18:42
64

5468 / 1148 / 50

Регистрация: 15.09.2012

Сообщений: 3,514

07.11.2012, 20:35

evavdeev, у вас дело в том (сам только что узнал), что при вставке текста в закладку, закладка удаляется.

Есть 2 вида закладок:

в виде вертикальной черты;
в виде квадратных скобок.

Закладка в виде вертикальной черты получается, если при вставке закладки, нет выделения текста.
Закладка в виде двух квадратных скобок получается, если при вставке закладки выделелен текст.

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

Т.е. вывод какой? Вам надо сделать одного вида все закладки в шаблоне. Если закладки будут в виде вертикальной черты, то в коде VBA надо добавить команды по удалению закладок. Если закладки будут в виде квадратных скобок, то команды в коде VBA по удалению закладок не нужны.

evavdeev

1 / 1 / 0

Регистрация: 06.11.2012

Сообщений: 6

08.11.2012, 09:08

Разобрался… вроде все перед глазами, а сам не заметил…

Visual Basic

1
2
3

    oDoc.Bookmarks(sBookmark_address).Delete
    oDoc.Bookmarks(sBookmark_idn).Delete
    oDoc.Bookmarks(sBookmark_sn).Delete

Все работает. Большое спасибо за помощь!

Добавлено через 4 минуты

Сообщение от Скрипт

Есть 2 вида закладок

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

159 / 0 / 1

Регистрация: 18.06.2013

Сообщений: 2

18.06.2013, 17:33

Здравствуйте! Решилась вот к Вам обратиться с мольбой о помощи. я лишь начинаю программировать. В данный момент занимаюсь разработкой информационной системы для оценки рейтинга на VBA в Excel. По началу проблем не было,но сейчас возникла проблема с записью результатов с excel в документ word. впервые с этим столкнулась. Наткнулась на этот форум. скачала — Задачи-VBA-57.zip, попыталась разобраться. вроде работает,а под свою прогу не могу подстроить( меня бы немного направить в нужное русло,а там сама все сделаю.

в папке ИС нужно открыть anketaа.xls. в редакторе VBA у меня много форм,не обращайте внимания,там остальное будет. пока используем первые три формы,которые во время запуска макроса переходят одна в другую. третья переходит в 29-ю, в ней нажимаем на кнопку Анализировать и попадаем на 30-ю форму, после нажатия на нее прога считает то,что мне нужно. до этого момента все нормально. дальше нужно вставить в документ Шаблон.doc в нужные места соответствующие значения,либо по этому шаблону новый документ создать и уже туда вставить значения нужные.
Вообщем,запнулась(
прошу не ругать за простоту кода)))

Вложения

ИС.rar (49.1 Кб, 123 просмотров)

159 / 0 / 1

Регистрация: 18.06.2013

Сообщений: 2

19.06.2013, 09:04

Сообщение было отмечено как решение

Решение

отвечать не надо. сама сделала)

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

19.06.2013, 09:47

Ошибочно

ihaustov
21.06.2013, 17:05	26
Подскажите, пожалуйста, как сделать несколько документов на основе нескольких шаблонов из одной таблицы Excel по принципу, описанному выше?

Hugoman

0 / 0 / 0

Регистрация: 05.12.2011

Сообщений: 8

09.08.2013, 14:04

Добрый день дорогие форумчане!
Создаю макрос на экспорт данных из Exel (определенная таблица) в определенный шаблон Word (в область закладки) и как раз нашел похожий макрос написананный форумчанином «Скрипт» и взял его за основу. Но не смог подогнать под свои условия. Помогите, пожалуйста дорогие форумчане подкорректировать текст макроса. Не выдает желанного результата.
Вот что получилось:

PureBasic

Sub Экспорт ()
               Сonst a as String = "D:ДСПшаблоны(таблица)клиентШаблонКлиента.doc"
               Сonst a as String = "D:ДСПшаблоны(таблица)клиентклиент.doc"
               Const sBook_1 As String="закладка_1"
               Dim oDocument as Word.Application
               FileCopy Source:= a, Destination:=b
               Set oDocument = Documents.Open (filename:=b)
               oDocument.Bookmarks.Item (sBook_1).Range.Text = Range ("A1:F44") -   [I][этой строкой хотел вставить на место закладки таблицу из Exel [/I]
               Enn Sub

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

09.08.2013, 15:18

Visual Basic

1 2	Сonst a Сonst a

Hugoman

0 / 0 / 0

Регистрация: 05.12.2011

Сообщений: 8

09.08.2013, 15:28

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

Visual Basic

1 2	Сonst a Сonst a

Спасибо огромное за то что заметили, но это я ошибся когда переписывал код макроса на форум.
При запуске макроса программа жалуется на строку
«oDocument.Bookmarks.Item (sBook_1).Range.Text = Range («A1:F44″)», Пишет что «Method or data member not found» и подчеркивает «Bookmarks»

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

09.08.2013, 17:24

Я думаю ошибка тут:

Visual Basic

1	Set oDocument = Documents.Open (filename:=b)

вот проверенный пример (код в Экселе):

Visual Basic

Sub Макрос1()
 
Dim sOM As String, sDocNum As String
Dim WordApp As Object
 
    sOM = "G:. ШаблоныПостановление.doc"
    xData = Range("A1").Value
    xFIO = Range("A2").Value
    xS = Range("A3").Value
    xAdr = Range("A4").Value
    xVidIs = Range("A5").Value
    
    'sOM = Range("B9").Value
    'sDocNum = Range("B11").Value
    On Error Resume Next
    Set WordApp = GetObject(, "word.application")
    If WordApp Is Nothing Then
        Set WordApp = CreateObject("word.application")
    End If
    On Error GoTo 0
    With WordApp
        .Visible = True
        .Documents.Open Filename:=sOM
    End With
    WordApp.ActiveDocument.Bookmarks("vData").Range.Text = xData
    WordApp.ActiveDocument.Bookmarks("vFIO").Range.Text = xFIO
    WordApp.ActiveDocument.Bookmarks("vS").Range.Text = xS
    WordApp.ActiveDocument.Bookmarks("vAdr").Range.Text = xAdr
    WordApp.ActiveDocument.Bookmarks("vVidIs").Range.Text = xVidIs
    Set WordApp = Nothing
 
End Sub

Код берет из Excel данные ячеек и вставляет их в закладки в Word.

korvindeson

1261 / 147 / 32

Регистрация: 11.02.2011

Сообщений: 418

09.08.2013, 18:05

Сообщение было отмечено как решение

Решение

Ещё вариант через HTML. Вот пример если заявления клипать

Visual Basic

'начинаем запись в файл, создаём в той же папке, название ячейка (1,1)
Open ThisWorkbook.Path & "" & Cells(1, 1).Value & ".doc" For Output As #1
            
'заголовок html
            Print #1, "<HTML>"
            Print #1, "<meta http-equiv=Content-Type content=""text/html; charset=windows-1251"">"
            Print #1, "<style type='text/css'>"
            Print #1, "p{font-family:times new roman;font-size:14pt;}"
            Print #1, "h2{font-family:times new roman;font-size:14pt;}"
            Print #1, "c{font-family:times new roman;font-size:14pt;color:orange;}"
            Print #1, "</style>"
            Print #1, "<body>"
 
                        Print #1, "<P ALIGN=RIGHT>"; "В какую нибудь организацию"
                        Print #1, "<br>"; "даже с очень длинным названием"
                        Print #1, "<br>"; "от "; Cells(2, 1); "."                  'В ячейке (2,1) предположительно от кого заявление
                        Print #1, "<br>";
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"; "<H2 align=center>"; "Заявление"; "</h2>"
                        Print #1, "<br>"; "<p>"
                        Print #1, "<br>"; "Заявляю"; "<p>"
                        Print #1, "<br>"; "<p style=color:white>"; Chr(12); "-"; "</p>"              'Переход на новую страницу
 
'закрываем хэдэр
            Print #1, "</body>"
            Print #1, "</HTML>"
 
'закрываем файл
            Close #1

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

Visual Basic

Sub ProtToWord(ImyaFayla)
 
Set wa = CreateObject("Word.Application")
wa.Visible = False
 
Set wd = wa.Documents.Open(ImyaFayla)
 
wd.SaveAs2 Filename:=Left(ImyaFayla, Len(ImyaFayla) - 4) & "11111.doc", FileFormat:= _
                    wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
                    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
                    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                    SaveAsAOCELetter:=False, CompatibilityMode:=0
wd.Close
wa.Quit
If Dir(PathName:=ImyaFayla) <> "" Then
    Kill (ImyaFayla)
End If
 
СтарыйПутьКФайлу = Left(ImyaFayla, Len(ImyaFayla) - 4) & "11111.doc"
НовыйПутьКФайлу = ImyaFayla
Name СтарыйПутьКФайлу As НовыйПутьКФайлу

Если брать первый пример, то можно пользовать как

Visual Basic

1	Call ProtToWord(ThisWorkbook.Path & "" & Cells(1, 1).Value & ".doc")

Если с ненужным лезу, ногами не бить

1 / 1 / 0

Регистрация: 21.10.2012

Сообщений: 58

12.08.2013, 14:24

А что означают знаки доллара и процента в Вашем коде программы?

Модератор

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,185

Записей в блоге: 13

12.08.2013, 14:40

$ — значит переменная имеет тип String; % — соотв. Integer

Hugoman

0 / 0 / 0

Регистрация: 05.12.2011

Сообщений: 8

12.08.2013, 15:20

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

Ещё вариант через HTML. Вот пример если заявления клипать

Visual Basic

'начинаем запись в файл, создаём в той же папке, название ячейка (1,1)
Open ThisWorkbook.Path & "" & Cells(1, 1).Value & ".doc" For Output As #1
            
'заголовок html
            Print #1, "<HTML>"
            Print #1, "<meta http-equiv=Content-Type content=""text/html; charset=windows-1251"">"
            Print #1, "<style type='text/css'>"
            Print #1, "p{font-family:times new roman;font-size:14pt;}"
            Print #1, "h2{font-family:times new roman;font-size:14pt;}"
            Print #1, "c{font-family:times new roman;font-size:14pt;color:orange;}"
            Print #1, "</style>"
            Print #1, "<body>"
 
                        Print #1, "<P ALIGN=RIGHT>"; "В какую нибудь организацию"
                        Print #1, "<br>"; "даже с очень длинным названием"
                        Print #1, "<br>"; "от "; Cells(2, 1); "."                  'В ячейке (2,1) предположительно от кого заявление
                        Print #1, "<br>";
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"
                        Print #1, "<br>"; "<H2 align=center>"; "Заявление"; "</h2>"
                        Print #1, "<br>"; "<p>"
                        Print #1, "<br>"; "Заявляю"; "<p>"
                        Print #1, "<br>"; "<p style=color:white>"; Chr(12); "-"; "</p>"              'Переход на новую страницу
 
'закрываем хэдэр
            Print #1, "</body>"
            Print #1, "</HTML>"
 
'закрываем файл
            Close #1

Visual Basic

Sub ProtToWord(ImyaFayla)
 
Set wa = CreateObject("Word.Application")
wa.Visible = False
 
Set wd = wa.Documents.Open(ImyaFayla)
 
wd.SaveAs2 Filename:=Left(ImyaFayla, Len(ImyaFayla) - 4) & "11111.doc", FileFormat:= _
                    wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
                    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
                    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                    SaveAsAOCELetter:=False, CompatibilityMode:=0
wd.Close
wa.Quit
If Dir(PathName:=ImyaFayla) <> "" Then
    Kill (ImyaFayla)
End If
 
СтарыйПутьКФайлу = Left(ImyaFayla, Len(ImyaFayla) - 4) & "11111.doc"
НовыйПутьКФайлу = ImyaFayla
Name СтарыйПутьКФайлу As НовыйПутьКФайлу

Если брать первый пример, то можно пользовать как

Visual Basic

1	Call ProtToWord(ThisWorkbook.Path & "" & Cells(1, 1).Value & ".doc")

Если с ненужным лезу, ногами не бить

А второй вариант, это я как понимаю на экспорт из exel в ворд? Если так, то можно в ваш макрос внедрить, экспорт из Exel определенного сегмента и вставка в определенное место вордовского документа!

1261 / 147 / 32

Регистрация: 11.02.2011

Сообщений: 418

12.08.2013, 17:02

Ниже, это не второй вариант. Просто открываем вордом сделаный вверху файл и пересохраняем вордом, чтоб он сохранялся по принципу doc а не html документов. Не обязательная штука, просто иначе будут папки появляться при изменении/сохранении документа

0 / 0 / 0

Регистрация: 21.08.2013

Сообщений: 5

21.08.2013, 12:22

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

Вот доработанный код. Чтобы выбрать строки для генерации, нужно дважды щелкнуть мышью в пятой колонке нужной строки (см.) А потом — как и раньше — «Пуск»

Здравствуйте, Борис (Catstail). Воспользовавшись и немного видоизменив под свои нужды макрос в Вашем файле «Задачи-VBA-57a.xls» — получил в итоге рабочую форму для автозаполнения договоров в MS Word 2003, НО..столкнулся с непреодолимым препятствием в виде полностью разрушенного (включая таблицы) формата итогового документа. Плюс, не имея достаточных навыков работы в VBA, не могу сообразить, как реализовать в одном макросе ещё и заполнение табличных ячеек в вордовском документе данными из соответствующих ячеек файла эксель, поскольку Ваш макрос разработан для формирования договоров из данных, расположенных в ОДНУ СТРОКУ, а мне необходимо, помимо текста договора, автозаполнение таблицы, т.е. нескольких строк (данные столбцов: Q, R, S, T нужно как-то зациклить, допустим, до 26-й строки и поместить в таблицу ворд). Не могли бы Вы помочь мне разобраться с этой задачей. Файлы экселевского исходника и вордовского шаблона — прилагаю. Заранее благодарен.

Модератор

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,185

Записей в блоге: 13

21.08.2013, 17:54

Nosce te ipsum, почему рушится структура документа? Этого быть не должно. Вашу посылку скачал, но не понял, где там мой код. Пишите мне в почту — будем общаться.

0 / 0 / 0

Регистрация: 21.08.2013

Сообщений: 5

21.08.2013, 21:06

Catstail,

Добавлено через 4 минуты

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

Ещё раз, здравствуйте, Борис.
Спасибо за оперативный ответ.
По приведённой ниже ссылке в одном из Ваших постов прикреплён файл Задачи-VBA-57a.zip, который и был взят мной за основу (если сравнивать коды — видно, мой эдентичен Вашему):
Вставка текста из Excel в Word
С уважением,
Nosce te ipsum

p.s. Написал Вам в Скайп, поскольку почту не нашёл.

Добавлено через 7 минут
Да, кстати, Ваш код нужно смотреть на 4-м листе (Исходные данные из реквизитов)
С уважением,
Nosce te ipsum

Модератор

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,185

Записей в блоге: 13

21.08.2013, 21:09

Хорошо, завтра я все детально рассмотрю.

Модератор

11342 / 4661 / 748

Регистрация: 07.08.2010

Сообщений: 13,505

Записей в блоге: 4

21.08.2013, 21:10

не тянет wdDoc.Range.Text = Replace$(wdDoc.Range.Text,

Источник

Как таблицу в Экселе перенести в Ворд — 1 способ

Как вставить таблицу Эксель в Ворд — 2 способ

Как вставить Excel в Word — 3 способ

Уменьшение ширины таблицы Excel после вставки в документ Word

Как Excel перевести в Word в программе — 4 способ

Как конвертировать Excel в Word онлайн — 5 способ

Выводы статьи

Способ 1

Способ 2

Способ 3

Видео — Как перенести таблицу из Excel в Word

Способ 4

Видео — Связывание данных таблиц Excel и документов Word

Вариант 1: Microsoft Office 2007 – 2021

Шаг 1: Подготовка данных таблицы Microsoft Excel

Шаг 2: Подготовка шаблона документа Microsoft Word

Шаг 3: Добавление поля слияния на страницу

Шаг 4: Проверка результатов

Шаг 5: Завершение слияния

Вариант 2: Microsoft Office 2003

Решение

Решение

А вот еще интересные статьи: