Сбор первых трех строк документов Word в таблицу Excel.

Пользователь

Сообщений: 16 Регистрация: 02.12.2014

14.01.2016 15:56:52

Всем доброго дня.
Есть целая куча однотипных Word-документов в одной папке. Из них надо дернуть первые 3 строки в таблицу Excel БЕЗ переводов строки, иначе дальше таблицу не расковырять. Вот как бы так сделать... Plex позволяет собирать из разных Excel-книг, а вот с Word он помочь не может...
Примеры прикладываю.

Прикрепленные файлы

Примеры.zip (42.39 КБ)

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

14.01.2016 17:14:06

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

Код

Public Sub test()
    Dim xls As Object, p As Paragraph
    Set xls = GetObject(, "Excel.Application")
    Set p = ThisDocument.Paragraphs(2)
    xls.ActiveWorkbook.ActiveSheet.Range("A1").Value = p.Range.Text
End Sub

Успехов.

Игорь Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 14.01.2016 17:20:10 Если один раз надо собирать данные, — можете сделать на базе моей программы «парсер сайтов и файлов» http://excelvba.ru/programmes/Parser программа платная, но тестовых запусков должно хватить на изучение и настройку 2 исходных действия надо настроить: 1) получить список файлов в папке 2) загрузить содержимое файла Word а при выводе в столбцы - разбить текст на массив по разделителю {NL} (перевод строки) и вычленить нужные данные из строки для вывода в соответствующий столбец тут есть пример настройки парсера, для аналогичной задачи (обработка всех файлов Word в папке) http://excelvba.ru/programmes/Parser/samples/WordDocuments Изменено: Игорь - 14.01.2016 17:56:22 Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему