[问题求助] 这个VBS给WORD取消密码怎么不成功?

ww0000

Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Dim objShell,objFolder,FolderPath,pw,wk,EAPP,FSO,FSOFolder,FSOFile
'获取Excel文件所在文件夹路径
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a folder:", OPTIONS,"")
If objFolder Is Nothing Then
Wscript.Quit
End If
FolderPath =objFolder.Self.Path
PW=Inputbox("请输入密码","批量去除密码")
if len(PW)=0 then Wscript.Quit
Set EAPP=CreateObject("Word.Application")
Set FSO=CreateObject("Scripting.FileSystemObject")
Set FSOFolder=FSO.GetFolder(FolderPath)
For Each FSOFile in FSOFolder.Files
If instr(Fsofile.Name,".doc") then
    Set wk=EAPP.Documents.Open(FSOFile.Path,,,,pw)
    wk.Password=""
    wk.Close True
End If
Next
EAPP.Quit
复制代码

ww0000

回复 2# apang


    老师,密码不能删除!1

ww0000

回复 4# DAIC


    XP系统,Office2003

ww0000

回复 4# DAIC


    是不是宏工具里面的工具---引用  没引用? 但加密都可以加的呀!

ww0000

回复 7# DAIC


    上面的代码在W7系统测试成功吗?

ww0000

回复 10# apang


    终于成功,谢谢老师!!