ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
x

or

Word文書でのみフォーマットトラックの変更を受け入れる方法は?

トラックの変更モードにあるWord文書がある場合は、 すべての変更を承認 すべてのトラックの変更が受け入れられます。 しかし、挿入や削除を受け入れずに書式設定のトラックの変更を受け入れるだけの場合もあります。 この記事では、Word文書でこのタスクを解決する方法について説明します。

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

マークアップ機能付きのWordで書式設定トラックの変更のみを受け入れる


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

次の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を受け入れる



おすすめのWord生産性向上ツール

Word用Kutools-Wordの100の高度な機能以上に、50%の時間を節約できます

  • 複雑で繰り返しのある操作は、数秒で1回の処理で実行できます。
  • 一度にWord文書にフォルダ間で複数の画像を挿入します。
  • フォルダ間の複数のWordファイルを希望の順序で1つに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDF、一般的な変換と選択のためのツールのコレクションなどの間でファイルを変換する...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vintotal · 6 months ago
    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