VPF::Смена ориентации страниц в документе Word

MAXIQ

Дата 27.1.2011, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 30.12.2006

Репутация: нет
Всего: нет

Здравствуйте, дело в следующем: нужно сменить ариентацию страниц Word начиная с заданной страницы. Программируем на BCB6. Я доблестно перековырял макрос типа

Код


Selection.InsertBreak Type:=wdPageBreak 
    ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start).InsertBreak Type:=wdSectionBreakNextPage 
    Selection.Start = Selection.Start + 1 
    With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument.Content.End).PageSetup 
        .LineNumbering.Active = False 
        [b].Orientation = wdOrientLandscape

и в результате всех моих OlePropetyGet&OlePropetySet ориентация уперто меняется во всем документе, еще немного и я сам ее поменяю smile

Может кто знает как сделать правильно?

Akina

Дата 27.1.2011, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Цитата(MAXIQ @ 27.1.2011, 12:53

)

как сделать правильно?

Вставить разрыв - раздел с новой страницы,- и применять ориентацию страницы к разделу.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

MAXIQ

Дата 28.1.2011, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 30.12.2006

Репутация: нет
Всего: нет

Спасибо, Akina!

Код


vVarSelection.OleProcedure("InsertBreak",7);
vRange.OlePropertySet("Start", vVarSelection.OlePropertyGet("Start"));
vRange.OlePropertySet("End", vVarSelection.OlePropertyGet("Start"));
vRange.OleProcedure("InsertBreak",2);
vVarSelection.OlePropertySet("Start",vVarSelection.OlePropertyGet("Start")+1);
vRange.OlePropertySet("Start", vVarSelection.OlePropertyGet("Start"));
vRange.OlePropertySet("End", vVarDoc.OlePropertyGet("Content").OlePropertyGet("End"));
vRange.OlePropertyGet("PageSetup").OlePropertySet("Orientation",1);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »