Wordでパスワードなしで上書き保存するマクロ
以前、パスワードが設定されている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
[ 2015年10月14日 | カテゴリー: Word | タグ: VBA , パスワード ]
« 3D Touchが使えるApp一覧 | ExcelのテーブルをJSON形式に変換するマクロ »
コメントを残す