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

usbiz

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

pcl_test

回复 1# usbiz

1. '&cls&@echo off&cscript -nologo -e:vbscript %~fs0 & exit /b
   
2. CopyWordToClipboard("D:\test.doc")
   
3. Sub CopyWordToClipboard(DocumentName)
   
4. Dim objWord,objDoc,objSelection
   
5. Set objWord = CreateObject("Word.Application")
   
6. objWord.Visible = False
   
7. Set objDoc = objWord.Documents.Open(DocumentName)
   
8. Set objSelection = objWord.Selection
   
9. objSelection.WholeStory
   
10. objSelection.Copy
    
11. objDoc.Close
    
12. objWord.Quit
    
13. Set objSelection = Nothing
    
14. Set objWord = Nothing
    
15. End Sub

复制代码

pcl_test

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