34,576
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
liyang 2000-07-11
- 打赏
- 举报
给你一个网址，有这方面的的东东。:)
http://jimoptt.qd.sd.cn/~leehaibo/soft/63.htm
http://jimoptt.qd.sd.cn/~leehaibo/soft/63.htm
cqjiang 2000-07-11
- 打赏
- 举报
liyang:谢谢您的回答，但是我不懂VB，也不知道密码，请问有何工具可直接阅读加密的WORD 97文档。
liyang 2000-07-11
- 打赏
- 举报
Dim docTemp As Word.Document
Dim prjTemp As New Word.Application
Set docTemp = prjTemp.Documents.Open("asfddf", , , , "YourOpenDocPwd", "YourTemplatePwd", , "WriteDocPwd", "WriteTemplatePwd")
' docTemp.SaveAs "FileName", wdFormatHTML
docTemp.Close
prjTemp.Quit
Set prjTemp = Nothing
Dim prjTemp As New Word.Application
Set docTemp = prjTemp.Documents.Open("asfddf", , , , "YourOpenDocPwd", "YourTemplatePwd", , "WriteDocPwd", "WriteTemplatePwd")
' docTemp.SaveAs "FileName", wdFormatHTML
docTemp.Close
prjTemp.Quit
Set prjTemp = Nothing
