Comment convertir des commentaires en notes de bas de page ou en notes de fin dans Microsoft Word?
En supposant qu'il y ait plusieurs commentaires dans votre document Word, comment pouvez-vous convertir tous ces commentaires en notes de bas de page ou en notes de fin en même temps? Cet article fournit des méthodes VBA pour y parvenir.
Convertir les commentaires en notes de bas de page ou en notes de fin avec le code VBA
Convertir les commentaires en notes de bas de page ou en notes de fin avec le code VBA
Les codes VBA ci-dessous peuvent vous aider à convertir rapidement tous les commentaires du document actuel en notes de bas de page ou de fin. Veuillez faire comme suit.
1. Ouvrez le document contenant des commentaires que vous allez convertir en notes de bas de page ou en notes de fin, appuyez sur le bouton autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.
Code VBA: convertir les commentaires en notes de bas de page:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
Code VBA: convertir les commentaires en notes de fin:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. appuie sur le F5 clé pour exécuter le code.
Ensuite, tous les commentaires du document actuel sont immédiatement convertis en notes de bas de page ou en notes de fin en fonction du code VBA que vous avez appliqué.
Articles Liés:
- Comment ajouter une nouvelle page ou du texte après les notes de fin dans un document Word?
- Comment sélectionner toutes les notes de bas de page dans un document Word?
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