Бахтиёр, вот кусочек примера деревянного (не умею писать макросы) без первых 2-ух столбцов. - не табличные.
Явно одной строкой можно это забрать а не 7-ю, кто-то поправит из умеющих - может и я запомню.
P.S: Закидываю пока не понимаю как 40 подряд идущих столбцов в Autocad по одной пока )
Файл Word должен лежать в паке с Excel.
Есть баг картинку приложил tmp файл просит разрешить макросы - надо закрыть это окно - иначе ошибка
Код |
---|
Sub Таблицы()
Path = ThisWorkbook.Path & Application.PathSeparator & "word форум.docx"
Set wd = CreateObject("Word.Application")
wd.documents.Open Path
wd.Visible = True
n = 1
For i = 1 To wd.activedocument.Tables.Count
DoEvents
n = n + 1
Cells(n, 3).Value = Application.Clean(wd.activedocument.Tables(i).Cell(1, 2).Range.Text)
Cells(n, 4).Value = Application.Clean(wd.activedocument.Tables(i).Cell(2, 2).Range.Text)
Cells(n, 5).Value = Application.Clean(wd.activedocument.Tables(i).Cell(3, 2).Range.Text)
Cells(n, 6).Value = Application.Clean(wd.activedocument.Tables(i).Cell(4, 2).Range.Text)
Cells(n, 7).Value = Application.Clean(wd.activedocument.Tables(i).Cell(5, 2).Range.Text)
Cells(n, 8).Value = Application.Clean(wd.activedocument.Tables(i).Cell(6, 2).Range.Text)
Cells(n, 9).Value = Application.Clean(wd.activedocument.Tables(i).Cell(7, 2).Range.Text)
Next i
wd.documents.Close
wd.Quit
Set wd = Nothing
End Sub
|