Страницы: 1
RSS
Работа с word из excel
 
Хочу открыть из excel документ word, изменить колонтитул и отправить на печать.

что делаю:
Код
Dim xs As Object
Dim wd As Object
Dim wdApp As Object

Set wdApp = CreateObject("Word.Document")
Set wd = wdApp.Application.Documents.Open("d:\filename.docx")

wd.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "ttt"
wd.Application.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:="2"
... 
При обращении к колонтитулу вылетает 'Object doesn't support this property or method'.
При попытке напечатать вылетает "Runtime error: 5148. Число должно находиться в диапазоне -32765 до 32767"

Никак не пойму что не так.
 
Доброе время суток
Вы используете позднее связывание (в Tools/References не подключена библиотека Word). Следовательно VBA ничего не знает о значениях констант перечислений  wdHeaderFooterPrimary, wdPrintRangeOfPages. Так что либо подключите библиотеку, либо замените константы перечислений их числовыми значениями.

Успехов.
 
Да, ларчик открывался просто. Спасибо.
Страницы: 1
Наверх