Ответ: Есть знатоки по скриптам?
Shira сказал(а):
Спасибо за участие. Но осталось непонятным.
.FormatCreateFrame 0, 0, 100000, 100000 - создаем фрейм указанного размера в левом верхнем углу страницы.
Ну можно и не в самом верху. Так просто удобнее
Shira сказал(а):
.InsertFrameAnchor - привязываем созданный фрейм к выделенному тексту, но не понятно, на каком расстоянии.
Привязываем как нам надо
Shira сказал(а):
.FormatFramePictureGet Width&, Height& - узнаем размеры картинки (или все же фрейма, куда картинку запихали?) И что теперь делать с этими размерами?
И к какой позиции страницы оказалоась картинка привязана?
Вообщем что гадать?
Вот открыл новый документ, запихал туда текст от балды, в одном из параграфов есть текст "рис." (без кавычек)
Пример скрипта:
+++++++++++
REM Created On Wednesday, October, 31, 2007 by Yurii
WITHOBJECT "CorelVentura.Automation.8"
.EditInitFindText "рис.", .CurrentChapter = FALSE, .Backward = FALSE, .FromBegin = FALSE, .MatchCase = FALSE, .WholeWord = FALSE, .MaintainCase = FALSE, .Reset = FALSE
.EditInitFindText .Reset = TRUE
.EditFindText
.EditFindText
Message "1"
.TextCharLeft
.TextLineInfoGet , , , LP&, TP&
MyMe$=LP&
MyMe2$=TP&
Message MyMe$+" "+MyMe2$
.FormatCreateFrame 0, -0, 10000, 10000
Message "2"
.InsertFrameAnchorBegin
.InsertFrameAnchor 2, LP&, TP&
Message "3"
.FormatObjectBegin 2
.FormatFrameGeneral .FitTextVertical = FALSE, .FrameFlow = 1
.FormatFrameAnchor .Position = 2, .Alignment = 4
.FormatFrameMarginsInside 1, .FlowInFrame = 1
.GraphicPosition
.FormatObjectEnd
Message "4"
.FileImportPicture "C:\tiff\1.tif", 0, FALSE, TRUE
Message "5"
.FormatFramePictureGet WP&, HP&
.FormatFrameGeneral , , WP&, HP&
END WITHOBJECT
+++++++++++
Запусти, погляди.