Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2009, 10:13   #1
Ky3Heu,
Пользователь
 
Регистрация: 01.04.2009
Сообщений: 94
По умолчанию Работа с Word

Подскажите, плиз, как только что созданному в ворде документу сказать, что мне нужен альбомный вид документа??
По ракетам и хоккею - Россияне всех сильней!
Ky3Heu, вне форума Ответить с цитированием
Старый 20.05.2009, 12:06   #2
ArtInt
Форумчанин
 
Аватар для ArtInt
 
Регистрация: 06.03.2009
Сообщений: 583
По умолчанию

Может легче создать шаблон normal.dot где уже будут сделаны все изменения, и к нему обращаться.
А так чтобы выяснить какая функция для чего требуется можно сделать макрос и в нем посмотреть. Так например, для смены ориентации на альбомную получился такой макрос

Код:
Sub Макрос4()
'
' Макрос4 Макрос
'
'
    WordBasic.TogglePortrait Tab:=3, PaperSize:=0, TopMargin:="3", _
        BottomMargin:="1.5", LeftMargin:="2", RightMargin:="2", Gutter:="0", _
        PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
        HeaderDistance:="1.25", FooterDistance:="1.25", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        StartingNum:=1, FromText:=wdAutoPosition, CountBy:=0, NumMode:=0, _
        TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=42, LinesPage:= _
        40, CharPitch:=220, LinePitch:=360, DocFontName:="+Основной текст", _
        DocFontSize:=11, PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, _
        SectionType:=1, FolioPrint:=0, ReverseFolio:=0, FolioPages:=1
End Sub
И потом обращаться по этим функциям. Обычно они описываются в файлах Word97.pas ; Word2000.pas; WordXp.pas. Но вариант с шаблоном все таки предпочтительнее проблем меньше.
Отсюда, получается что если для компонента WordApplication, то будет так:
Код:
 WordApplication1.DefaultInterface.ActiveDocument.PageSetup.TogglePortrait;
При этом изменяется ориентация с текущей на другую.
Не стыдно чего-то не знать, стыдно не стремиться к знаниям.

Последний раз редактировалось ArtInt; 20.05.2009 в 12:36.
ArtInt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с Word arv БД в Delphi 13 24.05.2009 10:39
работа с WORD Shaitan63 Помощь студентам 9 14.10.2008 07:25
Работа с Word-ом grey Помощь студентам 6 25.11.2007 14:28
Работа с Word Shuraken Общие вопросы Delphi 2 18.09.2007 10:57
Работа с Word Prowler Общие вопросы Delphi 1 14.09.2007 23:26