Как открыть ворд через эксель

Обновлено: 06.07.2024

Иногда бывает необходимо перенести что-то из Excel в другое приложение. Я возьму для примера Word. Например скопировать ячейки и вставить. Обычно мы это так и делаем - скопировали в Excel, открыли Word - вставили. Но сделать это при помощи кода чуть сложнее, хотя если разобраться никаких сложностей нет. Ниже приведен пример кода, который открывает Word, открывает в нем определенный документ, копирует данные из Excel и вставляет в открытый документ Word.

Sub OpenWord() Dim objWrdApp As Object, objWrdDoc As Object 'создаем новое приложение Word Set objWrdApp = CreateObject("Word.Application") 'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме 'objWrdApp.Visible = True 'открываем документ Word - документ "Doc1.doc" должен существовать Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc") 'Копируем из Excel диапазон "A1:A10" Range("A1:A10").Copy 'вставляем скопированные ячейки в Word - в начала документа objWrdDoc.Range(0).Paste 'закрываем документ Word с сохранением objWrdDoc.Close True ' False - без сохранения 'закрываем приложение Word - обязательно! objWrdApp.Quit 'очищаем переменные Word - обязательно! Set objWrdDoc = Nothing: Set objWrdApp = Nothing End Sub

Tips_Macro_OpenWord.xls (49,5 KiB, 5 645 скачиваний)

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

В принципе, активировать или вызвать(если закрыто) другое приложение Офиса можно одной строкой:

Sub Open_AnotherApp() Application.ActivateMicrosoftApp xlMicrosoftWord End Sub

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

По сути, методами CreateObject и GetObject можно обратиться к любому стороннему приложению(например Internet Explorer). Куда важнее при обращении к этим объектам знать объектную модель того приложения, к которому обращаетесь. Чтобы увидеть свойства и методы объектной модели приложения, можно в редакторе VBA подключить необходимую библиотеку, объявить переменную, назначив ей тип приложения. Покажу на примере того же Word-а.
Для начала открываем меню Tools - References :

Подключаем библиотеку:

Затем объявляем переменную и присваиваем ей тип нужного приложения:

Sub OpenWord() Dim objWrdApp As Word.Application Set objWrdApp = New Word.Application objWrdApp.Visible = True End Sub

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

Так же можно нажать F2 и через поиск найти Word и просмотреть все методы и свойства данного приложения.

Метод установки ссылки на библиотеку приложения через Tools-References называют еще ранним связыванием. Подобный метод позволяет создать ссылку на приложение быстрее и, как описано выше, предоставляет разработчику доступ к визуальному отображению свойств и методов объекта. Но есть существенный минус: если в своем коде Вы установите ссылку на Word 12 Object Libbary(Word 2007), то на ПК с установленным Word 2003 получите ошибку MISSING, т.к. Word 2003 относится к библиотеке Word 11 Object Libbary. Подробнее можно прочитать в статье Ошибка — Cant find project or library.
Метод же CreateObject еще называется методом позднего связывания. Применяя его не возникнет проблем с MISSING, очень часто возникающих при раннем связывании. Поэтому я рекомендовал бы при разработке использовать раннее связывание для удобства использования свойств и методов(если Вы их не знаете), а перед распространением приложения в коде заменить все именованные константы(типа wdLine) на числовые константы(для wdLine это 5) и применить позднее связывание. Посмотреть числовое значение константы можно просто записав её в коде, начать выполнение кода через F8 и навести курсор мыши на эту константу. Всплывающая подсказка покажет числовое значение. Так же можно отобразить окно Immediate(View -Immediate Window или сочетание клавиш Ctrl + G ), записать вопросительный знак и вставить эту константу и нажать Enter :
?wdLine
ниже будет выведено числовое представление этой константы.
А заменять эти константы их числовыми значениями в случае с поздним связыванием необходимо, т.к. Excel не знает их значений.
Попробую пояснить поподробнее про эти константы и почему их надо заменять какими-то числами: при подключении библиотеки Wordа(Word 12 Object Libbary) мы так же подключаем и все свойства, методы и константы, которые доступны из Wordа. И их использование напрямую становится доступно из Excel и мы можем смело написать что-то вроде wbLine и Excel поймет эту константу. При позднем же связывании мы уже не подключаем библиотеки Word(во избежание ошибок совместимости) и как следствие - методы, свойства и константы Wordа для Excel становятся чем-то неизвестным и не документированным и мы получим ошибку "Variable not defined"(если включена директива Option Explicit) при попытке назначить свойство через wdLine. Если же Option Explicit не включена - то хоть ошибки не будет, но и код будет работать неверно, т.к. для неизвестной для Excel переменной wbLine будет назначено значение 0(Empty). Поэтому и надо все константы другого приложения заменять их числовыми значениями.

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

Sub OpenWord() Dim objWrdApp As Object, objWrdDoc As Object 'создаем новое приложение Word Set objWrdApp = CreateObject("Word.Application") 'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме 'objWrdApp.Visible = True 'открываем документ Word - документ "Doc1.doc" должен существовать Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc") 'Копируем из Word все данные, обращаясь к объекту Range документа Range.Copy 'вставляем скопированное в ячейку А1 активного листа Excel ActiveSheet.Paste 'закрываем документ Word без сохранения objWrdDoc.Close False 'закрываем приложение Word objWrdApp.Quit 'очищаем переменные Word - обязательно! Set objWrdDoc = Nothing: Set objWrdApp = Nothing End Sub

На строке Range.Copy обязательно получите ошибку от VBA, указывающую, что нужен аргумент для объекта. Можно попробовать добавить этот аргумент: Range(1).Copy. Но все равно получим ошибку. Можно, конечно, указать даже ячейки: Range("A1").Copy. Но это приведет к тому, что скопирована будет ячейка А1 активного листа Excel.
Все дело в том, что мы хотим скопировать данные из Word-а, выполняя при этом код из Excel. А у Excel тоже есть объект Range с другими аргументами. И если не указать какому приложению, листу или документу принадлежит Range, то по умолчанию он будет отнесен к тому приложению, из которого выполняется код. Т.е. к Excel. Если совсем кратко об этом - всегда надо указывать какому приложению или объекту принадлежит используемый объект или свойство. Правильно код должен выглядеть так:

Sub OpenWord() Dim objWrdApp As Object, objWrdDoc As Object 'создаем новое приложение Word Set objWrdApp = CreateObject("Word.Application") 'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме 'objWrdApp.Visible = True 'открываем документ Word - документ "Doc1.doc" должен существовать Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc") 'Копируем из Word все данные, обращаясь к объекту Range документа 'при этом перед Range явно указываем откуда его брать - из документа Word -objWrdDoc("C:\Doc1.doc") objWrdDoc.Range.Copy 'вставляем скопированное из Word в активную ячейку активного листа Excel ActiveSheet.Paste 'закрываем документ Word без сохранения objWrdDoc.Close False 'закрываем приложение Word objWrdApp.Quit 'очищаем переменные Word - обязательно! Set objWrdDoc = Nothing: Set objWrdApp = Nothing End Sub

Вместо Range ту же ошибку делают и с Selection(потому что Selection часто присутствует в записанных макрорекордером макросах), т.к. этот объект есть и в Excel и в Word и без явного указания приложения будет относится к приложению, в котором записано.

Tips_Macro_OpenWord.xls (49,5 KiB, 5 645 скачиваний)

А в архиве ниже - практически готовое решение заполнения всевозможных бланков Word из Excel. Как это работает. У нас есть таблица Excel с данными для заполнения бланков заявлений на пособия:

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

Фигурные скобки сделаны для того, чтобы код 100% искал и заменял только метку в шаблоне, исключая при этом замену случайного текста вне скобок(ведь слово "Должность" может встречаться и само по себе).
А здесь я схематично привел то, как будут происходить замены:

Сначала программа создаст новую папку, в которую и будет сохранять создаваемые файлы(имя папки состоит из даты и времени запуска кода). Далее программа циклом пройдется по каждой строке таблицы, создаст на основании шаблона Word( "Шаблон.doc" ) новый файл для этой строки, заполнит этот шаблона данными на основании меток, и сохранит созданный файл под новым именем. Сам файл шаблона при этом не изменяется - все метки в нем сохраняются как были настроены до запуска кода. Конкретно в приложенном коде значение для имени нового файла берется из первого столбца "ФИО с инициалами". Но это можно изменить в коде при необходимости. Делается это в этой строке:

'считываем фамилию с инициалами sWDDocName = .Cells(lr, 1).Value

Что еще важно: файл шаблона Word должен находиться в той же папке, что и файл с кодом. Название файла в приложенном к статье файле должно быть "Шаблон.doc". Но его так же можно изменить, не забыв изменив его в коде в этой строке:

'имя шаблона Word с основным текстом и метками Const sWDTmpl As String = "Шаблон.doc"

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

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

Между собой форматы «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 в качестве графического объекта. Следовательно, изменить содержимое таблицы уже не получится.

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

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

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

Откройте страницу документа 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 онлайн проходит в следующем порядке:

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

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

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

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

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

Основные способы конвертации

Можно выделить три основных способа конвертации файлов Word в Excel:

простое копирование данных;
использование сторонних специализированных приложений;
использование специализированных онлайн-сервисов.

Способ 1: копирование данных

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

Выделяем нужный отрезок текста или текст целиком в Microsoft Word. Кликаем правой кнопкой мыши, чем вызываем контекстное меню. Выбираем пункт «Копировать». Можно вместо использования контекстного меню, после выделения текста, кликнуть по кнопке «Копировать», которая размещается во вкладке «Главная» в блоке инструментов «Буфер обмена». Ещё одним вариантом является после выделения текста нажатие комбинации клавиш на клавиатуре Ctrl+C.

Как видим, текст вставлен, но он, как и говорилось выше, имеет непрезентабельный вид.

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

Способ 2: продвинутое копирование данных

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

«Главная»

«Отобразить все знаки»

Ctrl+*

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

Способ 3: применение приложений для конвертирования

Ещё одним способом преобразовать документы Ворд в Эксель является применение специализированных приложений для конвертирования данных. Одним из наиболее удобных из них является программа Abex Excel to Word Converter.

«Add Files»

После этого происходит процедура конвертации. Теперь вы можете открыть файл в программе Excel, и продолжить работу с ним.

Способ 4: конвертация с помощью онлайн-сервисов

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

Переходим на сайт Convertio и выбираем файлы для конвертации. Это можно сделать следующими способами:
- Выбрать с компьютера;
- Перетянуть с открытого окна Проводника Windows;
- Загрузить из сервиса Dropbox;
- Загрузить из сервиса Google Drive;
- Загрузить по ссылке.

После этого документ в формате Excel будет загружен на ваш компьютер.

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

Мы рады, что смогли помочь Вам в решении проблемы.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.