2 snelle methoden om in batches te werken Voeg vierkante haken toe om getallen in uw Word-document te noteren

In dit artikel laten we je graag twee snelle methoden zien om批量 vierkante haken toe te voegen aan notatienummers in je Word-document.

Bij het opstellen van een lang document zullen we waarschijnlijk voetnoten en eindnoten invoegen. We weten dat er opties zijn voor het formaat van meerdere nummers. Er is echter geen ingebouwde nummerstijl met vierkante haken. Wat we in de komende teksten zullen bespreken, zijn de 2 oplossingen om een ​​dergelijk probleem aan te pakken.

Methode 1: Gebruik de functie "Zoeken en vervangen"

1. Klik om te beginnen op het tabblad "Start" in het betreffende document.
2. Klik vervolgens op de opdracht "Vervangen" in de groep "Bewerken" om het dialoogvenster "Zoeken en vervangen" te openen.
3. Als u nu met voetnoten werkt, voert u "^ f" in het tekstvak "Zoeken naar" in.
4. Typ "[^ &]" in het tekstvak "Vervangen door".
5. Klik vervolgens op "Alles vervangen".
6. Het volgende dat u ziet, is dat alle voetnootnummers tussen vierkante haken staan. Klik op "OK" om het berichtvenster te sluiten.

Bovendien, om vierkante haken aan eindnoten toe te voegen, vervangt u eenvoudig "^ f" door "^ e" in de tekstvakken "Zoeken naar".

Methode 2: Voer Word Macro uit

1. Druk allereerst in Word op "Alt+F11" om de VBA-editor te openen.
2. Klik vervolgens op "Normaal" en vervolgens op het tabblad "Invoegen".
3. Kies "Module" in het vervolgkeuzemenu.
4. Dubbelklik vervolgens op de nieuw ingevoegde module om het bewerkingsgebied aan de rechterkant te openen.
5. En plak daar de brullende macro:

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. Plaats nu de invoegwijzer in de eerste macro en klik op "Uitvoeren".
7. Dan is er eerst een berichtvenster waarin staat dat aan alle voetnootnummers vierkante haken zijn toegevoegd.
8. Vervolgens is er de tweede die zegt dat de conversie voltooid is in alle eindnootnummers.

Hier is het resultaat dat we hebben gekregen:

Voorkom verlies van documenten

Met gegevens die even waardevol waren als wat we hadden opgeslagen, konden we het ons niet veroorloven om risico's te nemen. Daarom is het verstandig om een ​​back-up te maken van belangrijke bestanden voordat u iets doet, met het risico dat ze beschadigd raken, tenzij u een beschadigd doc.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls corruptie en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com