[文本处理] 批处理如何提取一个word文档内容 包含文字和图片到 粘贴板？

usbiz

急需啊 谢谢 网上搜索半天了 没有

pcl_test

回复 1# usbiz

'&cls&@echo off&cscript -nologo -e:vbscript %~fs0 & exit /b
CopyWordToClipboard("D:\test.doc")
Sub CopyWordToClipboard(DocumentName)
Dim objWord,objDoc,objSelection
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Open(DocumentName)
Set objSelection = objWord.Selection
objSelection.WholeStory
objSelection.Copy
objDoc.Close
objWord.Quit
Set objSelection = Nothing
Set objWord = Nothing
End Sub
复制代码

pcl_test

回复 1# usbiz
问题得到解答以后在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html