大家好:

小弟利用 Delphi 5 做 MS Word 套印
在自己 Notebook 上結果是 OK 的
Copy 到別台機器上套印結果只要中文的部份卻為亂碼
請教一下大家, 小弟可以做如何的處理？

流程為利用 ADO 執行一 Stored Procedure 將結果填入一文字檔
再將這文字檔套印至 MS Word
小弟檢查過文字檔的內容不是亂碼, 但套印至 MS Word 卻為亂碼
主要程式碼如下:

FDataSourceFile: string;
FDocFile: string;
FWordApplication: Variant;
FWordDocument: Variant;
FWordMailMerge: Variant;

FWordDocument := FWordApplication.Documents.Open(FDocFile);
FWordDocument.Select;
FWordMailMerge := FWordDocument.MailMerge;
FWordMailMerge.OpenDataSource(Name:=FDataSourceFile);
FWordMailMerge.Destination := Word2000.wdSendToNewDocument;
FWordMailMerge.Execute(False);
FWordDocument.Saved := True;
FWordDocument.Close(False);

我沒作過不清楚，不過，是否你的系統是 2000/XP 安裝的系統是 Vista?
是否有預設字碼的問題？把字轉成 UniCode 再套印看看。


■ VMASK - ViewMove Automation Software Kernel ■ VMIO-Server/SECS/GEM ■ dllee's blog ■ dllee's StatPlus ■

------
http://www.ViewMove.com

謝謝 dllee 大大!

電腦的 OS 都是 windows 2000
MS Word 則是 office 2000 SP3

昨天找到 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=25644 這篇
可是沒成功

然後改成直接讀 UAT SQL Server table 的結果還是亂碼
因為 UAT SQL Server 資料庫預設的 COLLATE 為 SQL_Latin1_General_CP850_BIN
之前就遇過無法定序的問題
也就是欄位型態設為 nvarchar, COLLATE 設為 SQL_Latin1_General_CP850_BIN, table 資料可正常顯示
若欄位型態設為 varchar, COLLATE 設為 Chinese_Taiwan_Stroke_BIN, table 資料亦可正常顯示
但在 Word 套印時就印不出來, 連亂碼也沒有...

今天努力把它改成將 SQL Server 的 data 填到 access mdb 內就沒問題

看了 G01 大大的感言和連結的文章, 自己還真汗顏...

編輯記錄

拍謝啦.... 我本來就不會 Delphi, Word 更是少用(用 OOo)，資料庫又是我最肉的一環   

是呀，昨晚看到 G01 的 [分享] 不過就是人性,一個感恩的心 !! 你引以為恥嗎?
內的分享資料，也是花了很久的時間在思考...

可惜，現在才想賣雞排已經來不及了... 可能除了寫程式、除錯外，也要想想還有什麼可以賣的



■ VMASK - ViewMove Automation Software Kernel ■ VMIO-Server/SECS/GEM ■ dllee's blog ■ dllee's StatPlus ■

------
http://www.ViewMove.com