Hi.
Please, show me my mistake - I trying to export text of WPRichText1 to MS Word 2007 but my font ("Times New Roman") is changing to another ("Colibri"), here is screenshot. I need "Times New Roman" in document.
What wrong I do?
I used this:
Code
procedure TForm1.Button1Click(Sender: TObject);varMsWord: OleVariant;i: integer;begintryMsWord:=GetActiveOleObject('Word.Application');excepttryMsWord:=CreateOleObject('Word.Application');MsWord.Visible:=true;exceptException.Create('Error :-(');end;end;MsWord.Documents.Add;WPRichText1.CopyToClipboard(True);MSWord.Selection.PasteSpecial(0, 0, 0, 0, 1);end;
... and this:
Code
procedure TForm1.Button1Click(Sender: TObject);
var
MsWord: OleVariant;
i: integer;
begin
try
MsWord:=GetActiveOleObject('Word.Application');
except
try
MsWord:=CreateOleObject('Word.Application');
MsWord.Visible:=true;
except
Exception.Create('Error :-(');
end;
end;
MsWord.Documents.Add;
WPRichText1.CopyToClipboard(True);
MSWord.Selection.PasteFromClipboard;
end;
Alles anzeigen
... but both variants was failed :(
Thanks in advance!