Как страницу текста в doc преобразовать в картинку ?

[bdfy]

Интересует преобразование текста в ворд файле в BMP, GIF, JPG, PCX, или TGA.
пример файла во вложении - небольшой, с полстраницы.
зачем преобразовывать в картинку ? чтобы можно было вставить линк на нее в mathcad - там достаточно витеиватый расчет идети других путей вставить поясняющий текст автоматом я не вижу.

[bdfy]

можно распечатать встроенным принтером в tiff. но такой формат не поддерживается ((

[Serge_Bliznykov]

1) можно легко преобразовать TIFF в любой другой графический формат.
Хоть тем же IrfanView

2) можно поставить виртуальный принтер (например, FinePrint (небесплатный!)) и в нём есть возможность сохранить страницу печати в виде картинки.

[bdfy]

я представляю как сделать это руками. нужно программное решение. в VBA

1) можно легко преобразовать TIFF в любой другой графический формат.
Хоть тем же IrfanView

согласен, это можно сделать из ком. строки.
например

i_view32.exe c:\*.jpg /convert=d:\temp\*.gif

как это запустить в VBA ?

) можно поставить виртуальный принтер (например, FinePrint (небесплатный!)) и в нём есть возможность сохранить страницу печати в виде картинки.

есть у меян Fineprint. по умолчанию печатает именно в свой формат. в картинку можно потом экспортировать. или я проглядел где то опцию ?

[Sasha_Smirnov]

Картинку страниц(ы) документа (в Word) даёт поле линк: вот пример:

{Link Word.Document.8 "D:\\Documents and Settings\\Admin\\Мои документы\\ворд\\Polygon.doc"}

Фигурные скобки при этом надо вставлять по Ctrl-F9, слэши — удваивать.

Ну а полученный «скрин» можете уж как-нибудь пристроить. Вот мой:

[viter.alex]

Страницу, на которой стоит курсор:

Sub SaveToBMP()
  Dim ADODB As Object
  Set ADODB = CreateObject("ADODB.Stream")
  With ADODB
    .Type = 1 ' adTypeBinary
    .Open
    .Write (ActiveWindow.Panes(1).Pages(1).EnhMetaFileBits)
    .SaveToFile ("Страница " & Selection.Information(wdActiveEndPageNumber) & ".bmp")
    .Close
  End With
  Set ADODB = Nothing
End Sub

Код подсмотрен и сдела

[bdfy]

@Sasha_Smirnov
не представляю как это использовать программно

@viter.alex
не работает. почему вопрос интересный. может еще кто протестирует для ясности картины ?

рабочее решение я нашел - Universal Document Converter виртуальный принтер. печатает в нужный мне формат, в нужном разрешении.