Как открыть word документ с помощью excel

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

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

Sub Zapusk_Word_iz_Excel_01()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Add
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Add
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

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

Макрос, запускающий Word из Excel и открывающий существующий документ

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

Sub Zapusk_Word_iz_Excel_02()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
            objWrdApp.Visible = True
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

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

Макрос для передачи данных из Excel в Word

Ниже приведен программный код макроса, копирующий в активной рабочей книге Excel диапазон с данными A1:E2 и вставляющий его в открытый документ Word. После передачи данных из Excel в Word производится закрытие документа с сохранением изменений и выход из приложения.

Sub Peredacha_Dannyh_iz_Excel_v_Word()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
            objWrdApp.Visible = False
        End If
    Set objWrdDoc = objWrdApp.Documents.Open("C:Doc1.doc")
    Range("A1:E2").Copy
    objWrdDoc.Range(0).Paste
    objWrdDoc.Close True
    'True - с сохранением, False - без сохранения
    objWrdApp.Quit
    Set objWrdDoc = Nothing
    Set objWrdApp = Nothing
End Sub

Хитрости »

24 Февраль 2012              91455 просмотров

Иногда бывает необходимо перенести что-то из 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, 6 264 скачиваний)

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

Sub Check_OpenWord()
    Dim objWrdApp As Object
    On Error Resume Next
    'пытаемся подключится к объекту Word
    Set objWrdApp = GetObject(, "Word.Application")
    If objWrdApp Is Nothing Then
        'если приложение закрыто - создаем новый экземпляр
        Set objWrdApp = CreateObject("Word.Application")
        'делаем приложение видимым. По умолчанию открывается в скрытом режиме
        objWrdApp.Visible = True
    Else
        'приложение открыто - выдаем сообщение
        MsgBox "Приложение Word уже открыто", vbInformation, "Check_OpenWord"
    End If
End Sub

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

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 и без явного указания приложения будет относится к приложению, в котором записано.

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

Скачать пример:

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

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

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

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

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

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

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

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

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

  Автосоздание бланков Word из таблицы Excel.zip (37,6 KiB, 1 471 скачиваний)

Примеры работы с тем же Outlook можно посмотреть в моих статьях:
Как отправить письмо из Excel?
Сохранить вложения из Outlook в указанную папку

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

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

Чтобы сделать процесс быстрым и надежным,
применяют следующие методы:

• копирование информации;
• продвинутое копирование информации;
• изменение при помощи сторонних утилит;
• конвертация посредством web-ресурсов.

Преобразование списка

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

Чтобы облегчить процесс переноса,
необходимо:

• установить для текста одинаковое
  форматирование;
• исправить знаки пунктуации.

Копирование информации

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

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

1. Выделить текст в MS Word.
2. Скопировать выделенное любым способом: нажать сочетание клавиш «CTRL+C»; правой кнопкой мыши – «Копировать»; активировать пиктограмму «Копировать»
   в блоке «Буфер обмена».
3. Открыть MS Excel.
4. Сделать активной ячейку, в которой
   расположится текст.
5. Вставить текст любым способом: «CTRL+V»; правой кнопкой мышки – «Вставить»; активировать пиктограмму «Вставить»
   в блоке «Буфер обмена».
6. Раскрыть пиктограмму, которая появляется
   после вставки текста, и выбрать пункт
   «Сохранить исходное форматирование».
7. Для придания тексту структурированного
   вида увеличить ширину столбца и
   произвести форматирование клетки
   посредством инструментария в блоке
   «Шрифт» и «Выравнивание» на вкладке
   «Главная».

Продвинутое копирование информации

Наш сайт предлагает воспользоваться
советами профессионалов при дублировании
сведений из одного приложения в другое.

Импорт данных

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

• Открыть файл в MS Word.
• Выделить таблицу.
• Перейти на вкладку «Макет».
• Раскрыть блок «Данные» и выбрать
  пиктограмму «Преобразовать в текст».

• В окне «Преобразование в текст»
  установить переключатель на пункт
  «Знак табуляции».

• Подтвердить действие через нажатие на
  «Ок».
• Перейти на вкладку «Файл».
• Выбрать пункт «Сохранить как» –
  «Документ Word».

• Указать место сохранения преобразованной
  таблицы и имя файла.
• В поле «Тип файла» указать опцию «Обычный
  текст».

• Подтвердить действие через «Сохранить».
• В окне преобразования файла не нужно
  изменять настройки, только запомнить
  кодировку, в которой текст сохраняется.

• Нажать «Ок».
• Запустить MS Excel.
• Активировать вкладку
  «Данные».

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

• В окне «Мастер текстов» на первом шаге
  установить переключатели «С разделителями»
  и указать кодировку файла, в которой
  он сохранен.

• Кликнуть «Далее».
• В блоке «Символом-разделителем является»
  установить переключатель на опцию
  «Знак табуляции».

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

• Нажать «Готово», когда форматирование
  окончено.
• При открытии окна «Импорт данных»
  необходимо указать ячейку, с которой
  начинает формироваться таблица при
  вставке (левую верхнюю ячейку будущей
  таблицы): указать ячейку можно вручную или нажать на пиктограмму, скрывающую окно
  и отображающую лист, где следует
  активировать нужную клетку.

• После возврата в «Импорт данных» нажать
  «Ок».

• Таблица импортирована из текстового
  процессора в табличный.

• По окончанию процедуры импорта
  пользователь форматирует таблицу по
  усмотрению.

Продвинутое копирование данных

Представленный метод аналогичен
алгоритму «Импорт данных». Разница
заключается в проведении подготовительных
работ. Как перевести с Ворда в Эксель,
чтобы сохранить максимально аккуратный
вид копируемой информации? Чтобы
подготовить текст, таблицы и списки к
копированию, необходимо автоматизированно
удалить лишние абзацы:

• нажать «CTRL+H» для вызова окна «Найти и
  заменить»;
• в поле «Найти» указать строчку «^p^p».
  Записать без кавычек. Если список задан
  в одну строку, то в вышеозначенном поле
  прописывается «^p»;
• в поле «Заменить на» указать знак
  разделения – символ, который ранее не
  использовался в тексте, например, «/».
• кликнуть на «Заменить все».

Примечание. Текст объединяется. Пункты
списка и абзацы разделяются указанным
символом.

Далее пользователь возвращает список
в презентабельный вид. Чтобы добиться
поставленной цели, следует:

• нажать «CTRL+H» для вызова окна «Найти и
  заменить»;
• в поле «Найти» указать выбранный символ
  разделения, например «/» (записать без
  кавычек);
• в поле «Заменить на» указать строку
  «^p»;
• подтвердить замену посредством нажатия
  на «Заменить все».

После подготовительного этапа необходимо
следовать алгоритму «Импорт данных».

Преобразование таблицы

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

• копирование объекта;
• редактирование таблицы.

Копирование

Копируем таблицу из Word в Excel.

• Навести курсор в верхний левый угол
  таблицы в MS Word. Курсор примет вид плюса
  со стрелочками на конце.

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

• использовать форматы конечных ячеек
  (применяется форматирование, присущее
  всему листу в книге) – пользователь
  устанавливает форматы по усмотрению.

Редактирование

При вставке объекта из MS Word в MS Excel
возникают ситуации, когда у таблицы
непрезентабельный вид.

Для расположения информации в отдельных
столбцах следует:

• скопировать и вставить объект в табличный
  процессор;

• выделить столбец, который требует
  преобразования;

• перейти на вкладку «Данные»;
• кликнуть на пиктограмму «Текст по
  столбцам».
• при открытии «Мастера текстов» установить
  опцию «С разделителями» и нажать на
  «Далее».

• в блоке «Символы-разделители» выбрать
  подходящий разделитель и установить
  переключатель;

• выбрать формат данных для каждого
  столбца на шаге 3 «Мастера текстов»;

• после указания опций нажать на «Готово».

Конвертация таблицы с помощью приложений

Конвертировать табличную информацию
возможно двумя способами:

1. посредством приложений;
2. посредством web-ресурсов.

Для конвертации таблицы из Word в Excel
следует найти специализированное
приложение. Хорошие отзывы получила
утилита Abex Excel to Word Converter. Чтобы
воспользоваться программным продуктом,
необходимо:

• открыть утилиту;
• кликнуть на пиктограмму «Add Files»;

• указать путь к сохраненному файлу;

• подтвердить действие через нажатие на
  «Открыть»;
• в раскрывающемся списке «Select output
  format» выбрать расширение для конечного
  файла;

• в области «Output setting»
  указать путь, куда сохранится
  конвертированный файл MS Excel;

• для начала конвертирования нажать на
  пиктограмму «Convert»;

• после окончания конвертации открыть
  файл и работать с электронной таблицей.

Конвертирование посредством
онлайн-ресурсов

Чтобы не устанавливать на компьютер
стороннее ПО, пользователь вправе
применить возможности web-ресурсов.
Специализированные сайты оснащены
функционалом для конвертации файлов
из Word в Excel. Чтобы воспользоваться
подобным инструментарием, следует:

• открыть браузер;

• ввести в поисковую строку запрос о
  конвертации файлов;
• выбрать понравившийся web-ресурс.

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

• Перейти на web-ресурс.
• Указать файл, требующий конвертации,
  одним из способов: нажать на кнопку «С компьютера»; перетянуть файл из папки, зажав левую
  клавишу мыши; активировать сервис «Dropbox» и загрузить
  файл; загрузить файл из Google Drive; указать ссылку для предварительного
  скачивания файла.

• После загрузки файла на web-ресурс
  указать расширение при активации
  кнопки «Подготовлено» – «Документ»
  (.xls, .xlsx).

• Кликнуть кнопку «Преобразовать».

• После завершения конвертирования
  нажать на «Скачать».

• Файл скачан на устройство и готов к
  обработке.

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

This Microsoft Excel macro will open a Microsoft Word document from excel. With this macro, you can open any word document on your computer. This is a small but cool macro; you can attach it to a button or checkbox and then, whenever a user clicks the button or checkbox, have a specified Microsoft word document open.

You can change the word document that will open by changing this line of code objWord.Documents.Open «C:test.doc» so that the directory and file name, including extension, point to the desired file on your computer.

Where to install the macro:  Module

Open a Word Document from Excel