メインコンテンツへスキップ

Word文書でのみフォーマットトラックの変更を受け入れるにはどうすればよいですか?

変更履歴モードのWord文書がある場合は、 すべての変更を受け入れる 機能、すべてのトラックの変更が受け入れられます。 ただし、挿入や削除を受け入れずに、フォーマットトラックの変更を受け入れたい場合もあります。 この記事では、Word文書でこのタスクを解決する方法について説明します。

VBAコードを使用したWordでのトラック変更の書式設定のみを受け入れる

マークアップ機能を使用して、Wordでトラックの変更をフォーマットすることのみを受け入れる


VBAコードを使用したWordでのトラック変更の書式設定のみを受け入れる

次のVBAコードは、Word文書でのみフォーマットトラックの変更を受け入れるのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード:Word文書でのみフォーマットトラックの変更を受け入れる

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3。 そして、 F5 このコードを実行するにはキーを押します。アクティブなWord文書では、書式設定トラックの変更のみがすぐに受け入れられます。 スクリーンショットを参照してください:

docはフォーマット1を受け入れます


マークアップ機能を使用して、Wordでトラックの変更をフォーマットすることのみを受け入れる

Word文書では、 マークアップを表示 このジョブを完了するための機能は、次の手順で実行してください。

1。 トラック変更モードファイルで、をクリックします レビュー > マークアップを表示、次にチェックを外します コメント & 挿入と削除 オプションを残し、 書式設定 オプションがチェックされています。スクリーンショットを参照してください。

docはフォーマット2を受け入れます

2。 そして今、あなたはフォーマットの追跡された変更を見ることができます、そして次にクリックし続けます レビュー > 同意 > 表示されているすべての変更を受け入れる 次のスクリーンショットのように:

docはフォーマット3を受け入れます

3。 そして、すべてのフォーマットトラックの変更が受け入れられました。今、あなたはに戻る必要があります コメント, 挿入と削除 からそれらをチェックすることによってオプション マークアップを表示 ドロップダウンリスト、スクリーンショットを参照してください:

docはフォーマット4を受け入れます

4。 これで、フォーマットトラックの変更が受け入れられ、他のトラックの変更が引き続き保持されていることがわかります。スクリーンショットを参照してください。

docはフォーマット1を受け入れます

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除:振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

クリエイティブインサート:挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択: ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には? 機能の選択...

スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations