Копирование таблиц из нескольких файлов WORD

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

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

Копирование таблиц из нескольких файлов WORD (Копирование таблиц из нескольких файлов WORD)

Копирование таблиц из нескольких файлов WORD

respector

Дата: Понедельник, 11.05.2020, 16:06 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2019

Добрый день! Сам я с VBA на вы, даже не так, на !ВЫ!
Есть задача, которую я не могу решить в силу отсутствия опыта.
Задача такая: есть несколько более-менее однотипных файлов WORD, в каждом из которых есть таблица. Задача стоит скопировать (без шапки) последовательно из каждого файла таблицу и объединить в одну в файле WORD.
Код ниже я раскопал на просторах, который делает практически все, что нужно, только копирует содержимое каждого файла полностью. Как его модифицировать так, чтобы он копировал только таблицы из файлов (без шапки)?

Sub MergeFiles()
Dim avFiles, lr As Long
Dim docAct As Document, docNow As Document

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "*.doc*"
.AllowMultiSelect = True
If .Show = False Then Exit Sub
Set docAct = ActiveDocument
For lr = 1 To .SelectedItems.Count
Set docNow = Documents.Open(.SelectedItems(lr))
docNow.Range.Copy
docAct.Range(docAct.Range.End - 1).Paste
docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0
docNow.Close 0
Next lr
End With
End Sub

Заранее большое спасибо всем, кто откликнулся.

Сообщение отредактировал respector - Понедельник, 11.05.2020, 18:15

Ответить

Копирование таблиц из нескольких файлов WORD (Копирование таблиц из нескольких файлов WORD)

Страница 1 из 1
1