以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在调用外部程序打开word文件后怎样实现CTRL+A和CTRL+C全选和复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132658)

--  作者:lxy060669
--  发布时间:2019/3/26 21:30:00
--  在调用外部程序打开word文件后怎样实现CTRL+A和CTRL+C全选和复制
老师辛苦了,请问:
在调用外部程序打开word文件后怎样实现模拟CTRL+A和CTRL+C全选和复制内容到剪贴板?
--  作者:有点蓝
--  发布时间:2019/3/26 22:26:00
--  
使用vba复制

Dim app As New MSWord.Application
try
    Dim fileName = "f:\\123.docx"
    Dim doc = app.Documents.Open(fileName)
    app.Selection.WholeStory()
    app.Selection.Copy()
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

--  作者:lxy060669
--  发布时间:2019/3/26 22:31:00
--  
那如果是方正的ceb程序呢?打开文档后怎么复制到剪贴板来呢?
[此贴子已经被作者于2019/3/26 22:30:54编辑过]

--  作者:有点蓝
--  发布时间:2019/3/26 22:38:00
--  
我也不会
--  作者:lxy060669
--  发布时间:2019/3/26 22:45:00
--  
我试一试,看能不能用按键精灵来操作。
--  作者:有点甜
--  发布时间:2019/3/27 10:34:00
--  

参考

 

下载信息  [文件大小:340.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:嵌入控制.table


--  作者:lxy060669
--  发布时间:2019/3/27 11:32:00
--  
   谢谢老师们!
    我昨天晚上实现了,全天用了18个小时。终于搞定了。
    最后方法是调用外部程序,依照按键精灵的逻辑操作,居然实现了!!
   空闲的时候把过程写出来分享,说不定得到精品贴呢。