我在网上找了很多通过delphi打开，新建，打印word文档的帖子越看越晕，哪个高手能写一段简单的打开，新建，打印word文档的代码（最好能带详细说明的）以供小弟学习，不胜感激。我用的是office2003

以下程式碼，自word97, word2000, word2002(word Xp),word2003皆可使用，請有word2007者回應可否使用，謝謝。
ComObj, StdCtrls;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure OpenWorddoc;
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
WordApp : OleVariant;
Doc : OleVariant;
SaveNoChanges : OleVariant;
vLink : OleVariant;
vReadOnly :OleVariant;
Documents : OleVariant;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// 開啟 MS-WORD
procedure TForm1.OpenWorddoc;
begin
vLink := unassigned ; // 不使用(可改為Null)
vReadOnly := true ; // 唯讀
// 開始Word應用程式
try
// 如果已有word程式存在，直接使用
WordApp:= CreateOleObject('Word.Application');
end;
// 顯示Word
WordApp.Application.Visible := true;
// 開啟你的文件
Documents := WordApp.Documents;
if Form1.OpenDialog1.Execute then begin
Doc :=Documents.Open(OpenDialog1.FileName,vLink, vReadOnly);
end;
end;

// 列印
procedure TForm1.Button2Click(Sender: TObject);
begin

WordApp.DisplayAlerts := 0; // 不顯示提示訊息
doc.close(SaveNoChanges); // 關閉文件
wordapp.saveas(SaveDialog1.FileName);
end;
SaveNoChanges := True;
doc.close(SaveNoChanges);
end;

// 開檔
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenWorddoc;
end;

end.

------
努力會更接近成功

編輯記錄

忘记说写入文档的代码了，帮忙把写入文档的代码也写一下，谢谢。
(主要是那些写入文档时常用的指令，比如换行、空格......)

編輯記錄

[code delphi]
// 寫入文檔
procedure TForm1.Button5Click(Sender: TObject);
begin
doc.Range.InsertAfter('寫入文檔的代碼');
end;
[/code]

===================引 用 wq236589 文 章===================
忘记说写入文档的代码了，帮忙把写入文档的代码也写一下，谢谢。
(主要是那些写入文档时常用的指令，比如换行、空格......)

------
努力會更接近成功

新建、清空文档的代码怎么写？

[code delphi]
// 新建
procedure TForm1.Button5Click(Sender: TObject);
begin
doc := documents.Add;
end;

// 清空文檔
procedure TForm1.Button5Click(Sender: TObject);
begin
doc.Range.Text := '';
end;
[/code]

------
努力會更接近成功

編輯記錄

刚刚用D2009 WORD2007试了一下，完全可以用。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !