MS Word и HTML

Тема в разделе "Delphi - СОМ", создана пользователем Zuk, 16 дек 2004.

Статус темы:
Закрыта.
  1. Zuk

    Zuk Гость

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

    ???? Гость

    Zuk
    Можно! Поэксперементируй с этим кодом:
    Код (Text):
    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;
    Код (Text):
    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;
     
  3. zuksoft

    zuksoft Гость

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

    Btr Гость

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

    Barmutik Гость

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

    Guest Гость

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

    Barmutik Гость

    Человек вообще указал ..
    Значит что-то надо изменить :(
     
  8. Btr

    Btr Гость

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

    ???? Гость

    Btr
    Вот сохранение в html на VBA:
    Код (Text):
      ActiveDocument.SaveAs FileName:="asd.htm", FileFormat:=wdFormatHTML, _
       LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
       :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
       SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
       False
     
  10. Barmutik

    Barmutik Гость

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

    Код (Text):
     FileName := ChangeFileExt(Doc.Name, '.htm');
    Fmt := wdFormatHTML;
    Doc.SaveAs(FileName, Fmt);
     
Загрузка...
Похожие Темы - Word HTML
  1. seoman2
    Ответов:
    6
    Просмотров:
    136
  2. tuxer
    Ответов:
    1
    Просмотров:
    1.621
  3. ioni
    Ответов:
    0
    Просмотров:
    2.813
  4. seoman2
    Ответов:
    57
    Просмотров:
    1.052
  5. Dragon108
    Ответов:
    0
    Просмотров:
    224
Статус темы:
Закрыта.

Поделиться этой страницей