Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment accepter les changements de piste de format uniquement dans un document Word?

Si vous avez un document Word qui est en mode de suivi des modifications, lorsque vous appliquez le Accepter toutes les modifications fonctionnalité, tous les changements de piste seront acceptés. Mais, parfois, vous souhaitez simplement accepter les modifications de la piste de formatage sans accepter les insertions ou les suppressions. Cet article vous expliquera comment résoudre cette tâche dans un document Word.

Acceptez uniquement le formatage des modifications de piste dans Word avec le code VBA

Acceptez uniquement le formatage des modifications de piste dans Word avec la fonction Show Markup


Acceptez uniquement le formatage des modifications de piste dans Word avec le code VBA

Le code VBA suivant peut vous aider à accepter les modifications de la piste de formatage uniquement dans un 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 piste 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 clé pour exécuter ce code, et seuls les changements de piste de mise en forme ont été acceptés dans le document Word actif immédiatement. Voir la capture d'écran:

doc accepte le formatage 1


Acceptez uniquement le formatage des modifications de piste dans Word avec la fonction Show Markup

Dans le document Word, vous pouvez également appliquer le Afficher le balisage fonction pour terminer ce travail, s'il vous plaît faire avec les étapes suivantes:

1. Dans le fichier de mode des modifications de piste, cliquez sur Révision > Afficher le balisage, puis décochez la case Commentaires et Insertions et Suppressions options, et laisser le formatage option cochée, voir capture d'écran:

doc accepte le formatage 2

2. Et maintenant, vous pouvez simplement voir les modifications de formatage suivies, puis cliquez sur Révision > Accepter > Accepter toutes les modifications affichées comme capture d'écran suivante:

doc accepte le formatage 3

3. Et tous les changements de piste de formatage ont été acceptés, maintenant, vous devez retourner sur le Commentez, Insertions et Suppressions options en les vérifiant à partir du Afficher le balisage liste déroulante, voir capture d'écran:

doc accepte le formatage 4

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

doc accepte le formatage 1



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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