如題！可以把資料用程式填入Word的表格中嗎？ 謝謝大大.... 發表人 - wsozhang 於 2002/09/24 10:08:15

可否再詳細說明是那一類的報表? 資料丟入Word當然可以,請見本站的Word連結說明資料, http://delphi.ktop.com.tw/topic.php?TOPIC_ID=148 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

格式都已在Word打好，現在只缺是要把 資料填入word的格式中，例如 ________________________________ test │ test1 │ test2 │ ________________________________ (要填入) │(要填入) │(要填入) │ ________________________________ 如何把值填入已設計好的word表格呢？

引言: 格式都已在Word打好，現在只缺是要把 資料填入word的格式中，例如 ________________________________ test │ test1 │ test2 │ ________________________________ (要填入) │(要填入) │(要填入) │ ________________________________ 如何把值填入已設計好的word表格呢？

用VBA,貼程式碼一部份,相信我用VBA來解決最好,一來可與DELPHI/SOURCE脫離,二來用VBA處理的速度,不是DELPHI能比的 如下 Open "c:\text.txt" For Input As #1 Input #1, line1, line2, listnum Selection.Move Unit:=wdColumn, Count:=2 Selection.TypeText (line1) If Trim(line2) <> 0 Then Selection.Move Unit:=wdParagraph, Count:=3 Selection.TypeText (line2) End If Selection.EndKey Unit:=wdStory Do While Not EOF(1) Input #1, filename, anstype, serialno, section If Mid(filename, 1, 1) = "[" Then 'Selection.TypeParagraph 'Selection.Font.Underline = wdUnderlineNone 'Selection.Font.Superscript = False 'Selection.Font.Subscript = False Selection.Font.ColorIndex = 1 Selection.Font.NameFarEast = "標楷體" lenfile = Len(filename) filename1 = Mid(filename, 2, lenfile - 2) Selection.TypeText (filename1) Selection.TypeParagraph Testno = 1 Next