Question

按键精灵 提取某个WORD的全部内容到剪切板 或者直接输入出去

我想提取某个WORD的全部内容到剪切板 或者直接输入出去

怎么实现呢

求助各位大神~！！！
必须是word，不能是txt。。

Answer 1

lsFileName ="C:\Helloworld.doc" '请将此处替换为word文档地址
Set wordObj = CreateObject("Word.Application")    '调用word应用类
wordObj.Visible = False    '设置为不可见
wordObj.Documents.Open (lsFileName) '打开word文档
mStr = wordObj.ActiveDocument.Content.Text'读取word文档内容并赋值给mStr
wordObj.Quit '退出word应用类
Set wordObj = Nothing    '销毁word应用类
'MsgBox mStr'弹出word内容窗口(此行作调试用)
Call Plugin.Sys.SetCLB(mStr)'把word内容设置为剪贴板
'因为word的原因执行可能较慢

追问

能不能复制到剪切板？
然后我需要设置字体、颜色等等

追答

代码里已经有复制到剪切板了。但是设置字体颜色是什么意思