將資料庫資料寫入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; |
發表時間：2003-02-24 11:21:00
IP:163.29.xxx.xxx 未訂閱
系統時間：2024-05-17 14:35:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |