如何寫一個控制程式套用文字檔於Word方格紙表格？     發表人 - flyup 於 2003/02/04 13:53:47

f sir:          文字檔的格式為何?                           

------
︿︿

引言: f sir: 文字檔的格式為何?

記事本的文字檔--->OLE控制程式--->填入Word方格紙表格 ps.文字檔的格式為主題名稱 文章段落。 只要能自動把文字檔資料填入Word方格紙表格中即可！

OLE (物件聯結交換) 是    記事本 link   Word  還是  word   Link   記事本?    若是 文字檔的格式為主題名稱+文章段落 則   表格大小為 1*2 若不是 則 必須以 分格符號 做判決斷?                        

------
︿︿

引言: OLE (物件聯結交換) 是 記事本 link Word 還是 word Link 記事本? 若是 文字檔的格式為主題名稱 文章段落 則 表格大小為 1*2 若不是 則 必須以 分格符號 做判決斷?

文字檔：若是 文字檔的格式為主題名稱 文章段落，必須以 分格符號 做判決斷 。 那如何用delphi寫一個程式開啟文字檔...選擇要套用的WORD文件， 並自動填入到Word正式表格文件檔中。

F SIR:         你的意思 , 是不是將文字檔讀入      然後填入已畫好的表格中嗎        

------
︿︿

引言: F SIR: 你的意思 , 是不是將文字檔讀入 然後填入已畫好的表格中嗎

對阿！

F SIR:   我的  Word2000 裡  找不到   方格紙表格範本?        

------
︿︿

引言: F SIR: 我的 Word2000 裡 找不到 方格紙表格範本?

word2000-->檔案-->開新檔案-->其他-->稿紙精靈 若沒有，表示你的OFFICE 2000 不是完整安裝！！

F SIR:           果然是大內高手           OFFICE2000 果然是安裝不完整        正在重新安裝中.....          

------
︿︿

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls,  OleServer,Word2000;        type   TForm1 = class(TForm)            Memo1: TMemo;     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 I:INTEGER; S:STRING; begin      Memo1.Lines.LoadFromFile('D:\TEST.TXT');      WordApplication1.Connect;       WordApplication1.Documents.Open('D:\稿紙精靈.doc');      WordApplication1.Selection.Selection.WholeStory    ;   WordApplication1.Selection.Delete(wdCharacter,1);      FOR I:=0 TO  Memo1.Lines.Count-1 do   begin       s:=Memo1.Lines.Strings[I];    WordApplication1.Selection.TypeText(s);    WordApplication1.Selection.TypeParagraph;   end;        end;        

------
︿︿

引言: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleServer,Word2000; type TForm1 = class(TForm) Memo1: TMemo; 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 I:INTEGER; S:STRING; begin Memo1.Lines.LoadFromFile('D:\TEST.TXT'); WordApplication1.Connect; WordApplication1.Documents.Open('D:\稿紙精靈.doc'); [錯誤！！]形式參數與實際參數必須要一致！！ WordApplication1.Selection.Selection.WholeStory ; WordApplication1.Selection.Delete(wdCharacter,1); FOR I:=0 TO Memo1.Lines.Count-1 do begin s:=Memo1.Lines.Strings[I]; WordApplication1.Selection.TypeText(s); WordApplication1.Selection.TypeParagraph; end; end;

WordApplication1.Documents.Open('D:\稿紙精靈.doc'); [錯誤！！]形式參數與實際參數必須要一致！！

WordApplication1.Documents.Open('D:\稿紙精靈.doc'); [錯誤！！]形式參數與實際參數必須要一致！！ WordApplication1.Documents.Open('D:\稿紙精靈.doc',FALSE,FALSE,FALSE,'','',FALSE,'','',wdOpenFormatAuto); 發表人 - cmf 於 2003/02/05 09:02:08

------
︿︿