Z
save a Word Document as Rtf
uses ComObj;
function ConvertDoc2Rtf(var FileName: string) : Boolean;
var
oWord: OleVariant;
oDoc: OleVariant;
begin
Result := False;
try
oWord := GetActiveOleObject('Word.Application');
except
oWord := CreateOleObject('Word.Application');
end;
oWord.Documents.Open(FileName);
oDoc := oWord.ActiveDocument;
FileName := ChangeFileExt(FileName, '.rtf');
oDoc.SaveAs(FileName);
oWord.ActiveDocument.Close(wdDoNotSaveChanges, EmptyParam, EmptyParam);
oWord.Quit(EmptyParam, EmptyParam, EmptyParam);
oDoc := VarNull;
oWord := VarNull;
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
FileName = 'c:\Document.doc';
begin
if ConvertDoc2Rtf(FileName) then
begin
ShowMessage('Word document has been converted to .rtf');
RichEdit1.Lines.LoadFromFile(FileName);
end;
end;
uses
ComObj;
...
var
Word: Variant;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Word:=CreateOLEObject('Word.Application');
Word.Visible:=True;
Word.Documents.Open(GetCurrentDir+'\Test.doc');
Word.WordBasic.Insert('Greatis ');
Word.Documents.Save;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Word.Documents.Close;
end;
Zuk
Можно! Поэксперементируй с этим кодом:
Код
Поэксперементируй с этим кодом:
ActiveDocument.SaveAs FileName:="asd.htm", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
FileName := ChangeFileExt(Doc.Name, '.htm');
Fmt := wdFormatHTML;
Doc.SaveAs(FileName, Fmt);
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab