| Вопрос: Выдернуть таблицы | Добавлено: 31.05.07 11:40 |
Автор вопроса:  Riko
|
| Подскажите, пожалуйста, как можно выдернуть таблицы из вордовского документа и сохранить их в отдельный документ. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 01.06.07 00:33 |
|
Private Sub CommandButton1_Click() Dim Ndocum As New Word.Document Dim tbl As Word.Table For Each tbl In ThisDocument.Tables tbl.Range.Copy Ndocum.Paragraphs.Add().Range.Paste Next Ndocum.SaveAs "C:\Ndocum.doc" End Sub |
||
Страница: 1 |