Собрать в таблицу Excel сведения из таблиц Word файла

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Собрать в таблицу Excel сведения из таблиц Word файла - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Собрать в таблицу Excel сведения из таблиц Word файла

baxtiyor1916

Дата: Пятница, 11.11.2022, 12:25 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

365

Добрый день.
Имеются сведения в Word файле, в таблице (см. скрин)
Таких таблиц в word-файле несколько, каждый на отдельной странице.
Их нужно собрать в таблицу Excel файла (см. скрин)
Можете помочь с макросом?

К сообщению приложен файл: word_.docx (60.0 Kb) · 9928402.png (95.9 Kb) · 7492556.png (114.1 Kb) · excel_.xlsm (12.1 Kb)

Ответить

baxtiyor1916

Дата: Понедельник, 14.11.2022, 08:14 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

365

Спасибо, ответили на другом ресурсе.
Оказывается в Word есть коллекция Tables - это word'овские таблицы.
Так можно пробежаться по каждой ячейке каждой таблицы:
[vba]

Код

Sub jjj()
For Each tbl In ActiveDocument.Tables
    For i = 1 To tbl.Rows.Count
        For k = 1 To tbl.Columns.Count
            Debug.Print Application.CleanString(tbl.Cell(i, k).Range.Text)
        Next
    Next
Next
End Sub

[/vba]