apang

Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a Folder:", OPTIONS, &h00)
If objFolder is Nothing Then WScript.Quit

strPath = objFolder.Self.Path
strPwd = Inputbox("请输入密码","批量去除密码")
If Len(strPwd) = 0 Then WScript.Quit
Set objWord = CreateObject("Word.Application")
objWord.Visible = true
Set colItems = objShell.NameSpace(strPath).Items

For Each objItem in colItems
        If Left(objItem.Type,21) = "Microsoft Office Word" Then
                Set objDoc = objWord.Documents.Open(objItem.Path,,,,strPwd)
                objDoc.Password = ""
                objWord.selection.TypeText " "
                objWord.selection.TypeBackSpace
                objDoc.SaveAs objItem.Path
                objDoc.Close True
        End If
Next
objWord.Quit

MsgBox "OK"
复制代码

win7 32bit + ms word 2007 测试正常

apang

objItem.Type 在 office 2003 上显示的字串不一样，算了，还是fso遍历吧

Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select a Folder:", OPTIONS, &h00)
If objFolder is Nothing Then WScript.Quit

strPath = objFolder.Self.Path
strPwd = Inputbox("请输入密码","批量去除密码")
If Len(strPwd) = 0 Then WScript.Quit
Set objWord = CreateObject("Word.Application")
objWord.Visible = true
Set fso = CreateObject("Scripting.FileSystemObject")

For Each file in fso.GetFolder(strPath).Files
        strExt = fso.GetExtensionName(file)
        If LCase(Left(strExt, 3)) = "doc" Then
                Set objDoc = objWord.Documents.Open(file.Path,,,,strPwd)
                objDoc.Password = ""
                objWord.selection.TypeText " "
                objWord.selection.TypeBackSpace
                objDoc.SaveAs file.Path
                objDoc.Close True
        End If
Next
objWord.Quit

MsgBox "OK"
复制代码