MS Word и HTML

  • Автор темы Zuk
  • Дата начала
Статус
Закрыто для дальнейших ответов.
Z
#1
Можно ли открыть документ MSWORD'а, а затем сохранить его в формате HTML.
 
?

????

#2
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;
 
B

Barmutik

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

Guest

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

????

#9
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
 
B

Barmutik

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

Код:
 FileName := ChangeFileExt(Doc.Name, '.htm');
Fmt := wdFormatHTML;
Doc.SaveAs(FileName, Fmt);
 
Статус
Закрыто для дальнейших ответов.