我在word檔案中建了一個表格，用來以後要用程式填入資料的範本，但資料有很多筆且筆數不定，而我建好的表格只有一個，所以我想用程式先把原始表格複製，但不知語法如何下，目前我只有找到複製一列而已，希望大家幫幫忙忙，謝謝。但前題是後來所複製的表格一定要和原來的一模一樣哦！

你先將table select 然後copy 最後要產生時再用paste就可以了 不過依照經驗,假如你的表格佈滿一頁(通常最後一行是空白行或enter),最好是全選 然後用cut(不是copy) 開始使用表格時先選到最後的位置 再paste 程式結束時, 刪除最後一行的enter

引言: 我在word檔案中建了一個表格，用來以後要用程式填入資料的範本，但資料有很多筆且筆數不定，而我建好的表格只有一個，所以我想用程式先把原始表格複製，但不知語法如何下，目前我只有找到複製一列而已，希望大家幫幫忙忙，謝謝。但前題是後來所複製的表格一定要和原來的一模一樣哦！

如果是全選的話，語法要如何下呀！我試了好幾種都不成功耶！ 還有複製好了之後，如何把游標放回第一頁的第一行呢？ and Enter列要如何刪啊？謝謝！非常感謝！ 發表人 -

開始時 WordDocument1.Range.Select; WordDocument1.Range.Cut; 中間newpage Worddocument1.Range.Characters.Last.select; Worddocument1.Range.Characters.Last.paste; 最後刪除最後一個enter WordDocument1.Range.Characters.Last.Delete(emptyparam,ItemIndex);

引言: 如果是全選的話，語法要如何下呀！我試了好幾種都不成功耶！

開始時 WordDocument1.Range.Select; WordDocument1.Range.Cut; 中間newpage Worddocument1.Range.Characters.Last.select; Worddocument1.Range.Characters.Last.paste; 最後刪除最後一個enter WordDocument1.Range.Characters.Last.Delete(emptyparam,ItemIndex); 游標放回第一頁的第一行 Worddocument1.Range.Characters.First.select;

引言: 如果是全選的話，語法要如何下呀！我試了好幾種都不成功耶！ 還有複製好了之後，如何把游標放回第一頁的第一行呢？ and Enter列要如何刪啊？謝謝！非常感謝！ 發表人 - >< face="Verdana, Arial, Helvetica">

WordApplication1.Connect;       WordApplication1.Documents.Open(_OpenFile,EmptyParam,EmptyParam,EmptyParam,                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,                  EmptyParam,EmptyParam);       WordApplication1.Application.Visible:=true;       WordApplication1.ActiveDocument.Select;       WordApplication1.Selection.Cut;       WordApplication1.Selection.Range.Characters.Last.Select;       WordApplication1.Selection.Range.Characters.Last.Paste;       WordApplication1.Selection.Range.Characters.Last.Paste;       WordApplication1.Selection.Range.Characters.First.Select;       WordApplication1.Selection.Tables.Item(1).Cell(1,2).range.insertafter('this is the test  999999');          WordApplication1.Selection.Tables.Item(2).Cell(1,3).range.insertafter('this is the test  999999');    < >< >< >< > 我copy了2個表格，再把游標放回第一行，但為什麼它只能把找得到第一個表格，而找不到第二個以後的呢？ < >< >< >< > WordApplication1.Selection.Range.Characters.Last.Delete(emptyparam,_Index); WordApplication1.ActiveDocument.SaveAs(_FileName,EmptyParam,_ReadOnly,_PassWord, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam); WordApplication1.ActiveDocument.Close(EmptyParam,EmptyParam,EmptyParam);

WordApplication1.Selection.Range.Characters.Last.Select; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.Last.Select;-->少一行 WordApplication1.Selection.Range.Characters.Last.Paste;    

引言: WordApplication1.Connect; WordApplication1.Documents.Open(_OpenFile,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam); WordApplication1.Application.Visible:=true; WordApplication1.ActiveDocument.Select; WordApplication1.Selection.Cut; WordApplication1.Selection.Range.Characters.Last.Select; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.First.Select; WordApplication1.Selection.Tables.Item(1).Cell(1,2).range.insertafter('this is the test 999999'); WordApplication1.Selection.Tables.Item(2).Cell(1,3).range.insertafter('this is the test 999999'); < >< >< >< > 我copy了2個表格，再把游標放回第一行，但為什麼它只能把找得到第一個表格，而找不到第二個以後的呢？ < >< >< >< > WordApplication1.Selection.Range.Characters.Last.Delete(emptyparam,_Index); WordApplication1.ActiveDocument.SaveAs(_FileName,EmptyParam,_ReadOnly,_PassWord, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam); WordApplication1.ActiveDocument.Close(EmptyParam,EmptyParam,EmptyParam);

< >我已經加了這一行，但是為什麼它還是找不到第二個表格呢？< > 出現 ""集合中所需的成員不存在"" 的訊息。 而且它把第一筆資料寫到第二個表格中，本來第一筆要在第一個表格裡，第二個在第二個表格裡的。為什麼呢？....................... 發表人 - Cassidy 於 2003/03/04 10:05:47

你可以將你的程式上傳嗎,這樣比較容易debug

引言: < >我已經加了這一行，但是為什麼它還是找不到第二個表格呢？< > 出現 ""集合中所需的成員不存在"" 的訊息。 而且它把第一筆資料寫到第二個表格中，本來第一筆要在第一個表格裡，第二個在第二個表格裡的。為什麼呢？....................... 發表人 - Cassidy 於 2003/03/04 10:05:47

發現你的問題 WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; 中間沒有selection    

引言: WordApplication1.Selection.Range.Characters.Last.Select; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.Last.Select;-->少一行 WordApplication1.Selection.Range.Characters.Last.Paste;

引言: WordApplication1.Connect; WordApplication1.Documents.Open(_OpenFile,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam); WordApplication1.Application.Visible:=true; WordApplication1.ActiveDocument.Select; WordApplication1.Selection.Cut; WordApplication1.Selection.Range.Characters.Last.Select; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.Last.Paste; WordApplication1.Selection.Range.Characters.First.Select; WordApplication1.Selection.Tables.Item(1).Cell(1,2).range.insertafter('this is the test 999999'); WordApplication1.Selection.Tables.Item(2).Cell(1,3).range.insertafter('this is the test 999999'); < >< >< >< > 我copy了2個表格，再把游標放回第一行，但為什麼它只能把找得到第一個表格，而找不到第二個以後的呢？ < >< >< >< > WordApplication1.Selection.Range.Characters.Last.Delete(emptyparam,_Index); WordApplication1.ActiveDocument.SaveAs(_FileName,EmptyParam,_ReadOnly,_PassWord, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam); WordApplication1.ActiveDocument.Close(EmptyParam,EmptyParam,EmptyParam);

引言: 發現你的問題 WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; 中間沒有selection

不好意思，因為程式有引用 >

你應該是要用worddocument原件去連接wordapplication 我想你應該參考一下前面兩篇word介紹 原來問題需要改回 WordDocument.Range.Characters.Last.Select;

引言:

引言: 發現你的問題 WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; 中間沒有selection

不好意思，因為程式有引用 > < face="Verdana, Arial, Helvetica">