線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1706
推到 Plurk!
推到 Facebook!

新增 word 文字方塊在不同頁上面

尚未結案
chenbear
一般會員


發表:8
回覆:6
積分:2
註冊:2002-08-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-11-20 10:49:26 IP:218.162.xxx.xxx 訂閱
找了相關文件,目前測試只能再第一頁新增文字方塊
要再第二頁新增時,就無法新增,利用跳頁之後也不行..
看了 delphiwww 的word 那篇,只有提到新增文字方塊
沒有控制新增在那一頁,
自己試了試,google 了許久,也沒找到相關的答案
不知道是否有人使用過..
可否提供一下..謝謝~
chenbear
一般會員


發表:8
回覆:6
積分:2
註冊:2002-08-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-11-21 15:45:39 IP:218.162.xxx.xxx 訂閱
自己回~呵呵
自已測試出來..
目前只有測試到..下面這幾種都可以跳頁..
但是用Goto 好像不是很好...不知是否還有其它的做法,例直接指定頁數..
WordApplication1.Selection.GoTo_(What,Which,Count,CName);
WordApplication1.Selection.GoToNext(wdGoToPage);

第一頁新增文字方塊完成後,假設要再第二頁新增時
必需移動到第二頁,不然只會新增在第一頁
-- 跳到下一頁
WordApplication1.Selection.GoToNext(wdGoToPage);
-- 再新增方字方塊
_Left :=1;
_Top :=80;
_Width :=100;
_Height:=100;
_Anchor:=EmptyParam;
_Replace:=wdReplaceOne;
_Direction:=wdCollapseStart;

WordDocument1.Shapes.AddTextbox (1,_Left,_Top, _Width,_Height, _Anchor).Select(_Replace);
WordApplication1.Selection.ShapeRange.TextFrame. TextRange.Select;
WordApplication1.Selection.Collapse(_Direction);
WordApplication1.Selection.Text:='TEST';
系統時間:2017-10-24 6:38:45
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!