Программо получить RTF из OLE-automated Word a

← →
Andrew Dovgal (2005-09-30 17:15) [0]

Может кому приходилось делать? Подкиньте пример или ссылочку.

Речь идет именно о OLE-automated Word. С обычной автоматизацией проблем возникать не должно.

← →
YurikGL © (2005-09-30 20:41) [1]

> Речь идет именно о OLE-automated Word. С обычной автоматизацией
> проблем возникать не должно.

А что есть в данном контексте обычная автоматизация?

Если через OLE, макрос будет выглядить так:

ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=100, LockComments _ :=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False
Соответсвенно на делфи это будет выглядить примерно так:

ActiveDocument.SaveAs("Doc1.doc",100,False,"",True,"",False, False,False,False,False

Заместо false-в можно Emptyparam написать... Или вообще опустить.

← →
Adder © (2005-09-30 21:25) [2]

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MsWord := CreateOleObject("Word.Application");
try
MsWord.Visible:=False;
MsWord.Documents.Open("D:\My.doc");
//wdFormatHTML=$00000008;
// wdFormatRTF = $00000006;
MSWord.ActiveDocument.SaveAs("D:\My.rtf",$00000006);
finally
MSWord.Quit;
MSWord := Unassigned;
end;
end;

← →
Andrew Dovgal (2005-10-04 21:57) [3]

//MsWord := CreateOleObject("Word.Application");

Это не тот случай. У меня TOleContainer в котором содержиться WordDocument. Вопросы

1) Можно ли сделать так чтобы при запуске embeded document был уже открыт без необходимости двойного щелчка

2) Как из него выдрать RTF

← →
Adder © (2005-10-04 22:34) [4]

не работала с OleContainer, но эксперимент показал:
1)AutoActivate :=aaGetFocus (вполне возможно, есть более правильное решение)
2)OleContainer1.OleObject.SaveAs("D:\My.rtf",$00000006);

← →
Andrew Dovgal (2005-10-05 13:13) [5]

Спасибо.

Еще такой вопрос. При активации WordDocument пожирает все окно и перекрывает собой все другие контролы на форме. Как его загнать в рамки?

Iconik:=true

Если надо и менюшки убать, то работаем через
OleContainer1.OleObject.CommandBars.Item["Standard"].параметр....
там есть и visible и много чего...

Программо получить RTF из OLE-automated Word a Найти похожие ветки