Перейти к содержимому
Наше приложение «Дешевые авиабилеты» в AppGallery >>

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

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

    Условие задачи

    Есть открытый документ Word с именем «Документ1.docx» следующего содержания:

    Документ со списком птиц, из которого необходимо извлечь список.

    Начало списка

    Аист
    Буревестник
    Воробей
    Голубь
    Дятел
    Жаворонок
    Стриж

    Конец списка

    Для начала и окончания отбора нужных строк (абзацев) будем использовать ключевые слова «Начало» и «Конец».

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

    Копирование части текста

    Копирование части текста из документа Word, ограниченного строками (абзацами) с ключевыми словами «Начало» и «Конец», в ячейку рабочего листа:

    Результат работы кода VBA Excel:

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


    Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.