Wordでパスワードなしで上書き保存するマクロ

Pocket

以前、パスワードが設定されている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

関連記事

[ 2015年10月14日 | カテゴリー: Word | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報