如何複製word範本的表格 |
尚未結案
|
Cassidy
一般會員 發表:1 回覆:4 積分:1 註冊:2003-02-25 發送簡訊給我 |
#1
發表時間:2003-02-25 18:43:52
IP:211.21.xxx.xxx 未訂閱
我在word檔案中建了一個表格,用來以後要用程式填入資料的範本,但資料有很多筆且筆數不定,而我建好的表格只有一個,所以我想用程式先把原始表格複製,但不知語法如何下,目前我只有找到複製一列而已,希望大家幫幫忙忙,謝謝。但前題是後來所複製的表格一定要和原來的一模一樣哦!
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#2
發表時間:2003-02-26 09:00:24
IP:202.145.xxx.xxx
未訂閱
你先將table select
然後copy
最後要產生時再用paste就可以了
不過依照經驗,假如你的表格佈滿一頁(通常最後一行是空白行或enter),最好是全選
然後用cut(不是copy)
開始使用表格時先選到最後的位置
再paste
程式結束時,
刪除最後一行的enter
引言: 我在word檔案中建了一個表格,用來以後要用程式填入資料的範本,但資料有很多筆且筆數不定,而我建好的表格只有一個,所以我想用程式先把原始表格複製,但不知語法如何下,目前我只有找到複製一列而已,希望大家幫幫忙忙,謝謝。但前題是後來所複製的表格一定要和原來的一模一樣哦! |
Cassidy
一般會員 發表:1 回覆:4 積分:1 註冊:2003-02-25 發送簡訊給我 |
#3
發表時間:2003-02-26 14:30:23
IP:211.21.xxx.xxx
未訂閱
如果是全選的話,語法要如何下呀!我試了好幾種都不成功耶!
還有複製好了之後,如何把游標放回第一頁的第一行呢?
and Enter列要如何刪啊?謝謝!非常感謝! 發表人 -
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#4
發表時間:2003-02-26 17:07:07
IP:202.145.xxx.xxx
未訂閱
開始時
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);
引言: 如果是全選的話,語法要如何下呀!我試了好幾種都不成功耶! |
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#5
發表時間:2003-02-27 13:16:04
IP:202.145.xxx.xxx
未訂閱
開始時
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"> |
Cassidy
一般會員 發表:1 回覆:4 積分:1 註冊:2003-02-25 發送簡訊給我 |
#6
發表時間:2003-03-03 11:08:12
IP:211.21.xxx.xxx
未訂閱
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);
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#7
發表時間:2003-03-03 12:25:17
IP:202.145.xxx.xxx
未訂閱
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
一般會員 發表:1 回覆:4 積分:1 註冊:2003-02-25 發送簡訊給我 |
#8
發表時間:2003-03-04 09:51:45
IP:211.21.xxx.xxx
未訂閱
< >我已經加了這一行,但是為什麼它還是找不到第二個表格呢?< > 出現 ""集合中所需的成員不存在"" 的訊息。
而且它把第一筆資料寫到第二個表格中,本來第一筆要在第一個表格裡,第二個在第二個表格裡的。為什麼呢?....................... 發表人 - Cassidy 於 2003/03/04 10:05:47
|
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#9
發表時間:2003-03-04 10:10:50
IP:202.145.xxx.xxx
未訂閱
你可以將你的程式上傳嗎,這樣比較容易debug
引言: < >我已經加了這一行,但是為什麼它還是找不到第二個表格呢?< > 出現 ""集合中所需的成員不存在"" 的訊息。 而且它把第一筆資料寫到第二個表格中,本來第一筆要在第一個表格裡,第二個在第二個表格裡的。為什麼呢?....................... 發表人 - Cassidy 於 2003/03/04 10:05:47 |
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#10
發表時間:2003-03-05 12:36:22
IP:202.145.xxx.xxx
未訂閱
發現你的問題
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); |
Cassidy
一般會員 發表:1 回覆:4 積分:1 註冊:2003-02-25 發送簡訊給我 |
#11
發表時間:2003-03-05 14:32:41
IP:211.21.xxx.xxx
未訂閱
引言: 發現你的問題 WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; WordApplication1.Range.Characters.Last.Select; WordApplication1.Range.Characters.Last.Paste; 中間沒有selection不好意思,因為程式有引用 > |
delphiwww
資深會員 發表:145 回覆:363 積分:368 註冊:2002-03-13 發送簡訊給我 |
#12
發表時間:2003-03-06 08:52:11
IP:202.145.xxx.xxx
未訂閱
你應該是要用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"> |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |