複数word一括編集履歴承諾マクロ

フォルダ内に100個程ある編集履歴つきのwordがあります。
全て編集履歴を承諾するwordマクロを至急作りたいのですが構文が全くわからない状態です。(wordはバージョン2206？)

https://www.wordvbalab.com/code/12204/
こちらの'拡張子のない名称を取得と'PDF形式で保存（ファイル名先頭に「PDF_」と挿入）を入れ替えるて、
https://www.wordvbalab.com/code/967/
こちらの'変更履歴の記録をオフにする、と、'書式変更の履歴を承諾するの部分を貼り付けると、loopに対応するdoが無いと出てきます。

お助けいただく事は可能でしょうか…。よろしくお願いします。

質問者からの補足コメント

• 具体的には以下を削除しました。
  ******
  '拡張子のない名称を取得
  　　intPos = InStrRev(myFileName, ".")
  　　myFileName = Left(myFileName, intPos - 1)
  　　
  　　'PDF形式で保存（ファイル名先頭に「PDF_」と挿入）
  　　myDoc.ExportAsFixedFormat _
  　　　OutputFileName:=myFolderPath & "\PDF_" & myFileName & ".pdf", _
  　　　ExportFormat:=wdExportFormatPDF
  
  ただコピぺしただけなので、めちゃくちゃなのはわかっていますが、
  Do Whileの条件を変更すれば良いでしょうか？

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/02/17 16:15

No.2 回答者： amerikaumare 回答日時： 2024/02/17 17:15

あなたの作ったマクロを全文載せてください。

No.1 回答者： fujillin 回答日時： 2024/02/17 15:59

こんにちは

どうなっているかの明確な記述が無いので、当たるも八卦でしか回答できませんけれど・・

＞loopに対応するdoが無いと出てきます。
Loopがあるのは1箇所だけみたいなので、それに対応する

＞Do While myFileName <> ""
を削除したのではありませんか？

この回答へのお礼

お礼日時：2024/02/17 20:27