Скопировать таблицу Word - VB
Формулировка задачи:
Как можно скопировать таблицу Word?
Т.е. создать таблицу и заполнить ее данными?
Таблица готовая уже есть.
Решение задачи: «Скопировать таблицу Word»
textual
Листинг программы
'Открытие документа Function OpenDocum() Dim NumPart As Integer Err.Clear 'Смена стрелки мышки на часы Screen.MousePointer = 11 On Error GoTo Notloaded 'Проверка на открытие WORD - а Set MyWord = GetObject(, " Word.Application") Notloaded: 'Если Word не открыт If Err.Number = 429 Then ' Открытие WORD - а Set MyWord = CreateObject("Word.Application") ElseIf Err.Number <> 0 Then 'Выдается сообщение об ошибке MsgBox Err.Description & vbCrLf & "Error" Screen.MousePointer = 0 Exit Function End If 'Отменяется показ документа на экране, все будет происходить невидимо для пользователя MyWord.PrintPreview = False 'Открытие стандартного документа,созданного мной, как document1 или document2…… MyWord.Documents.Add "D:\КиРпИчИ\ВОРД\Создание док с таб\Files\blank.doc", False 'Преход в функцию для печати необходимого текста вдокумент PrintReportinWord End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д