Открыть Word документ

[dmitriegorovih]

Всем доброго времени суток! У меня возник такой вопрос. Как открыть Word документ так чтоб каждая страница была как картинка, то есть на этой картинки будет и текст и картинки?
P.S. Нашёл тока вот это

OleContainer1.DestroyObject();
OleContainer1.CreateObjectFromFile('D:\1.doc', False);
OleContainer1.Run();
OleContainer1.DoVerb(ovShow);

[_Den_1984]

была как картинка, то есть на этой картинки будет и текст и картинки?

не совсем понятно

[dmitriegorovih]

не совсем понятно

ну я хотел чтоб весь лист был картинкой чтоб с ним можно было делать манипуляции

[OlegVE]

Здравствуйте

ну я хотел чтоб весь лист был картинкой чтоб с ним можно было делать манипуляции

Другой вариант имеет иной смысл:

ну я хотел чтоб весь лист был картинкой чтоб с ней можно было делать манипуляции

Третий Вариант

ну я хотел чтоб весь лист стал картинкой чтоб с ней можно было делать манипуляции

Попробуйте

...
appWord:=CreateOleObject('Word.Application');
...
appWord.Documents.Open('D:\1.doc');
...
appWord.Selection.CopyAsPicture;
...

В буфере картинка...

До свидания.

[dmitriegorovih]

ну я хотел чтоб весь лист стал картинкой чтоб с ней можно было делать манипуляции

Извините меня пожалуйста, я ученик и только учусь

CreateOleObject

ругается на этот конструктор он не знает от какого класса он произошёл.
Плиз хелп ми

[OlegVE]

Определитесь, Вам необходим CreateOleObject (здесь я сам не сообразил что написал, аннулируем данное предложение) или преобразованный в "картинку" документ MS Word?

P.S. Извините, нужно добавить в uses ComObj.
P.P.S. Извините ещё раз. Празднуем 8 марта...
P.P.P.S. В "Программирование документов и приложений MS Office в Delphi Корняков В." найдёте объяснения и саму книгу можно найти...

[_Den_1984]

А собственно почему ворд? можно вкратце задачу которую вы хотите решить и что должна делать ваша програмка?

[dmitriegorovih]

А собственно почему ворд? можно вкратце задачу которую вы хотите решить и что должна делать ваша програмка?

Первостепенная задача - печать буклетов
(надо чтоб каждый лист можно было перевернуть и уменьшить, расположить на странице и печатать)

[Sibedir]

dmitriegorovih, ч/з OleContainer это вроде вообще не сделать. Через COM-интерфейс Word'а (или просто макрос на VBA) - можно, но о-о-о-очень тяжко. Есть специальные програмки-верстальщики. А лично я для этих целей использую виртуальный принтер Fineprint. Там всё есть: и печть буклетов, и несколько страниц на одной, и переплеты, и удалять странички по одной, и менять местами задания на печать, и сохранять, и дублировать, и даже двухсторонняя печать есть (всмысле, для принтера с односторонней печатью (печатает половину, переворачиваешь стопку и опять в принтер)). В купе с PDFCreator'ом можно вообще типографию открывать.

[OlegVE]

Если уж выходить за пределы Delphi, то можно посмотреть в настройках принтера "Печать буклетов". Возможно у Вас такое есть (конечно если Вы будете печатать буклеты только на этом принтере).
До свидания.
Поздаравляю с праздником всю женскую половину форума!
Всего вам хорошего. Куда мы друг без друга!