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的原因执行可能较慢
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024