Ошибка при обращении к свойству Information(wdWithInTable)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Ошибка при обращении к свойству Information(wdWithInTable) (Макросы Sub)

Cterx

Дата: Пятница, 20.09.2013, 09:47 | Сообщение № 1

Группа: Гости

Здравствуйте!
Подключаюсь из Excel к Word
[vba]

Код

Dim wObj As Word.Application
On Error Resume Next
Set wObj = GetObject(, "Word.Application")
If Err <> 0 Then
Set wObj = CreateObject("Word.Application")
End If

[/vba]
Далее открываю Документ Word, далее Цикл по параграфам:
[vba]

Код

Set objDoc = wObj.Documents.Open(FileName:=iPath & iFileName, Visible:=False)
For i = 2 To objDoc.Paragraphs.Count
If objDoc.Paragraphs(i).Range.Information(wdWithInTable) = True Then

[/vba]

Почему-то вываливается ошибка на строке: objDoc.Paragraphs(i).Range.Information(wdWithInTable)
Причём в отладчике вижу в objDoc.Paragraphs(i).Range значение очередного параграфа документа.
Что это может быть? Тот же код в модуле Word работает нормально, а из Excel не хочет.

Ответить

Саня

Дата: Пятница, 20.09.2013, 10:49 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

у тебя какое связывание?
единственно на что можно грешить (сам синтаксис на твоей совести) - это вордовская константа wdWithInTable - попробуй заменить ее на численное значение (узнать можно в ворде)
с другой стороны первая строка говорит о раннем связывании...