Экспорт выборочных данных из Word в Excel

[JustCommonNick]

Доброго времени суток! Объясните чайнику, как создать макрос, при запуске которого будут экспортироваться данные из Word в Excel, по возможности файл должен выбираться из проводника, но в ворде есть как и текст, так и таблицы, мне нужно только таблицы, если есть возможность первую строку перед таблицей (заголовок таблицы). Заранее спасибо

[Дмитрий Щербаков(The_Prist)]

Объясните чайнику, как создать макрос

объясните не чайникам - а что Вы уже умеете и что уже получилось? Или Вам надо прямо с самых азов все рассказать? Это ни разу не просто, особенно, когда даже нет понимания процесса.

[JustCommonNick]

объясните не чайникам - а что Вы уже умеете и что уже получилось?

Код (vb) Выделить Развернуть

Sub from_word()
   Dim objWrdApp As Object, objWrdDoc As Object
   
   Set objWrdApp = CreateObject("Word.Application")
   Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\sysadmin\Desktop\CQR\CQR.docx")
   objWrdDoc.Range.Copy

   ActiveSheet.Paste

   objWrdDoc.Close False
   objWrdApp.Quit
   Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
Есть вот такой макрос, но он подтягивает все данные из Word, мне по сути нужно узнать можно ли конкретно только таблицы из Word подтягивать и как это будет выглядеть на языке VBA
смотрите, файлы не могу отправить, конфиденциальная информация
Если разжевать то есть excel файл и word, в ворде есть как и текст просто так и таблички, табличек много и расстояние (в строках будет меняться в будущем) нужно из этого файла подтянуть только таблицы.

[Дмитрий Щербаков(The_Prist)]

и как это будет выглядеть на языке VBA

Давайте пойдем дальше. Вот есть в Word 10 таблиц. Первую мы скопируем, начиная с ячейки А1. А куда вставлять остальные? Ниже, правее, на другой лист? Как Вы этот процесс видите?

Если разжевать

не надо нам ничего разжевывать - файлы можно подготовить и без конфиденциальных данных. А на словах и из первого сообщения понятно было, что что-то есть и что-то надо.
По сути, скопировать только таблицы не так сложно(друг под другом):

Код (vb) Выделить Развернуть

Sub from_word()
    Dim objWrdApp As Object, objWrdDoc As Object, objTbl As Object
   
    Set objWrdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Path & "\CQR.docx")
   
    Range("A1").Select
    For Each objTbl In objWrdDoc.tables
        objTbl.Range.Copy
        ActiveSheet.Paste
        ActiveCell.Offset(objTbl.Rows.Count).Select
    Next
    objWrdDoc.Close False
    objWrdApp.Quit

    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
конечно, это для простых таблиц и без учета каких-либо нюансов.

[JustCommonNick]

Давайте пойдем дальше. Вот есть в Word 10 таблиц. Первую мы скопируем, начиная с ячейки А1. А куда вставлять остальные? Ниже, правее, на другой лист? Как Вы этот процесс видите?не надо нам ничего разжевывать - файлы можно подготовить

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

[Дмитрий Щербаков(The_Prist)]

если можно то вставлять правее

Можно. Но согласитесь, было бы правильнее, если бы это не надо было из Вас тянуть, для помощи Вам же?

в программировании по логике можно брать те таблички, в которых строк больше, допустим, 6

Все верно. И для этого, как ни странно, надо именно логику включить Если посмотреть мой код выше - там уже половина ответа есть: objTbl.Rows.Count
Накидал код - остальные нюансы, которые вдруг вспомните, старайтесь для начала самостоятельно решить:

Код (vb) Выделить Развернуть

Sub from_word()
   Dim objWrdApp As Object, objWrdDoc As Object, objTbl As Object
     
   Set objWrdApp = CreateObject("Word.Application")
   objWrdApp.Visible = True
   Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Path & "\CQR.docx")
     
   Range("A1").Select
   For Each objTbl In objWrdDoc.tables
       If objTbl.Rows.Count > 6 Then
           objTbl.Range.Copy
           ActiveSheet.Paste
           ActiveCell.Offset(, objTbl.Columns.Count).Select
       End If
   Next
   objWrdDoc.Close False
   objWrdApp.Quit
 
   Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub

[JustCommonNick]

Можно. Но согласитесь...

Огромное человеческое спасибо! и за умные мыли и за решение проблемы!

[JustCommonNick]

Можно. Но согласитесь...

Похоже придется понаглеть, информацию ну никак не могу найти по поводу передачи данных от Word к Excel
сейчас у меня проблемы со следующим:
1) нужно заголовки таблиц, потому что без них я не смогу сориентироваться в экспортированных таблицах
2) поиск и вставка данных. Вот есть таблица, чтобы взять данные, нужно обратить к диапазону и найти строку с ФИО или фамилией и последующие пару строк после фио занести на другой лист, при этом таблица должна искаться по ее заголовку (это уже в виде формулы, ну тут я более менее могу сам сообразить) единственное хочу знать возможно ли такое реализовать?
И буду рад если дадите наводку, где можно подучить VBA