delphi向word指定位置输出字符串的方法? |
答題得分者是:pceyes
|
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
憑空想像,沒有測過,希望沒有錯誤。
[code delphi] use comobj; var S: array[0..6] of char; i: integer; begin Wordapp := CreateOleObject('Word.application'); { Set to all spaces } FillChar(S, SizeOf(S), Ord(' ')); { Press 14 Enter } for i := 0 to 14 -1 do begin wordapp.selection.TypeParagraph; end; { Press 7 Spaces } WordApp.Selection.TypeText(s); end; [/code]
------
努力會更接近成功 |
wq236589
一般會員 發表:21 回覆:37 積分:16 註冊:2008-08-27 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
1.不空的字元移動用法
[code delphi] procedure TForm1.Button29Click(Sender: TObject); var Charcount,Linecount, _Unit, _Extend: OleVariant; begin // 注意:如果該文檔沒有你要移的數量,它會移到最後一行(字元) // 移到第14列(向下移13行) Linecount:=14-1; _Unit:=wdLine; _Extend:=wdMove; //wdExtend Wordapp.Selection.MoveDown(_Unit,LineCount,_Extend); // 右移7個字元 _Unit:=wdCharacter; Charcount:=7; _Extend:=wdMove; //wdExtend WordApp.Selection.MoveRight(_Unit,Charcount,_Extend); end; [/code] 2.Cell的用法,前提要真的有表格 // item 表示第幾個表格 // i j 表示第幾行第幾列 // SetRange表示Start,End字元 WordDoc.Tables.Item(1).Cell(i,j).Range.SetRange(0,0);
------
努力會更接近成功 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |