Как перенести таблицу из Word в Excel
Во время работы с пакетом Microsoft Office нередко требуется перенести данные из одной программы в другую. В большинстве случаев речь идет о копировании и последующей вставке таблицы из Excel в Word, однако, иногда возникает потребность в выполнении обратного действия. Итак, давайте посмотрим, каким образом можно перенести таблицу из Ворд в Эксель.
Содержание скрыть
- Метод 1: Копирование – Вставка
- Метод 2: Импортируем таблицу
- Заключение
Метод 1: Копирование – Вставка
Смотрите также: “Как перенести таблицу из Excel в Word”
Пожалуй, данный метод является самым очевидным и легким в реализации:
- Любым удобным способом (например, с помощью зажатой левой кнопки мыши) выделяем таблицу в программе Word. Затем правой кнопкой мыши щелкаем по области выделения и в раскрывшемся списке команд выбираем “Копировать”.
Вместо контекстного меню можно воспользоваться кнопкой “Копировать”, расположенной во вкладке “Главная”, раздел инструментов “Буфер обмена”.
Также для копирования предусмотрена специальная комбинация клавиш – Ctrl+C.
Примечание: Чтобы выделить таблицу целиком, можно нажать на специальный значок в виде направленных в четыре стороны стрелок в квадрате (появляется при наведении курсора на таблицу).
- Итак, данные помещены в буфер обмена. Теперь открываем нужный лист в Экселе и встаем в ячейку, которая будет являться самой верхней левой ячейкой вставленной таблицы. Щелкаем по ней правой кнопкой мыши и в раскрывшемся контекстном меню останавливаемся на одном из доступных вариантов вставки:
- сохранить исходное форматирование (выберем в качестве примера);
- использовать конечное форматирование.
Как и в случае с копированием данных, можно воспользоваться кнопкой “Вставить”, находящейся на ленте инструментов во вкладке “Главная” (группа “Буфер обмена”). По умолчанию будет применен вариант вставки с сохранением исходного форматирования.
Если необходим выбор – следует нажать на стрелку вниз в нижней части значка.
Также предусмотрено специальное сочетание клавиш для вставки данных из буфера обмена – Ctrl+V. При его использовании таблица будет вставлена с учетом исходного форматирования.
- Независимо от выбранного способа, данные будут вставлены в выбранное место на листе. Довольно часто содержимое не вмещается в ячейках, и требуется сдвиг их границ.
- На этом можно сказать, что перенос таблицы благополучно завершен.
Метод 2: Импортируем таблицу
Смотрите также: “Как расширить ячейку в таблице Excel”
Данный метод не пользуется особой популярностью у пользователей, однако, он также применим для выполнения поставленной задачи.
- Выделяем таблицу в Word. Переключившись во вкладку “Макет” жмем кнопку “Данные” и в раскрывшемся перечне доступных вариантов выбираем – “Преобразовать в текст”.
- В появившемся небольшом окошке оставляем в качестве разделителя “знак табуляции” (должен быть выбран по умолчанию) и щелкаем OK.
- Таблица успешно преобразована в текст. Заходим в меню “Файл”.
- В перечне слева щелкаем по команде “Сохранить как”, затем жмем кнопку “Обзор” (в более ранних версиях программы данной кнопки нет, и программа сразу предложит сохранение файла).
- В открывшемся окне указываем имя файла (можно задать любое или вовсе оставить присвоенное по умолчанию, ведь документ нужен только для переноса данных) и месторасположение для записи. В параметре “Тип файла” выбираем значение “Обычный текст”. После этого кликаем “Сохранить”.
Примечание: В старых версиях программы могут быть предложены для настройки параметры преобразования файла – требуется лишь подтвердить действие без внесения каких-либо изменений. - Переходим в Эксель, где щелкаем кнопку “Получение внешних данных” (вкладка “Данные”). Откроется список вариантов, среди которых нам нужен – “Из текста”.
- На экране отобразится окно импорта текстового файла. Открываем расположение ранее сохраненного документа, выбираем его и кликаем по команде “Импорт”.
- Появится окно Мастера текстов. Для параметра “Формат исходных данных” по умолчанию должен быть выбран вариант “с разделителями” (оставляем его). В формате файла указываем кодировку, которая была использована при сохранении документа. Чаще всего, это “1251: Кириллица (Windows)”, и программа автоматически выберет ее. В случаях, когда приходится иметь дело с другими кодировками, при их переборе можно оценить правильность сделанного выбора с помощью области предварительного просмотра в нижней части окна. После выставления нужных параметров щелкаем “Далее”.
- Следующим шагом будет указание символа-разделителя. Как мы помним, при преобразовании таблицы в текст мы выбрали “знак табуляции”, следовательно, и здесь мы отмечаем его, после чего кликаем “Далее”.
- Завершающий шаг импорта текста – определение формата данных столбцов (по умолчанию выбран “Общий”). Чтобы изменить его, в нижней части окна (“Образец разбора данных”) кликаем по нужному столбцу, затем ставим отметку напротив требуемого варианта.
Примечание: Для каждого столбца формат задается отдельно. По готовности нажимаем кнопку “Готово”. - Появится окно, в котором требуется выбрать вариант вставки данных, после чего нажать кнопку OK:
- на имеющемся листе. В этом случае указываем ячейку, которая будет являться самым верхним левым элементов вставленной таблицы. Координаты можно напечатать вручную с помощью клавиатуры, либо, поместив курсор в поле для ввода информации, просто щелкнуть по нужной ячейке на листе.
- на новом листе. Выбор ячейки не требуется.
- на имеющемся листе. В этом случае указываем ячейку, которая будет являться самым верхним левым элементов вставленной таблицы. Координаты можно напечатать вручную с помощью клавиатуры, либо, поместив курсор в поле для ввода информации, просто щелкнуть по нужной ячейке на листе.
- Таблица будет вставлена в выбранное место – без сохранения первичного форматирования, однако, границы ячеек будут сразу выровнены по их содержимому.
- Теперь мы можем с работать с таблицей дальше. Например, можно очертить границы, залить определенные ячейки фоном и т.д.
Заключение
Смотрите также: “Форматирование таблицы в Excel: основные операции”
Таким образом, сделать перенос таблицы из Word в Excel можно двумя способами. Чаще всего пользователи предпочитают простое копирование-вставку данных, что заметно быстрее и проще в сравнении со вторым вариантом, который предполагает преобразование таблицы в обычный текст с последующим импортом через специальный инструмент.
Урок 57. Таблица в текст и обратно
Очень часто в практике приходится сталкиваться с такой проблемой – необходимо сделать операцию: таблица в текст или текст в таблицу. Рассмотрим пример. Есть таблица:
| Постановление Госстроя РФ от 01.07.2002 г. № 76 | О порядке подтверждения пригодности новых материалов, изделий, конструкций и технологий для применения в строительстве |
| ГОСТ Р 53772–2010 | Канаты стальные арматурные семипроволочные стабилизированные. Технические условия |
| ПНАЭ Г-01-011-97 | Общие положения обеспечения безопасности атомных станций. ОПБ 88/97 |
| НП-010-16 | Правила устройства и эксплуатации локализующих систем безопасности атомных станций |
| ПиН АЭ-5.6 | Нормы строительного проектирования АС с реакторами различного типа |
В результате надо получить список:
- Постановление Госстроя РФ от 01.07.2002 г. № 76. О порядке подтверждения пригодности новых материалов, изделий, конструкций и технологий для применения в строительстве.
- ГОСТ Р 53772–2010. Канаты стальные арматурные семипроволочные стабилизированные. Технические условия.
- ПНАЭ Г-01-011-97. Общие положения обеспечения безопасности атомных станций. ОПБ 88/97.
- НП-010-16. Правила устройства и эксплуатации локализующих систем безопасности атомных станций.
- ПиН АЭ-5.6. Нормы строительного проектирования АС с реакторами различного типа.
По окончании урока вы сможете:
- Преобразовать таблицу в текст
- Преобразовать текст в таблицу
- Организовать поиск в Области навигации
Скачайте файл тут и откройте его. Таблица в документе очень большая на пяти страницах. Извлечь текст из таблицы можно сделать вручную через утомительное перетаскивание. При этом не надо забывать, что после каждого предложения первого столбца должна стоять точка.
1. Текст из таблицы
Шаг 1. А можно сделать через команду «Преобразовать таблицу в текст» (выделить таблицу → лента Макет → группа команд Данные → команда «Преобразовать в текст»):
Появляется диалоговое окно:
Тормозим на минутку. Текст в таблице разделён границами ячеек. Если мы преобразуем таблицу в текст, то содержимое ячеек будет разделяться табуляторами. Мы можем переключить на разделитель «знак абзаца», «точка с запятой» либо какой-нибудь другой.
Смело жмём ОК и получаем вот такую ерунду:
Вывод: непечатаемый символ конца ячейки превратился в табулятор (как заказывали), а непечатаемый символ конца строки – в непечатаемый конца абзаца (так устроен Word). В принципе расстояние между предложениями есть, можно нумеровать. А как быть с точками в конце предложений?
А здесь на помощь придёт моя любимая команда «Замена». Не снимаем выделения с текста!
Шаг 2. Вызываем диалоговое окно «Найти и заменить» (лента Главная → группа команд Редактирование → команда Заменить → команда Больше в диалоговом окне):
Диалоговое окно увеличилось – увеличились возможности.
Шаг 3. Заменяем табуляторы на точки (курсор в поле «Найти:» → команда Специальный → команда Знак табуляции):
Хорошо, что разработчики Word побеспокоились о списке непечатаемых символов, иначе нам пришлось бы искать коды этих символов. Обращаю ваше внимание, что непечатаемых символов конца ячейки и конца строчек в этом списке нет. Поэтому идём обходным путём.
Шаг 4. Вводим в поле «Заменить на:» точку и пробел с клавиатуры:
Почему пробел? Между двумя предложениями помимо точки должен быть пробел.
Нажимаем клавишу «Заменить все» .
Шаг 5. Появляется маленькое диалоговое окно, которое спрашивает: Продолжить поиск в оставшейся части документа? Говорим «нет»:
Получаем такую картину:
В конце второго предложения каждого абзаца точек нет, а должны быть. То есть необходимо сделать ещё одну замену: заменить «символ конца абзаца» на «точку и символ конца абзаца». Если мы не добавим в поле «Заменить на:» символ конца абзаца, то весь текст станет одним сплошным абзацем.
Шаг 6. Заменяем «символ конца абзаца» на «точку и символ конца абзаца»:
Список непечатаемых символов для поля «Заменить на:» значительно меньше.
Нажимаем заменить и по дороге отменяем замену в оставшейся части документа.
Шаг 7. Назначаем список нашему тексту:
Всё! У меня заняло меньше 3 минут. Причем неважно сколько страниц занимает моя таблица.
А теперь обратная операция. Сделаем из этого текста таблицу.
2. Преобразование текста в таблицу
Шаг 1. Для начала присвоим нашему тексту стиль Обычный.
Команда «Преобразовать в таблицу» находится лента Вставка → группа команд Таблицы → кнопка впадающего меню:
В результате изучим диалоговое окно:
С числом столбцов определяйтесь сами. В нашем случае нужно всего два столбца. Автоподбор полагаю оставим по ширине окна. А вот с разделителем разберёмся. Разделитель – это сигнал при преобразовании текста: здесь будет граница таблицы.
Для первого предложения мы можем определить разделителем точку с пробелом, а для второго предложения – точка и символ конца абзаца. Но, во-первых, пробел в этом диалоговом окне мы поставить не можем – проверяла, а во-вторых, мы не можем поставить одновременно два разделителя. И ещё проблема: в тексте встречаются точки, которые заведомо не могут быть разделителями:
Можно, конечно, вручную разыскать критичные места, но мы упростим задачу.
Шаг 2. Разыскиваем критичные точки-неразделители (на панели быстрого доступа активизируем Область навигации → в поле поиска набираем точку и пробел с клавиатуры → нажимаем ЛМ на значок лупы):
Результат получился такой:
В данном отрывке текста найдено 8 результатов. В реальности было намного больше.
По черным стрелкам «верх-низ» перемещаемся по результатам поиска и определяем критичные точки. Я обвела такие точки красным кружочком. Вручную (к сожалению) заменяем критичные точки на символ, совершенно определённо не встречается в в этом отрывке текста, например, «*» (в любом случае эта операция по всем пяти страницам займёт не более 10 минут):
Шаг 3. Заменяем точку и пробел на символ конца абзаца: (лента Главная → группа команд Редактирование → кнопка Больше → в поле «Найти:» ставим точку с пробелом, а в поле «Заменить на:» – символ конца абзаца):
Шаг 4. Преобразуем текст в таблицу:
Получаем такую картину:
Шаг 5. Заменяем звёздочки на точку (лента Главная → группа команд Редактирование → в поле «Найти:» ставим звёздочку, а в поле «Заменить на:» – точку:
Всё! Как видите, операция «Таблица в текст и наоборот» сами по себе очень простые, но для грамотной работы надо в должной мере владеть тонкостями команды «Замена».
Теперь вы сможете:
- Преобразовать таблицу в текст
- Преобразовать текст в таблицу
- Организовать поиск в Области навигации
| Понять и запомнить! | При замене в выделенном фрагменте текста не забывайте отменять замену в оставшейся части документа |
Замечание. Если бы в первой строчке название документа соответствовало новым стандартам (не«от 01.07.2002 г.», а не «от 01.07.2002»), то замену можно было бы организовать одномоментно в режиме «Подстановочные символы». Это великолепная возможность Word, благодаря которой моя рабочая деятельность заиграла новыми красками, но об этом позже.
- замена символов
- как преобразовать таблицу в текст
- как текст из таблицы преобразовать в обычный
- можно ли преобразовать текст в таблицу
- поиск в Word
- поиск в документе
- преобразовать таблицу в текст 2007
- преобразовать таблицу в текст в word
- преобразовать таблицу в текст в ворде
- таблица
- Таблица Word
- таблицы преобразовать текст в число
- текст а таблицу
- текст в таблицу word
- чтобы преобразовать текст в таблицу необходимо
Вам будет интересно:
Урок 55. Заголовок таблицы
Урок 54. Гриф «Утверждение»
Урок 53. Текст в таблице
3 Comments on Урок 57. Таблица в текст и обратно
- Victor F 25.01.2021 at 16:58
Опечатка: «Скачайте файл тат»
- Elena 25.01.2021 at 20:55
описка
1. Текст из таБлицы
Комментировать Отменить ответ
Для отправки комментария вам необходимо авторизоваться.
Профиль
- Тонкости Word
- Урок вступительный. Системный подход к изучению офисных программ
- Урок 1. Непечатаемые символы
- Урок 2. Выделение текста в документе
- Урок 3. Шаблон документа и его изменение
- Урок 4. Стиль абзаца
- Урок 5. Стиль текста. Применение готовых стилей
- Урок 6. Форматирование по образцу
- Урок 7. Изменение стиля текста
- Урок 8. Интервал, выравнивание, отступ
- Урок 9. Создание собственного стиля
- Урок 10. Диалоговое окно Абзац
- Урок 11. Интервал после абзаца
- Урок 12. Обновление стиля текста
- Урок 13. Встроенные стили
- Урок 14. Стили текста в новом документе
- Урок 15. Лишние стили текста
- Урок 16. Буфер обмена
- Урок 17. Настройка Word
- Урок 18. Панель быстрого доступа в Word
- Урок 19. Команды на Панели быстрого доступа
- Урок 20. Списки
- Урок 21. Номер в списке
- Урок 22. Начать список с 1
- Урок 23. Многоуровневый список
- Урок 24. Создание многоуровневого списка
- Урок 25. Форматирование многоуровневого списка
- Урок 26. Уменьшить отступ или увеличить отступ
- Урок 27. Список в Word. Секреты
- Урок 28. Заголовки в документе. Структура документа
- Урок 29. Название объекта
- Урок 30. Список иллюстраций или Перечень объектов
- Урок 31. Перекрестная ссылка в документе
- Урок 32. Номер названия объекта
- Урок 33. Новое название объекта
- Урок 34. Системная папка «AppData» и шаблон Normal
- Урок 35. Список по умолчанию в шаблоне Normal
- Урок 36. Шаблон документа по умолчанию
- Урок 37. Разрыв страницы
- Урок 38. Колонтитул
- Урок 39. Разрыв раздела
- Урок 40. Многоколоночный текст
- Урок 41. Границы печатного поля
- Урок 42. Титульный лист – особая форма страницы
- Урок 43. Колонтитулы к разным разделам
- Урок 44. Уровни структуры
- Урок 45. Оглавление
- Урок 46. Стили текста документа
- Урок 47. Поиск в документе
- Урок 48. Многоуровневый пользовательский список
- Урок 49. Управление стилями
- Урок 50. Пользовательский шаблон
- Урок 51. Таблица. Начало пути
- Урок 52. Ячейка таблицы
- Урок 53. Текст в таблице
- Урок 54. Гриф «Утверждение»
- Урок 55. Заголовок таблицы
- Урок 56. Таблица по умолчанию
- Урок 57. Таблица в текст и обратно
- Урок 58. Тема документа
- Урок 59. Распознавание документа
- Урок 60. Макрос для таблицы
- Урок 61. Макрос преобразования страницы
- Урок 62. Автозамена
- Урок 63. Текст в формате *.txt
- Урок 64. Верхний индекс
- Урок 65. Замена символов
- Урок 66. Создание списка в тексте
- Урок 67. Организатор стилей текста
- Урок 68. Формат номера
- Урок 69. Рисунок в тексте
- Урок 70. Рисунок в Word
- Урок 71. Изображение в Word
- Урок 72. Рисование в Word
- Урок 73. Рисование Word
- Урок 74. Табуляция
- Урок 75. Сноска в документе
- Урок 76. Текущая дата
- Урок 77. Таблицы Word и Excel
- Урок 78. Автотекст
- Урок 79. Смотри таблицу
- Урок 80. Ссылка без закладки
- Урок 81. Переносы в тексте
- Урок 82. Указатели
- Урок 83. Элементы указателя
- Урок 84. Формат указателя
- Урок 85. Словарь указателя
- Урок 86. Нумерация таблиц
- Урок 87. Приложение в структуре документа
- Урок 88. Таблица в приложениях
- Урок 89. Шаблон договора
- Урок 90. Удаление всех закладок
- Урок 91. Макрос объединенный
- Урок 92. Текстовое поле
- Урок 93. Дата
- Урок 94. Раскрывающийся список
- Урок 95. Висячие предлоги
Свежие записи
- Урок 95. Висячие предлоги
- Урок 94. Раскрывающийся список
- Урок 93. Дата
- Урок 92. Текстовое поле
- Excel 54. Условное форматирование
Свежие комментарии
- Maxim к записи Урок 94. Раскрывающийся список
- Elena к записи Урок 95. Висячие предлоги
- jeff59 к записи Урок 95. Висячие предлоги
- Elena к записи Урок 17. Настройка Word
- igorkosten к записи Урок 17. Настройка Word
Архивы
- Октябрь 2023 (1)
- Сентябрь 2023 (3)
- Июль 2023 (1)
- Июнь 2023 (2)
- Май 2023 (2)
- Апрель 2023 (1)
- Февраль 2023 (1)
- Январь 2023 (3)
- Ноябрь 2022 (2)
- Сентябрь 2022 (1)
- Август 2022 (4)
- Июль 2022 (4)
- Июнь 2022 (5)
- Май 2022 (8)
- Апрель 2022 (5)
- Февраль 2022 (6)
- Январь 2022 (3)
- Декабрь 2021 (2)
- Ноябрь 2021 (5)
- Октябрь 2021 (3)
- Сентябрь 2021 (1)
- Июль 2021 (1)
- Июнь 2021 (6)
- Май 2021 (1)
- Апрель 2021 (4)
- Март 2021 (5)
- Февраль 2021 (1)
- Январь 2021 (2)
- Ноябрь 2020 (2)
- Октябрь 2020 (1)
- Сентябрь 2020 (1)
- Июль 2020 (5)
- Июнь 2020 (2)
- Май 2020 (2)
- Апрель 2020 (3)
- Март 2020 (3)
- Февраль 2020 (1)
- Декабрь 2019 (2)
- Ноябрь 2019 (2)
- Сентябрь 2019 (1)
- Август 2019 (3)
- Июль 2019 (2)
- Май 2019 (2)
- Апрель 2019 (4)
- Март 2019 (1)
- Февраль 2019 (1)
- Январь 2019 (4)
- Декабрь 2018 (1)
- Сентябрь 2018 (1)
- Август 2018 (1)
- Июнь 2018 (1)
- Май 2018 (1)
- Апрель 2018 (2)
- Март 2018 (3)
- Февраль 2018 (3)
- Январь 2018 (8)
- Декабрь 2017 (2)
- Ноябрь 2017 (5)
- Октябрь 2017 (5)
- Сентябрь 2017 (11)
- Август 2017 (8)
Рубрики
Мета
Copyright © 2017-2020 При копировании активная ссылка на источник обязательна
Как из Excel обратиться к другому приложению
Иногда бывает необходимо перенести что-то из 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
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 594 скачиваний)
В файле-примере, приложенном к данной статье, в комментариях к коду есть несколько добавлений. Например, как вставить текст из ячеек в определенные закладки 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 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
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
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
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
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 594 скачиваний)
А в архиве ниже — практически готовое решение заполнения всевозможных бланков Word из Excel. Как это работает. У нас есть таблица Excel с данными для заполнения бланков заявлений на пособия:
Обращаю внимание, что в первой строке расположены метки. Они нужны для того, чтобы код мог понять значения какого столбца в какое место шаблона Word должны попасть. А в самом шаблоне Word мы должны проставить эти самые метки:
Фигурные скобки сделаны для того, чтобы код 100% искал и заменял только метку в шаблоне, исключая при этом замену случайного текста вне скобок(ведь слово «Должность» может встречаться и само по себе).
А здесь я схематично привел то, как будут происходить замены:
Сначала программа создаст новую папку, в которую и будет сохранять создаваемые файлы(имя папки состоит из даты и времени запуска кода). Далее программа циклом пройдется по каждой строке таблицы, создаст на основании шаблона Word( «Шаблон.doc» ) новый файл для этой строки, заполнит этот шаблона данными на основании меток, и сохранит созданный файл под новым именем. Сам файл шаблона при этом не изменяется — все метки в нем сохраняются как были настроены до запуска кода. Конкретно в приложенном коде значение для имени нового файла берется из первого столбца «ФИО с инициалами». Но это можно изменить в коде при необходимости. Делается это в этой строке:'считываем фамилию с инициалами sWDDocName = .Cells(lr, 1).Value‘считываем фамилию с инициалами sWDDocName = .Cells(lr, 1).Value
Что еще важно: файл шаблона Word должен находиться в той же папке, что и файл с кодом. Название файла в приложенном к статье файле должно быть «Шаблон.doc». Но его так же можно изменить, не забыв изменив его в коде в этой строке:
'имя шаблона Word с основным текстом и метками Const sWDTmpl As String = "Шаблон.doc"
‘имя шаблона Word с основным текстом и метками Const sWDTmpl As String = «Шаблон.doc»
В общем-то, если хоть чуть-чуть разбираетесь, то поменять можно многое. А для тех, кто не разбирается достаточно будет просто создавать метки в файле Word и обозначать ими столбца в таблице Excel. Количество столбцов и строк в таблице код определяет автоматически и при изменении размеров таблицы ничего изменять не надо. Главное, чтобы метки находились в первой строке, вторая строка — заголовок(необязательно), а с третьей строки начинаются данные, которые и используются для наполнения шаблонов.
Скачать пример:Статья помогла? Поделись ссылкой с друзьями!
Как вставить текст из эксель в ворд без таблицы
= Мир MS Excel/Статьи об Excel
МЕНЮ САЙТА
Информация о сайте
Развите сайта
Приемы работы
Инструменты и настройки
Интеграция
Готовые решения
Вопросы и решения
Работа и общение
Работа форума и сайта
Библиотека
Книги по Excel
Книги по VBA
Видеосалон
Справочники
Разработчик
КАТЕГОРИИ РАЗДЕЛАПриёмы работы с книгами, листами, диапазонами, ячейками [6] Приёмы работы с формулами [14] Настройки Excel [3] Инструменты Excel [4] Интеграция Excel с другими приложениями [5] Форматирование [1] Выпадающие списки [2] Примечания [1] Сводные таблицы [1] Гиперссылки [1] Excel и интернет [1] Excel для Windows и Excel для Mac OS [2] Связывание и внедрение таблиц и диаграмм MS Excel в документы MS Word
Если нам не требуется (а иногда и нежелательно) обновлять в документе таблицу или диаграмму, полученную из Excel, то используем внедрение. При этом в документ помещается статическая копия данных, т.е. внедрённый объект становится частью документа Word и уже никак не связан с источником данных. Размер файла документа при этом, естественно, увеличивается.
Если же нам нужно поддерживать данные, полученные из Excel, в актуальном состоянии, следует использовать связывание. При этом в документ помещается ссылка на объект Excel, соответственно, при изменении исходной таблицы или диаграммы данные в документе также изменятся.
Рассмотрим разные способы связывания и внедрения.
ВНЕДРЕНИЕ1 способ. Через буфер обмена
Это самый простой и очевидный способ. Выделяем на листе Excel диапазон ячеек или диаграмму, любым способом выполняем команду Копировать, переходим в документ Word и выполняем команду Вставить. При этом таблица вставляется как таблица Word с возможностью редактирования средствами Word, а диаграмма в версиях до Word 2007 включительно вставляется как внедрённый объект (см. ниже) , а начиная с Word 2010 — как рисунок . Чтобы диаграмма начиная с Word 2010 вставилась как внедренный объект, следует использовать Параметры вставки
2 способ. Создание нового объекта
Для этого на вкладке Вставка в группе Текст нажимаем кнопку Объект,
для версий старше Word 2007 меню Вставка — Объект
и в раскрывшемся диалоговом окне на вкладке Создание ищем в списке строчку Лист Microsoft Excel и нажимаем ОК
После этого на странице документа мы видим фрагмент листа Excel, а также ленту с вкладками (или меню) Excel.
Тот же результат получится, если на вкладке Вставка раскрыть список под кнопкой Таблица и выбрать вариант Таблица Excel.
В версиях до Word 2003 включительно можно использовать кнопку Добавить таблицу Excel на Стандартной панели инструментов.
Таким образом, мы можем создавать таблицу Excel, используя все возможности этой программы, прямо в документе.
Если мы хотим создать внедрённую диаграмму, то в диалоговом окне Вставка объекта на вкладке Создание выбираем строчку Диаграмма Microsoft Excel. В этом случае будет создан не один лист Excel, а два: на первом будет пример диаграммы, а на втором — исходные данные для неё, которые следует заменить своими исходными данными.
После того как таблица/диаграмма создана, щелчок мыши вне рамки объекта возвращает нас в документ. Если требуется вернуться к редактированию объекта, достаточно сделать по нему двойной щелчок мышкой.
Примечание. Если у Вас параметр Затенение полей установлен в положение Всегда, а заливка ячеек отсутствует, то таблица будет затенена. На печать, естественно, она будет выводиться без заливки.
3 способ. Создание объекта из файла
Для этого на вкладке Вставка в группе Текст нажимаем кнопку Объект и в раскрывшемся диалоговом окне переходим на вкладку Создание из файла. С помощью кнопки Обзор находим в Проводнике нужный файл Excel и нажимаем ОК.
При этом в документ вставляется лист, который был активен при последнем сохранении книги. Но войдя в режим редактирования объекта, можно перейти на любой другой лист.
Изначально лист Excel вставляется в масштабе 100%, из-за этого большая таблица или диаграмма может выйти за край страницы документа. В этом случае размером вставленного объекта управляют с помощью размерных маркеров по углам и по серединам сторон рамки выделения. Кроме того, такие же размерные маркеры доступны, если войти в режим редактирования объекта.
В чём отличие? Если Вы перемещаете размерные маркеры, находясь в режиме редактирования объекта, то Вы увеличиваете/уменьшаете количество видимых строк/столбцов.
Было
Стало
Если же Вы ту же самую операцию делаете, не входя в режим редактирования, то Вы просто растягиваете/сжимаете рисунок
Было
Стало
Создать внедрённый объект из файла можно также, перетащив мышкой значок файла Excel на страницу документа Word
Совет. Если Вы планируете внедрять диаграмму в документ, то лучше расположить её на отдельном листе.
Примечание. Иногда после редактирования таблицы и возвращения в Word, мы видим, что таблица отображается не полностью, она как бы «уехала» вверх или влево.
В этом случае следует вернуться в режим редактирования и обратить внимание, какая ячейка осталась активной.
Рекомендуется оставлять активной ячейку в левом верхнем углу Вашей таблички.
СВЯЗЫВАНИЕ
1 способ. Через буфер обмена с помощью Специальной вставкиВыделяем на листе Excel диапазон ячеек или диаграмму, выполняем команду Копировать, переходим в документ Word и даём команду Специальная вставка. Размещение этой команды зависит от версии Word.
В версиях до Word 2003 включительно она находится в меню Правка. Начиная с Word 2007 эту команду можно найти в раскрывающемся списке кнопки Вставить на вкладке Главная. Кроме того, начиная с Word 2010 в контекстном меню присутствует команда Параметры вставки, с помощью которой можно выбрать варианты связывания.
2 способ. Создание объекта из файла.
Для установления связи с файлом источником при создании объекта из файла достаточно в диалоговом окне Вставка объекта поставить флажок Связь с файлом
При этом в документ вставляется уже не сама таблица, а ссылка на неё.
При последующем открытии такого файла появляется окно
Если вы не уверены в надёжности источника связанных файлов, нажмите Нет.
Если выбран вариант Да, то данные в таблице документа обновятся в соответствии с последними изменениями в книге Excel.
Если во время изменения данных в электронной таблице документ Word открыт, то связанная таблица обновляется автоматически (по умолчанию).
Чтобы установленная связь работала, требуется, чтобы файл с электронной таблицей не переименовывался и не перемещался. Если всё же такое произошло, то чтобы заново прописать путь к источнику, можно воспользоваться диалоговым окном Связи из контекстного меню связанной таблицы.
Как видим, в этом диалоговом окне есть возможность Сменить источник , а также Разорвать связь , если таковая больше не требуется. Кроме того, здесь же можно выбрать способ обновления связи: автоматически или по запросу .
В версии до Word 2007 это диалоговое окно также открывается при выполнении команды меню Правка — Связи.
В Word 2007 его можно открыть, нажав кнопку Office и выбрав команду Подготовить — Изменить ссылки на файлы.
Начиная с Word 2010 для этого выбираем вкладку Файл — Сведения — Связанные документы — Изменить связи с файлами.