[求助]：数据文件如何传送到word文档中?

挚友

我从CAD中已将数据保存到.dat或.txt文件中,如何将这些数据传送到word已建好的表格中:
  例如: .dat文件中
电力电缆 VV22-0.6/1     m    200
word中有定制好的表格,怎么将数据传送到指定的位置

    请高手们详细说明一下,谢谢

亲朋

?

zhang8755

在WORD中编一个vba宏完成。

挚友

能说的具体点吗，可那有参考文献？

雪山飞狐(lzh)

可以看看Word的VBA帮助，如果你安装了OfficeXP，是VBAWD10.CHM文件

亲朋

谢谢,非常感谢...

对了,还有一个问题,能将这个数据文件的数据传送到excel吗?
怎么办.

雪山飞狐(lzh)

那就看看excel的VBA帮助VBAXL10.CHM，上面的都是通过ActiveX，要打开Word或Excel，有一种办法可以将Excel文件当作数据库打开，不过我没试过，：）

Job_ho

以下是一lisp與word的范例,看看吧!!
(defun c:mw-test1()
   (vl-load-com)
   ;;WORD 97 & 98 ' 請執行以下幾行
   ;;(setq mwlib "C:\\Program Files\\Microsoft Office\\Office\\MSWORD8.olb")
   ;;WORD 2000 ' 請執行以下幾行
   ;;(setq mwlib "C:\\Program Files\\Microsoft Office\\Office\\MSWORD9.olb")
   ;; WORD XP ' 請執行以下幾行
   (setq mwlib "C:\\Program Files\\Microsoft Office\\Office10\\MSWORD.olb")
   (if (null MW-accept)
     (vlax-import-type-library
           :tlb-filename           mwlib                ;;資源庫檔案
        :methods-prefix         "MW-"                ;;方法
        :properties-prefix         "MW-"                ;;性質
        :constants-prefix         "MW-"                ;;常數
     )
   )
   ;;建立WORD 母體應用程式物件
   (setq WORDobj (vlax-create-object "WORD.Application"))
   (vla-put-visible WORDobj 1)
   (setq docs(vlax-get-property WORDobj 'documents))
   (setq docobj(vlax-invoke-method docs 'Add))
   (setq pgobj(MW-get-paragraphs docobj))
   (setq lastpgobj (MW-get-last pgobj))
   (setq range (MW-get-range lastpgobj))
   (MW-put-bold range 1)
   (MW-insertafter range "翔虹AutoCAD 技術中心")
   (MW-insertafter range "\nVisual LISP ActiveX太神奇了!")
   (setq filename "c:\\2000toolsb\\test\\wordtest1.doc")
   (vlax-invoke-method docobj "Saveas" filename nil nil nil nil nil nil)
)