各位前輩,我有以下的程式,但有一點小問題想請教, 例如程式執行後我按二次 save 後把資料分別存成二檔, 然後關閉程式,結果我按 crtl+alt+del 會顯示兩個 Winword 程式還死在裡面,我只好強制把它刪掉, 問題以此類推. 我在存檔後用 word_doc.application.quit; 想把它關掉但會出現 錯誤,我真的不知道怎麼寫了,有誰可以伸出援手嗎? 另外, 我想知道若用     Word_doc:=CreateoleObject('word.application'); 自動產生檔案的情況下,怎樣把內容 add 到 word 檔案中呢? 我用       word_doc.insert(str+#13); 就不行了, 感激各位.    procedure TMainForm.SaveToWordClick(Sender: TObject); var str: String;     i: Integer;     word_doc: Variant; begin   try     Table1.TableName:=TableList.Text;     Table1.open;   except     Showmessage('Can''t open '+TableList.Text+' table !!');     exit;   end;       SaveDialog1.Title:='Save Table to Word File';   SaveDialog1.InitialDir:= GetCurrentDir;   SaveDialog1.FileName:= TableList.Text;   try     Word_doc:=CreateoleObject('word.basic');     Word_doc.filenew('Normal');   except     Showmessage('Can''t start Microsoft Word');     exit;   end;   while not table1.Eof do   begin     str:='';     for i := 0 to table1.FieldCount-1 do       str:=str+table1.Fields[i].AsString+' , ';     word_doc.insert(str+#13);     table1.Next;   end;      table1.close;   SaveDialog1.Execute;   word_doc.filesaveas(SaveDialog1.FileName);   Showmessage('Save to Word File succeed!!');   end;     問的好得

. . . word_doc.filesaveas(SaveDialog1.FileName); word_doc:= Unassigned;//加上這一句 Showmessage('Save to Word File succeed!!'); end; 發表人 - chih 於 2003/04/11 15:37:15

Word執行後，用Quit關閉看看：

wdApp:=CreateOleObject('Word.Application');
...
wdApp.Quit;

在Word中加入內容，建議你參考Microsoft的網站有關Word Document物件的說明： http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrworkingwithdocumentcontent.asp 下面我寫了一個簡單的例子：

procedure TForm1.Button1Click(Sender: TObject);
var wdApp,doc:Variant;
begin
  wdApp:=CreateOleObject('Word.Application');
  try
    doc:=wdApp.Documents.Add;
    doc.Range.Text:='this is a test...';
    doc.SaveAs('C:\test.doc');
  finally
    wdApp.Quit;
  end;
end;

你發問時可能選錯了, [BCB]問題, 應該是[delphi] 麻煩注意一下

Sorry 版主，可能疏忽選錯了，謝謝您的指正    Hi Chih, 謝謝您的建議，但 我加入這一行 word_doc:= Unassigned;//加上這一句 狀況還是一樣，不知是哪裡出問題？ 我是用 CreateoleObject('word.basic'); 不知是不是有差異？    Hi 00156, 用  CreateOleObject('Word.Application'); 是可以用 Quit 關閉的， 謝謝您的建議     問的好得

請問一下 v.filenew('normal');這一句是在說什麼呢??? 如不用的話有什麼關係嗎??? 還有我的程式碼如下 procedure TForm1.Word1Click(Sender: TObject); var filename,password,input,s:string; i:integer; v:variant; begin v:=createoleobject('word.basic'); v.filenew('normal'); input:=inputbox('訊息視窗','請輸入您欲轉檔的資料表',''); try datamodule7.clientdataset1.CommandText:='select * from ' input; datamodule7.ClientDataSet1.open; while (not datamodule7.ClientDataSet1.eof)do begin s:=''; for i:=0 to datamodule7.ClientDataSet1.FieldCount-1 do s:=s datamodule7.ClientDataSet1.Fields[i].asstring ' '; v.insert(s #1310); datamodule7.ClientDataSet1.Next; end; datamodule7.ClientDataSet1.close; filename:=inputbox('請輸入','請輸入檔案名稱','c:\*.doc'); v.filesaveas(filename,,,); except messagedlg('檔案名稱己存在請在取別的檔名謝謝!!',mterror,[mbok],0); end; end; 可是每一次我儲存完後要去開啟這個檔案時每次word檔都當機我還少了什麼指令嗎???謝謝 發表人 - sundy6719 於 2004/03/07 21:36:36

各位前輩 我還是不了解 CreateoleObject('word.basic')與CreateOleObject('Word.Application') 到底有什麼差異呢?? 如果 以下面的程式為例 要修改為用CreateOleObject('Word.Application')該怎麼寫ㄋㄟ?? 謝謝囉...^^ procedure TForm1.Button1Click(Sender: TObject); var v : variant; str : string; i : integer; begin v := CreateoleObject('word.basic'); v.filenew('Normal'); Query1.open; while not Query1.eof do begin str :=''; for i := 0 to Query1.Fieldcount-1 do begin str := str Query1.Fields[i].Asstring ' '; end; v.insert(str #13#10); Query1.next; end; Query1.close; v.FileSaveas(Edit1.Text,,,); end;