| Вопрос: Вопрос про работу с Word из VBS | Добавлено: 30.06.07 12:46 |
Автор вопроса:  Ricki-Ticki-Tavi
|
|
Нужно из VBS сделать вызов
... Selection.Information(wdMaximumNumberOfRows) Делаю так: Set objApp = CreateObject("Word.Application") set rCount = objApp.Selection.Information(15) соответственно скрипт ругается что нужен объект... объект wdMaximumNumberOfRows находится в Word.WdInformation.wdMaximumNumberOfRows, через CreateObject его не достать... :-( что можно сделать, чтоб осуществить вызов?.. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 30.06.07 14:04 |
|
wdMaximumNumberOfRows здесь не причём, это просто константа, ругается он не на неё.
Насколько я помню, объект Selection - это выделенный диапазон, он создается в результате приминения метода Select к объекту типа Range, а не сам по себе 
|
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 30.06.07 14:10 |
| http://msdn.microsoft.com/archive/en-us/office97/html/web/007.asp?frame=true#CH007H104 | ||
|
Номер ответа: 3 Автор ответа: Ricki-Ticki-Tavi Вопросов: 1 Ответов: 4 |
Профиль | | #3 | Добавлено: 30.06.07 14:20 |
|
Неправильно. Дело происходит так:
... Set objApp = CreateObject("Word.Application" 
Set objDoc = objApp.Documents.Open("..." ' Открываем файл
objDoc.Activate set r1 = objApp.Selection.GoTo(2, -1) ' Переходим к последней таблице в документе set rCount = objApp.Selection.Information(15) ' Здесь вылетаем с сообщением Object required 'Selection.Information(...)' |
||
|
Номер ответа: 4 Автор ответа: Ricki-Ticki-TaviВопросов: 1 Ответов: 4 |
Профиль | | #4 | Добавлено: 30.06.07 14:21 |
|
> http://msdn.microsoft.com/archive/en-us/office97/html/web/007.asp?frame=true#CH007H104
Спасибо, уже читал, по VBScript там нет |
||
|
Номер ответа: 5 Автор ответа: Ricki-Ticki-TaviВопросов: 1 Ответов: 4 |
Профиль | | #5 | Добавлено: 30.06.07 15:09 |
|
ЗЫ в макросе в ворде
set r1 = Selection.GoTo(2, -1) set rCount = Selection.Information(15) MsgBox rCount работает отлично почемуто... |
||
|
Номер ответа: 6 Автор ответа: Ricki-Ticki-TaviВопросов: 1 Ответов: 4 |
Профиль | | #6 | Добавлено: 30.06.07 15:21 |
|
вопрос снимается... оказывается VBScript ругался на set =-0 ...
set r1 = objApp.Selection.GoTo(2, -1) ' Переходим к последней таблице в документе rCount = objApp.Selection.Information(15) ' Срабатывает... |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 30.06.07 21:48 |
|
В чем же моя неправильность? Если можно по пунктам. Я как раз и имел ввиду что перед вызовом Selection.Information надо бы что-то выделить, что собственно говоря Вы и сделали...
http://msdn.microsoft.com/archive/en-us/office97/html/web/007.asp?frame=true#CH007H104
Спасибо, уже читал, по VBScript там нет Да причем же здесь VBS, когда мы про объктную модель вёрда? :\ Ладно, разобрались и хрен с вами ой, всмысле слава богу
|
||
Страница: 1 |