MS Word и HTML

[Zuk]

Можно ли открыть документ MSWORD'а, а затем сохранить его в формате HTML.

 

[????]

Zuk
Можно! Поэксперементируй с этим кодом:

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;

 

[zuksoft]

А если попробывать через компоненты SERVER?

 

[Btr]

Zuk
Можно! Поэксперементируй с этим кодом:

Код

А где здесь собственно экспорт в HTML?

 

[Barmutik]

Открыть документ и сохранить как HTML... что конкретно не ясно?

 

[Guest]

Barmutik
Не ясно где это происходит в выше приведенном коде
Как переписать док в ртф, да
А где перенос из ворда в хтмл ???

 

[Barmutik]

Человек вообще указал ..

Поэксперементируй с этим кодом:

Значит что-то надо изменить

 

[Btr]

Изменением расширения проблема не решаеться

 

[????]

Btr
Вот сохранение в html на VBA:

  ActiveDocument.SaveAs FileName:="asd.htm", FileFormat:=wdFormatHTML, _
   LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
   :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
   SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
   False

 

[Barmutik]

А в чём проблема? Всё сохраняет ...

 FileName := ChangeFileExt(Doc.Name, '.htm');
Fmt := wdFormatHTML;
Doc.SaveAs(FileName, Fmt);