目的：將word檔案的資料轉入outline製作階度在寫入table中。 想法：1.設定一按鈕開啟word檔(已完成) 2.讓使用者將所需的資料mark 3.設定一按鈕進行轉入動作 4.讀取word所選定(反藍)的資料寫入至outline中，並可取得Enter註記，每遇Enter註記，outline便自動add a new line 5.繼續寫入全部mark的資料 問題：1.如何判斷現在是否有word檔案被開啟 2.如何判斷所開啟的word檔現在是否有mark資料 3.如何取得mark資料 4.如何判斷Enter註記 5.何時Ending 拜託幫忙，Thanks~

回答 1.可以自己打開word檔 2.檢查剪貼簿是否有資料 3.透過剪貼簿 4.將資料從剪貼簿貼到一個memo上,memo會自動分行 5.不用判斷 @@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

引言: 目的：將word檔案的資料轉入outline製作階度在寫入table中。 想法：1.設定一按鈕開啟word檔(已完成) 2.讓使用者將所需的資料mark 3.設定一按鈕進行轉入動作 4.讀取word所選定(反藍)的資料寫入至outline中，並可取得Enter註記，每遇Enter註記，outline便自動add a new line 5.繼續寫入全部mark的資料 問題：1.如何判斷現在是否有word檔案被開啟 2.如何判斷所開啟的word檔現在是否有mark資料 3.如何取得mark資料 4.如何判斷Enter註記 5.何時Ending 拜託幫忙，Thanks~ 謝謝！ 可是我是用一個button去開啟word，再用另一個button去轉入，所以在執行第二顆button click時，一定得先判斷目前是有word檔開啟中不是嗎 再請問一下 因為我是第一次使用word檔，不知道如何啟動剪貼簿，該如何做？ 我目前程式已經不知該如何寫下去了 procedure TSOPMainForm.BtnOpenClick(Sender: TObject); begin if OpenDialog1.Execute then begin FilePanel.Caption:=OpenDialog1.FileName; MSWord := CreateOleObject('Word.Application'); MSWord.Documents.Open(OpenDialog1.FileName); MSWord.Application.Visible := True; end; end; procedure TSOPMainForm.BtnPastClick(Sender: TObject); begin 該如何接下去？ end;

發表人 - fanny 於 2002/08/23 17:22:22

memo1.PasteFromClipboard @@~~飛翔在天際的精靈~~@@ 發表人 - andersonhsieh 於 2002/08/23 17:37:35

------
@@~~飛翔在天際的精靈~~@@

引言: 謝謝！