编辑框直接读入word文档数据

清除剪辑板 ()
word对象.创建 (“word.Application”, )
通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “Word文件|*.doc;*.docx”
.如果真 (通用对话框1.打开 () ＝ 假)
返回 ()
.如果真结束
word对象.读对象型属性 (“Documents”, ).对象型方法 (“Open”, 通用对话框1.文件名)
word对象.写属性 (“Visible”, 假) ' 隐藏打开word文档
word对象.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Content”, ).对象型方法 (“Copy”, )
编辑框1.内容 ＝ 取剪辑板文本 ()
清除剪辑板 ()
word对象.方法 (“Quit”, )