![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
フォルダ内に100個程ある編集履歴つきのwordがあります。
全て編集履歴を承諾するwordマクロを至急作りたいのですが構文が全くわからない状態です。(wordはバージョン2206?)
https://www.wordvbalab.com/code/12204/
こちらの'拡張子のない名称を取得と'PDF形式で保存(ファイル名先頭に「PDF_」と挿入)を入れ替えるて、
https://www.wordvbalab.com/code/967/
こちらの'変更履歴の記録をオフにする、と、'書式変更の履歴を承諾するの部分を貼り付けると、loopに対応するdoが無いと出てきます。
お助けいただく事は可能でしょうか…。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Word(ワード) wordの修正履歴について 1 2022/09/15 16:30
- Word(ワード) ワードの変更履歴のオンオフ判別方法 1 2023/05/25 15:07
- PDF 「PDF文書を簡単にWordで編集する方法」と 罫線が 図形で出力されるのは? 6 2022/06/14 06:51
- Excel(エクセル) 送られてきたxlsxが編集できない 8 2022/09/22 14:05
- ネットワーク 特定のフォルダへのファイル入履歴を取得したい 1 2023/10/03 20:01
- Word(ワード) Word2019と365の互換性について質問 1 2023/06/10 19:33
- Word(ワード) wordの修正履歴について 3 2023/01/05 23:50
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- 面接・履歴書・職務経歴書 履歴書をWordで作成しました セブンイレブンのネットプリントで印刷しようと思うのですが上質紙でプリ 5 2022/08/10 06:55
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
-
Excel 複数のセルが共に一致する場合にフラグを付ける方法
Excel(エクセル)
-
excelマクロ 冒頭3文字が一致するファイルのコピー移動
Excel(エクセル)
-
-
4
擬似コード
C言語・C++・C#
-
5
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
6
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
7
COUNTIFで同一範囲にある複数の内容の数量を簡単に抽出する方法を教えてください。
Excel(エクセル)
-
8
範囲の合計の仕方を教えて下さい。
Excel(エクセル)
-
9
同じパターンで出てくる言葉に通し番号をつけたい
Excel(エクセル)
-
10
Excelで複数の条件を別表に反映する方法
Excel(エクセル)
-
11
0.001ずつずらしたいのですが実際の値は 1.552のところは1.5519999999 のようにな
Excel(エクセル)
-
12
エクセルの関数でわからないことあるのでコード付きで教えてください
Excel(エクセル)
-
13
1.2.3のランダムに混じった数値が100行ぐらいあります。1と2を含む数量の計算式は?
Excel(エクセル)
-
14
ご教示のほどお願いします。 Excelで管理表を作成してまして、関数式を教えてください。 添付した写
Excel(エクセル)
-
15
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
16
Excel 時間が入力されているか確認する方法を教えてください
Excel(エクセル)
-
17
Excelのマクロファイルを開くと下記のエラーがでます。
Excel(エクセル)
-
18
擬似コード 長さがmの配列でなんで For i =0 to m とかかくの?m-1までしかないでしょ
C言語・C++・C#
-
19
VBA 別シートの日付けと照合したい
Visual Basic(VBA)
-
20
A列B列どちらにもあるのを抽出する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WORDの文字が赤になり取消...
-
Word文章の文字が赤くなってしまう
-
バックスペース・スペースキー...
-
WORDの校正の変更履歴で変更日...
-
Word/ワードの変更履歴…日付・...
-
Word 2003 文書の左横に、謎の...
-
ワード文書で赤字で線が入って...
-
WORDの網掛け部分に追記も...
-
WORD2013で変更履歴を削除する...
-
ワードで段落番号の一部のみ背...
-
Word変更履歴
-
文書の変更履歴を承諾して保存...
-
wordで、新たに追加された変更...
-
複数word一括編集履歴承諾マクロ
-
Word2002での変更履歴
-
Wordで入力していたら、行の頭...
-
Wordの「変更履歴の記録」と「...
-
ワードで変更履歴の一部のみを...
-
変更履歴を保ったまま複数のWor...
-
ワード で、コメントスペースを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WORDの文字が赤になり取消...
-
Word文章の文字が赤くなってしまう
-
WORDの校正の変更履歴で変更日...
-
Word/ワードの変更履歴…日付・...
-
バックスペース・スペースキー...
-
ワードで変更履歴の一部のみを...
-
WORDの網掛け部分に追記も...
-
ワード文書で赤字で線が入って...
-
ワードで段落番号の一部のみ背...
-
変更履歴を保ったまま複数のWor...
-
Word 2003 文書の左横に、謎の...
-
WORD2013で変更履歴を削除する...
-
文書の変更履歴を承諾して保存...
-
Word2016の変更履歴の記録で履...
-
他人からもらったWord原稿...
-
Wordで入力していたら、行の頭...
-
Wordでのコメント機能によるフ...
-
PCのエクセルの(入力)操作履...
-
おー瑠璃ね~むのフォルダー名...
-
ワードの文書を開き、校閲→全て...
おすすめ情報
具体的には以下を削除しました。
******
'拡張子のない名称を取得
intPos = InStrRev(myFileName, ".")
myFileName = Left(myFileName, intPos - 1)
'PDF形式で保存(ファイル名先頭に「PDF_」と挿入)
myDoc.ExportAsFixedFormat _
OutputFileName:=myFolderPath & "\PDF_" & myFileName & ".pdf", _
ExportFormat:=wdExportFormatPDF
ただコピぺしただけなので、めちゃくちゃなのはわかっていますが、
Do Whileの条件を変更すれば良いでしょうか?