將資料庫資料寫入Word |
尚未結案
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
Delphi】【發表】Delphi&Word第一章source 【Delphi】【發表】Delphi&Word第一章Word部分 【Delphi】【發表】Delphi&Word第一章htm部分 【Delphi】【發表】Delphi&Word第二章DataToWord source 【Delphi】【發表】Delphi&Word第二章DataToWord htm 【問題】請問Word中的表格是一個什麼樣子的元件呢? 【Delphi】【問題】如何寫一個控制程式套用文字檔於Word方格紙表格? 問題..希望不是最後才發生!建議一次問完!
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
http://delphi.ktop.com.tw/topic.php?topic_id=22330 http://delphi.ktop.com.tw/topic.php?topic_id=22331 http://delphi.ktop.com.tw/topic.php?topic_id=22332 http://delphi.ktop.com.tw/topic.php?topic_id=22702 http://delphi.ktop.com.tw/topic.php?topic_id=22703 http://delphi.ktop.com.tw/topic.php?topic_id=25423 http://delphi.ktop.com.tw/topic.php?topic_id=25555 問題..希望不是最後才發生!建議一次問完!
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
joseph110
一般會員 發表:19 回覆:28 積分:9 註冊:2002-09-05 發送簡訊給我 |
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Excel2000, OleServer, Word2000; type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
var
NRows:integer;
NCols:integer;
t:Table;
c:Cell;
begin
WordApplication1.Connect;
WordDocument1.Connect; //1.如何建立表格?
NRows:=5;
NCols:=5;
T:=WordDocument1.Tables.Add(WordDocument1.Range,NRows,NCols,wdWord9TableBehavior,wdAutoFitFixed); //2.如何將資料寫入之指定格子內?(第幾行,第幾格)
c:=t.Cell(1,1);
c.Select;
WordApplication1.Selection.TypeText('aaaa'); // 3.如何使用WORD的文字家底線?
WordApplication1.Selection.Font.Underline:=wdUnderlineSingle; WordApplication1.Visible:=TRUE; end; end.
|
ccchen
版主 發表:61 回覆:940 積分:1394 註冊:2002-04-15 發送簡訊給我 |
|
00156
高階會員 發表:45 回覆:195 積分:112 註冊:2002-06-01 發送簡訊給我 |
引言: flyup兄,我的Delphi版本為3.0,無法使用請問有其他方法嗎?uses COMOBJ; procedure TForm1.Button1Click(Sender: TObject); var wApp,wdoc:Variant; i,j:integer; begin wApp:=CreateOleObject('Word.Application'); wApp.Documents.Add; wdoc:=wApp.ActiveDocument; wdoc.Tables.Add(wdoc.Range, StringGrid.RowCount,StringGrid.ColCount); for i:=0 to StringGrid.RowCount-1 do for j:=0 to StringGrid.ColCount-1 do wdoc.Tables.Item(1).Cell(i 1,j 1).Range.Text:=StringGrid.Cells[j,i]; wdoc.SaveAs('D:\轉出的WORD表格檔案.DOC'); wApp.Quit; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |