以前、パスワードが設定されているExcelを開いた後、パスワードなしで上書き保存するマクロを紹介しましたが、今回はそのWord版です。
Excel2013で確認しました。
Sub パスワードなしで上書き保存()
'文末に改行を挿入し削除(何らかの変更がないと上書き保存できない)
With Selection
.EndKey Unit:=wdStory
.TypeParagraph
.MoveLeft Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With
'パスワードなしで上書き保存
ActiveDocument.SaveAs _
FileName:=ActiveDocument.FullName, _
Password:="", _
WritePassword:=""
End Sub
'文末に改行を挿入し削除(何らかの変更がないと上書き保存できない)
With Selection
.EndKey Unit:=wdStory
.TypeParagraph
.MoveLeft Unit:=wdCharacter, Count:=1
.Delete Unit:=wdCharacter, Count:=1
End With
'パスワードなしで上書き保存
ActiveDocument.SaveAs _
FileName:=ActiveDocument.FullName, _
Password:="", _
WritePassword:=""
End Sub
コメント