Re: Open wod docs in a folder, enter password and save with password removed
Word VBA...
Sub RMPW()
Dim vDirectory As String
Dim oDoc As Document
Dim strPW As String
'// ALL PASSWORDS ARE ASSUMED TO BE THE SAME!
strPW = InputBox("Enter the document password...", "Password")
If strPW = "FALSE" Or strPW = vbNullString Then
Exit Sub
End If
On Error GoTo Catch
'// Change as needed
vDirectory = "C:\temp\test\"
'// Documents are saved without password to a new directory (Saved)
On Error Resume Next
MkDir vDirectory & IIf(Right(vDirectory, 1) <> "\", "\", vbNullString) & "Saved"
vFile = Dir(vDirectory & "*.doc*")
Do While vFile <> ""
Set oDoc = Documents.Open(FileName:=vDirectory & vFile, PasswordDocument:=strPW)
'// Document elements protection - may not be needed.
If oDoc.ProtectionType <> wdNoProtection Then
oDoc.Unprotect Password:=strPW
End If
oDoc.SaveAs FileName:=oDoc.Path & "\Saved\" & oDoc.Name, AddToRecentFiles:=False, WritePassword:="", Password:=""
ResumePoint:
oDoc.Close SaveChanges:=wdDoNotSaveChanges
vFile = Dir
Loop
Exit Sub
Catch:
If Err.Number = 4605 Then Resume ResumePoint
MsgBox "ERROR: " & Err.Description
End SubEasiest way to remove a password on opening is to save to another file - code creates a 'SAVED' directory under the directory holding the files.
Also removes any protection applied to elements of the document. You did not specify if that was required and cen be commented out if needed.
QuoteI have the password...
Taking you at your word here - assuming there is 1 common password. Note that passwords are case sensitive.
Re: Open wod docs in a folder, enter password and save with password removed
Comment out the line
' If Err.Number = 4605 Then Resume ResumePoint
by adding an Apostrophe at the beginning of the line, then see if any messages are displayed.
It's pointless trying to expand this until it works for 1 directory but you really should have mentioned that to begin with as it will need to be rewritten.
Re: Open wod docs in a folder, enter password and save with password removed
If you were missing a reference to a library it would simply error... Are you sure you changed the source directory as commented ...
'// Change as needed
vDirectory = "C:\temp\test\"If you did, then this version logs everything it does, try running that and view the log afterwards...
Sub RMPW()
Dim vDirectory As String
Dim oDoc As Document
Dim strPW As String
Dim strTemp As String
Dim iFile As Integer
iFile = FreeFile
Open Environ("Temp") & "\ozgrid.log" For Output As #iFile
WL iFile, "Started"
'// ALL PASSWORDS ARE ASSUMED TO BE THE SAME!
strPW = InputBox("Enter the document password...", "Password")
If strPW = "FALSE" Or strPW = vbNullString Then
WL iFile, "Cancelled"
Close #iFile
Exit Sub
End If
WL iFile, "Password=" & strPW
On Error GoTo Catch
'// Change as needed
vDirectory = "C:\temp\test\"
'// Documents are saved without password to a new directory (Saved)
On Error Resume Next
MkDir vDirectory & IIf(Right(vDirectory, 1) <> "\", "\", vbNullString) & "Saved"
If Err.Number > 0 Then
WL iFile, "Directory exists"
Else
WL iFile, "Directory exists"
End If
On Error GoTo Catch
vfile = Dir(vDirectory & "*.doc*")
Do While vfile <> ""
WL iFile, ""
WL iFile, "File: " & vfile
Set oDoc = Documents.Open(FileName:=vDirectory & vfile, PasswordDocument:=strPW)
WL iFile, "Opened"
'// Document elements protection - may not be needed.
If oDoc.ProtectionType <> wdNoProtection Then
oDoc.Unprotect Password:=strPW
WL iFile, "Content protection removed"
End If
oDoc.SaveAs FileName:=oDoc.Path & "\Saved\" & oDoc.Name, AddToRecentFiles:=False, WritePassword:="", Password:=""
WL iFile, "Saved as " & oDoc.FullName
ResumePoint:
oDoc.Close SaveChanges:=wdDoNotSaveChanges
WL iFile, "Closed"
vfile = Dir
Loop
Finally:
WL iFile, "Finished"
Close iFile
Shell "NOTEPAD.EXE " & Environ("Temp") & "\ozgrid.log", vbNormalFocus
Exit Sub
Catch:
'If Err.Number = 4605 Then Resume ResumePoint
MsgBox "ERROR: " & Err.Description
WL iFile, Err.Description
Resume Finally
End Sub
Private Sub WL(i As Integer, str As String)
Print #i, Format(Now, "yyyymmmdd hh:mm:ss") & vbTab & str
End SubSample output below
2015Sep08 08:08:37 Started
2015Sep08 08:08:39 Password=Test
2015Sep08 08:08:39 Source directory=C:\temp\test\
2015Sep08 08:08:39 SAVED Directory exists
2015Sep08 08:08:39
2015Sep08 08:08:39 File: test1.doc
2015Sep08 08:08:39 Opened
2015Sep08 08:08:40 Saved as C:\temp\test\Saved\test1.doc
2015Sep08 08:08:40 Closed
2015Sep08 08:08:40
2015Sep08 08:08:40 File: test1.docx
2015Sep08 08:08:40 Opened
2015Sep08 08:08:40 Saved as C:\temp\test\Saved\test1.docx
2015Sep08 08:08:40 Closed
2015Sep08 08:08:40 Finished
Re: Open wod docs in a folder, enter password and save with password removed
Are you running this in Word or Excel...?
Re: Open wod docs in a folder, enter password and save with password removed
QuoteI feel like such...
Nah, we all do things like that at times. But can I reserve the right to quote you in future? 
Adding code in Word is the same as Excel, Alt-F11 for the VBA environment and just paste the code, cursor somewhere in the code and press F5.
Re: Open wod docs in a folder, enter password and save with password removed
You're welcome.
Re: Open wod docs in a folder, enter password and save with password removed
Quote from cytop;755915Nah, we all do things like that at times. But can I reserve the right to quote you in future?
Adding code in Word is the same as Excel, Alt-F11 for the VBA environment and just paste the code, cursor somewhere in the code and press F5.
Yeah,
u can quote me on that in the future!!
I have one last question for you, how can i attach the VBA to a command button in word, so I dont have to jump into developer to run it!
I have the command button in my document but i cant seem to assign a macro to it like i can with excel.
TIA
Re: Open wod docs in a folder, enter password and save with password removed
... what about the sub-directories?
Re: Open wod docs in a folder, enter password and save with password removed
I know it'll fail - it wasn't written to accomodate sub-directories in multiple folders.
Answering queries on forums like this is a little like electricity - the answers always take the path of least resistance. Sometimes (like now), the unmentioned requirement can radically affect the solution. It needs a bit of a re-write.
Judging by the log you posted, I guess it's after 6:00pm and home time. There'll be something for you tomorrow.
Re: Open Word docs in a folder, enter password and save with password removed
Here you go then - it's probably a bit OTT for what you want but I had an hour free this evening...
When you open the document, a userform will be displayed.
First choose the starting directory (Click the '...' button in the 'Root Directory' box - it might seem a little confusing, you're lookng for a directory, not files so no files will be shown).
Click the Sub-Folders options if you want to include them.
Click the 'Refresh List' button to get the list of files. You may see a blank window flash on the screen - ignore.
Once you have the list of files click the 'Start' button, You'll be asked to enter the (common) password, it'll then continue to remove the password.
If any file happens to have a different password, you'll be given an opportunity to enter a password for that file, or you can skip it.
The original files will be renamed to start with an '_', the files sans password will keep the original name.
Do not run this twice on files in a directory, you'll eventually get confused as to which are the originals and which are the ones with password removed.
Re: Open Word docs in a folder, enter password and save with password removed
Found it... fix in a little.
Don’t have an account yet? Register yourself now and be a part of our community!