2 méthodes rapides pour ajouter par lots des crochets aux numéros de note dans votre document Word

Dans cet article, nous sommes heureux de vous présenter deux méthodes rapides pour ajouter par lots des crochets aux numéros de notes dans votre document Word.

Lors de la rédaction d'un long document, nous sommes susceptibles d'insérer des notes de bas de page et des notes de fin. Nous savons qu'il existe des options pour le format de numéro de mote. Cependant, il n'y a pas de style de numérotation intégré avec des crochets. Ce dont nous parlerons dans les textes à venir, ce sont les 2 solutions pour remédier à un tel problème.

Méthode 1 : Utiliser la fonction "Rechercher et remplacer"

1. Pour commencer, cliquez sur l'onglet « Accueil » dans le document cible.
2. Cliquez ensuite sur la commande « Remplacer » dans le groupe « Édition » pour ouvrir la boîte de dialogue « Rechercher et remplacer ».
3. Maintenant, si vous travaillez avec des notes de bas de page, entrez "^f" dans la zone de texte "Rechercher quoi".
4. Entrez "[^&]" dans la zone de texte "Remplacer par".
5. Cliquez ensuite sur "Remplacer tout".
6. La prochaine chose que vous voyez est que tous les numéros de note de bas de page sont entre crochets. Cliquez sur "OK" pour fermer la boîte de message.

De plus, pour ajouter des crochets aux notes de fin, remplacez simplement "^f" par "^e" dans les zones de texte "Rechercher quoi".

Méthode 2 : exécuter la macro Word

1. Avant toute chose, appuyez sur « Alt+F11 » dans Word pour lancer l'éditeur VBA.
2. Cliquez ensuite sur "Normal" puis sur l'onglet "Insérer".
3. Dans le menu déroulant, choisissez "Module".
4. Ensuite, double-cliquez sur le module nouvellement inséré pour ouvrir la zone d'édition sur le côté droit.
5. Et collez-y la macro ci-dessous :

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Placez maintenant le pointeur d'insertion dans la première macro et cliquez sur "Exécuter".
7. Ensuite, il y a d'abord une boîte de message indiquant que des crochets ont été ajoutés à tous les numéros de note de bas de page.
8. Ensuite, il y a le second indiquant que la conversion est terminée dans tous les numéros de note de fin.

Voici le résultat que nous avons obtenu :

Empêcher la perte de documents

Avec des données aussi précieuses que ce que nous stockons, nous ne pouvions pas nous permettre de prendre le moindre risque. Par conséquent, il serait sage de sauvegarder les fichiers importants avant d'entreprendre tout mouvement avec un risque potentiel de les ruiner, sauf si vous souhaitez obtenir un document endommagé.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Corruption xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com