Параметры страницы в Word из VBA (Excel)
Необходимо перенести данные из excel в word. Программа (на VBA) копирует, вставляет.
Однако таблица достаточно большая и необходимо перед вставкой в word сделать лист альбомный.
Подскажите как реализовать.
Заранее спасибо.
Однако таблица достаточно большая и необходимо перед вставкой в word сделать лист альбомный.
Подскажите как реализовать.
Заранее спасибо.
1) Открыть Word
2) Включить запись макроса
3) Вручную сделать ориентацию листа Альбомная
4) Остановить запись макроса
5) Посмотреть созданный макросом код и подчистить его и вы получите след. строку
2) Включить запись макроса
3) Вручную сделать ориентацию листа Альбомная
4) Остановить запись макроса
5) Посмотреть созданный макросом код и подчистить его и вы получите след. строку
Код:
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
Спасибо большое за ответ. Однако мне необходимо было именно, чтобы макрос, записанный в Excel поменял ориентацию страницы в Word.
Вроде бы разобрался. Фишка была в том, что команда
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
не прокатывала, так как не определялась в VBA из-под Excel.
Set wrd = CreateObject("Word.Application")
wrd.ActiveDocument.PageSetup.Orientation = 1
(в общем 1 вместо wdOrientLandscape) изменило ситуацию
Вроде бы разобрался. Фишка была в том, что команда
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
не прокатывала, так как не определялась в VBA из-под Excel.
Set wrd = CreateObject("Word.Application")
wrd.ActiveDocument.PageSetup.Orientation = 1
(в общем 1 вместо wdOrientLandscape) изменило ситуацию