论坛 › 已解决问题区 › 【已解决】引用word进程对象，写入变量或常量内容到word中！！

mpf5566 发表于 2014-6-3 15:55:25

【已解决】引用word进程对象，写入变量或常量内容到word中！！

本帖最后由 mpf5566 于 2014-6-4 13:32 编辑

$word = ObjCreate("word.application")
$word.visible = True
Dim $doc

With $word
        $doc=.documents.add
       
        $doc.selection.typetest("dsadasdasd")
        EndWith应用了word.application，用宏模拟了输入过程得到selection.typetest，但是运行后还是无法写入内容到word中！！求助。。。。。

kevinch 发表于 2014-6-3 20:12:24

typetext
差之毫厘，谬以千里啊

mpf5566 发表于 2014-6-4 09:30:26

$word = ObjCreate("word.application")
$word.visible = True
Dim $doc

With $word
        $doc=.documents.add
       
        $doc.selection.typetext("dsadasdasd")
        EndWith回复 2# kevinch
嗯，粗心。。。{:face (394):} ，不过改过来后还是无法赋值{:face (319):}

kevinch 发表于 2014-6-4 12:32:09

$word = ObjCreate("word.application")
$word.visible = True
Dim $doc

With $word
        $doc=.documents.add
        $doc.application.selection.typetext("dsadasdasd")
        ;$doc.application.selection.range.text="dsadasdasd"
EndWith那是因为你呼叫错了级别，selection对象是直属于application的，$doc是application的下级，你平级命令当然人家不甩你{:face (125):}
另外注释掉的那句与你的结果是一样的，不过更稳定

mpf5566 发表于 2014-6-4 13:29:08

回复 4# kevinch


    {:face (377):}万能的K老师。。。。多谢细心的讲解，受教受教！！

mpf5566 发表于 2014-6-4 13:32:26

回复 4# kevinch


测试了，的确增加了rang参数稳定好多，虽然只差一参数但是可见功底之深厚啊！！{:face (197):}

查看完整版本: 【已解决】引用word进程对象，写入变量或常量内容到word中！！