Note: The other languages of the website are Google-translated. Back to English

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 Commentaire, 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


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, enregistrez votre
50 %
Temps écoulé

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Tu es mon héros. In English, le code serait le suivant :

Sous AcceptFormatChanges()
Dim xRev As Revision
Pour chaque xRev dans ActiveDocument.Revisions
Si Gauche(xRev.FormatDescription, 12) = "Mis en forme" Alors
xRév.Accepter
Si fin
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Dans toutes les langues :

Sous AcceptFormatChanges()
Dim xRev As Revision
Pour chaque xRev dans ActiveDocument.Revisions
Si xRev.FormatDescription <> "" Alors
xRév.Accepter
Si fin
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL