Уважаемые форумчане!
Подскажите как решить простую задачку.
Есть множество файлов doc, docx на английском и русском языках.
Необходимо собрать их в xls на один лист в один столбец для последующей обработки
Причем процесс сбора необходимо сделать такое же как при копировании вручную (к примеру выделенный абзац копируется целиком в одну ячейку).
Пока получилось написать только:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub ImportWordTable()
Dim wdDoc As Object
Dim wdFileName As Variant
wdFileName = Application.GetOpenFilename("Word files (*.doc*),*.doc*", , _
"Browse")
If wdFileName = False Then Exit Sub
Set wdDoc = GetObject(wdFileName)
End If
Set wdDoc = Nothing
End Sub
Подскажите, если несложно.
Заранее благодарна!
