Вставка таблицы в Word
код:
Private Sub Command1_Click()
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add
objWord.selection.insertafter "new text"
objWord.document.tables.Add selection.range, 3, 4
objWord.Visible = True
End Sub
Что делать? Скоро экзамен Пожалуйста, если кто знает что к чему... Или подскажет какой-нибудь альтернативный вариант...
objWord.document(1)....
а вообще правильно присваивать создаваемые объеты переменным и затем работать уже посредством них, вроде:
Set WordDoc = objWord.Documents.Add
или
Let WordDoc = objWord.Documents.Add
Как правильно я, извиняюсь, не помню - на бейсике сто лет не писал, но суть должна стать ясна.