VBA: removing password from word documents with VBA does not work

I have a lot of word documents that are protected with a password. I want to remove the password from all those files with a vba script.

I found on this site a piece of code to do this. See the code below. The code runs without compilation error.

The files are saved in the C:\Test\Processed directory, however the password protection is still in it.

I am a beginner with VBA, so maybe I overlook something.

Dim myFile As String

Dim PathToUse As String

Dim myDoc As Document

Dim strPassword As String

strPassword = InputBox("Enter the password to open the documents", "Password")

PathToUse = "C:\Test"

MkDir "C:\Test\Processed"

SavePath = "C:\Test\Processed"

'Close all open documents before beginning

Documents.Close SaveChanges:=wdPromptToSaveChanges

myFile = Dir$(PathToUse & "*.doc")

While myFile <> ""

    'Open document

    Set myDoc = Documents.Open(filename:=PathToUse & myFile, PasswordDocument:=strPassword)

    myDoc.SaveAs SavePath & myFile, Password = ""

    myDoc.Close

    'Next file in folder

    myFile = Dir$()

Wend