Passer au contenu principal

Comment accepter les modifications de suivi de format uniquement dans un document Word?

Si vous disposez d'un document Word en mode suivi des modifications, lorsque vous appliquez le Accepter tous les changements fonction, tous les changements de piste seront acceptés. Mais, parfois, vous souhaitez simplement accepter les modifications de suivi de mise en forme sans accepter les insertions ou les suppressions. Cet article explique comment résoudre cette tâche dans un document Word.

Accepter uniquement le formatage du suivi des modifications dans Word avec le code VBA

Accepter uniquement la mise en forme du suivi des modifications dans Word avec la fonction Afficher les annotations


Accepter uniquement le formatage du suivi des modifications dans Word avec le code VBA

Le code VBA suivant peut vous aider à accepter les modifications de suivi de mise en forme uniquement dans le document Word, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: accepter les modifications de suivi de format uniquement dans le document 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. Et puis appuyez sur F5 pour exécuter ce code, et seules les modifications de suivi de mise en forme ont été acceptées immédiatement dans le document Word actif. Voir la capture d'écran:

doc accepter le formatage 1


Accepter uniquement la mise en forme du suivi des modifications dans Word avec la fonction Afficher les annotations

Dans un document Word, vous pouvez également appliquer le Afficher le balisage fonction pour terminer ce travail, veuillez suivre les étapes suivantes:

1. Dans le fichier du mode de changement de piste, cliquez sur Avis > Afficher le balisage, puis décochez la case Commentaires et Insertions et suppressions options et laissez le formatage option cochée, voir capture d'écran:

doc accepter le formatage 2

2. Et maintenant, vous pouvez simplement voir les changements de mise en forme suivis, puis cliquez sur Avis > Accepter > Accepter toutes les modifications affichées comme capture d'écran suivante:

doc accepter le formatage 3

3. Et toutes les modifications de la piste de mise en forme ont été acceptées, maintenant, vous devez revenir sur le Commentaires, Insertions et suppressions options en les cochant dans le Afficher le balisage liste déroulante, voir capture d'écran:

doc accepter le formatage 4

4. Maintenant, vous pouvez voir que les modifications de la piste de formatage ont été acceptées et que les autres modifications de la piste sont toujours conservées, voir capture d'écran:

doc accepter le formatage 1

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers  /  Redimensionner toutes les images  /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires  /  Sauts de section  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀
 
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