下記ソフトを使用しています。
・Excel for Microsoft 365 MSO
・Word for Microsoft 365 MSO
Excel VBAでWordの操作をしています。
Wordに「読み取りパスワード」が設定されている為、次に開くときにパスワードをきいてこないよう、下記フローのコーディングをしています。
「名前をつけて保存」の「ツール」にある「全般オプション」
↓
「読み取りパスワード」を空欄にする
↓
保存
--------------
下記のように作成しましたが、SaveAs2の処理をするとエラー448が発生するせいか、一連の処理後にPWがかかっているWordを開くと「パスワードを入力して下さい」のMSGが表示されます。
下記URLのサイトを見て、パスワードを「""」ではなく、あらかじめ「""」を変数定義をして試してみましたが同様です。
https://www.global.co.jp/iep/iep62/iep621201.html
手詰まりになってしまった為、こちらに書き込みを致しました。
ご教示いただけると幸いです。
宜しくお願い致します。
Set appWord = CreateObject("Word.Application")
〜〜 割愛 〜〜
With appWord
.Documents.Open Filename:=myFile, PasswordDocument:=PW
.Visible = True
appWord.ActiveDocument.SaveAs2 Filename:=myFile, Password:="", WriteResPassword:=""
End With
〜〜 割愛 〜〜
appWord.Quit
Set appWord = Nothing
※ 変数のmyFile、PWはイミディエイトウィンドウで取得できていることを確認済
