Форум: "Основная";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Вниз

конвертирование файла   Найти похожие ветки 

← →
antikaban ©   (2005-09-19 13:26) [0]

Как сделать save as/сохранить как в word-документе програмным путем в Delphi?

---

← →
ssk ©   (2005-09-19 13:36) [1]

SaveDialog

---

← →
Сайбель Алексей ©   (2005-09-19 13:37) [2]

Компонент: TSaveDialog

TSaveDialog displays a modal dialog box for selecting file names and saving files. The dialog does not appear at runtime until it is activated by a call to the Execute method. When the user clicks Save, the dialog closes and the selected file name is stored in the FileName property.

---

← →
ssk ©   (2005-09-19 13:39) [3]

казалось бы, причем здесь конвертирование файла?

---

← →
Сайбель Алексей ©   (2005-09-19 13:55) [4]

только что об этом подумал..

---

← →
Bonjovy   (2005-09-19 14:43) [5]

Вот юзай на здоровье в формате ворда, только не конвертируй больше ничего.

procedure TForm1.CreateReportDOC;
       procedure WinwordClose;
       var wnd: Hwnd;
       begin
          wnd:=FindWindow(nil,"Microsoft Word");
          if wnd<>0 then PostMessage(wnd,WM_CLOSE,0,0);
      end;

var
  MsWord: Variant;
begin
 try
   MsWord := CreateOleObject("Word.Basic");
 except
   Application.MessageBox("Не могу запустить Microsoft Word!","Внимание!!!", MB_ICONWARNING);
   Exit;
 end;

try
   MsWord.FileNew;
   MsWord.Insert("Какой хороший отчёт в Ворде!"#13);
   MsWord.Insert("Абракадабра");
   MSWord.FileSaveAs(ChangeFileExt(ExtractFileName(ParamStr(0)), ".doc");
   MsWord.FileClose;
finally MsWord := UnAssigned end;
   WinwordClose;
   Application.MessageBox("Отчёт записан в файл!", "Внимание!!!", MB_ICONINFORMATION);
end;

---

← →
Bonjovy   (2005-09-19 14:44) [6]

Вот юзай на здоровье в формате ворда, только не конвертируй больше ничего.

procedure TForm1.CreateReportDOC;
       procedure WinwordClose;
       var wnd: Hwnd;
       begin
          wnd:=FindWindow(nil,"Microsoft Word");
          if wnd<>0 then PostMessage(wnd,WM_CLOSE,0,0);
      end;

var
  MsWord: Variant;
begin
 try
   MsWord := CreateOleObject("Word.Basic");
 except
   Application.MessageBox("Не могу запустить Microsoft Word!","Внимание!!!", MB_ICONWARNING);
   Exit;
 end;

try
   MsWord.FileNew;
   MsWord.Insert("Какой хороший отчёт в Ворде!"#13);
   MsWord.Insert("Абракадабра");
   MSWord.FileSaveAs(ChangeFileExt(ExtractFileName(ParamStr(0)), ".doc");
   MsWord.FileClose;
finally MsWord := UnAssigned end;
   WinwordClose;
   Application.MessageBox("Отчёт записан в файл!", "Внимание!!!", MB_ICONINFORMATION);
end;

---

← →
Adder ©   (2005-09-19 23:12) [7]

Сильно упрощенный (но работающий) пример:


unit WordDocU2;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Variants;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
 MSWord: Variant;
begin
   MsWord := CreateOleObject("Word.Application");
   try
       MsWord.Visible:=False;
       MsWord.Documents.Open("D:\My.doc");
       //wdFormatHTML=$00000008;
       MSWord.ActiveDocument.SaveAs("D:\My.html",$00000008);
   finally
       MSWord.Quit;
       MSWord := Unassigned;
   end;
end;
end.



---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.02 c