Кто с объектами Word-a работал?

← →
kull © (2002-11-11 11:26) [0]

Ну ладно...
Тогда кто нибудь знает как из ворда, используя его объекты, сохранить рисунок в файл не пользуясь буфером обмена.

← →
holy (2002-11-11 12:13) [1]

Через COM объекты...

← →
kull © (2002-11-11 12:28) [2]

Это понятно что через COM объекты, но как?

Откопал я тут в инете статейку, так в ней следующий пример:

Sub ExportAllShapes() "-- Экспорт всех рисунков в виде графических файлов Dim objShape As Shape Dim strActiveDocName As String Dim strNewDocName As String If ActiveDocument.Shapes.Count <= 0 Then Exit Sub strActiveDocName = ActiveDocument.Name Documents.Add strNewDocName = ActiveDocument.Name "-- копируруем все рисунки в новый документ For Each objShape In Documents(strActiveDocName).Shapes objShape.Select Selection.Copy Documents(strNewDocName).Activate Selection.PasteSpecial Link:=False, _ DataType:=wdPasteMetafilePicture, _ Placement:=wdFloatOverText, DisplayAsIcon:=False Next "-- сохраняем новый документ в формате HTML ActiveDocument.SaveAs FileName:=strNewDocName & ".htm", _ FileFormat:=114, LockComments:=True, _ Password:="", AddToRecentFiles:=False, _ WritePassword:="", _ ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, _ SaveFormsData:=False, SaveAsAOCELetter:=False ActiveWindow.Close Documents(strActiveDocName).Activate "-- удаляем ненужный файл Kill strNewDocName & ".htm" End Sub

Конечно это легко можно перевести на Delphi, но в примере используется буфер обмена. Это не подходит.

Вот я и спрашиваю: можно ли как это сделать без использования буфера?

← →
kull © (2002-11-11 14:25) [3]

Ну что ж вы, мастера?

Или вы способны отвечать только на вопросы типа: как TButton програмно создать, либо как CoInitialize вызвать?

← →
sdram © (2002-11-11 14:39) [4]

Сделай это в ворде, а потом повтори в проге.

← →
kull © (2002-11-11 15:07) [5]

Что сделай?
В ворде можно рисунок из документа в файл сохранить?

← →
Ru © (2002-11-11 15:11) [6]

поковыряйся в хелпе по вёрд, я вроде такое видел, но вот картинки мне не нужны так что извини

← →
Smithson © (2002-11-11 15:33) [7]

Идешь в ворд
говоришь - запустить запись макроса
далее делаешь что хотел
останавливаешь запись макроса
идешь в меню макросы, открываешь свой макрос. Перед тобой запись на VBA того, что тебе надо. Ну а >> Конечно это легко можно перевести на Delphi...
Ну и переводи.

← →
kull © (2002-11-11 17:30) [8]

> Smithson © (11.11.02 15:33)

С радостью бы это сделал!

Но подскажи мне ПОЖАЛУЙСТА, ГДЕ можно в ворде сохранить рисунок из документа в файл?
И уж тогда то я не поленюсь нажать на запись макроса....

:O

Народ!
Неужели никаких идей?

← →
Kudatsky (2002-11-12 16:10) [10]

В какой-то книге по Delphi описывался формат Doc-файла. Не помню в какой, но она распространена по всему ru-net. Может, Пачеко.
Формат достаточно простой. Если в doc-файл вставлена картинка, то это вставлен полностью файл с картинкой. Может пойти по такому пути: открыть doc-файл, попытаться найти рисунок програмно и выгрузить его в файл ?

> Kudatsky (12.11.02 16:10)

Спасибо большое!

Но, дело в том, что мне надо именно через COM объекты...

Кто с объектами Word-a работал? - II Найти похожие ветки