VBNet - Форум - HELP!! Отчет в ВОРДЕ, Не идет AddTextbox

Вопрос: HELP!! Отчет в ВОРДЕ, Не идет AddTextbox Добавлено: 19.11.02 15:36

Автор вопроса: SHDZ | ICQ: 209382104

Здаствуйте.
У меня такая проблема, если знете, подскажите - неделю мучаюсь:
Нужно в ворд вставить текстбокс (вставка-вставка текста) из программы
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add
objDoc.Activate
objWord.Visible = True
objDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 80, 162#, 126#).Select
'Выдает - неверный диапазон значений
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 80, 162#, 126#).Select
'Тоже самое
objDoc.Application.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 85, _
119, 72#, 117#).Select
Это я взял из вордовского хелпа но не идет
таблица вставляется, а этот фрагмент ни в какую
ЧТО С НИМ СДЕЛАТЬ?

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Petrovich

Вопросов: 9
Ответов: 84

Профиль | | #1

Добавлено: 20.11.02 09:24

Проблема в том, что существуют объекты Shape и в VB6.OLB
и в MSWORD9.OLB. Это совершенно разные объекты, но приоритет ессно у первой библиотеки и соответственно VB.Shape. Совет: чтобы избежать подобных конфликтов объявляй явно все переменные.
Option Explicit

Private Sub Form_Load()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objTextBox As Word.Shape
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Add
objDoc.Activate
objWord.Visible = True
Set objTextBox = objDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 80, 162#, 126#)
objTextBox.TextFrame.TextRange = "It is the sample only..."
End Sub

Ответить

Номер ответа: 2 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #2	Добавлено: 20.11.02 10:41
	Сделал как по Вашему примеру, но выдает тоже самое сообщение... Run-time error '-2147024809(80070057)': Это когда я его вставил в свою прогу. А когда создал новый файл, то начал ругаться на msoTextOrientationHorizontal использую WORD 9.0 Ob.lib. А у Вас идет тот пример? Что может быть еще? Ответить

Номер ответа: 3 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #3	Добавлено: 20.11.02 10:56
	БОЛЬШОЕ СПАСИБО ВСЕ ПОЛУЧИЛОСЬ!!!!!!!!! ВМЕСТО msoTextOrientationHorizontal ПОСТАВИЛ 1 С МЕНЯ БУТЫЛКА Ответить

Страница: 1 |