2 schnelle Methoden zum stapelweisen Hinzufügen von eckigen Klammern zu Notiznummern in Ihrem Word-Dokument

Im heutigen Beitrag zeigen wir Ihnen gerne zwei schnelle Methoden, um in Ihrem Word-Dokument eckige Klammern um Notizzahlen einzufügen.

Beim Verfassen eines langen Dokuments fügen wir wahrscheinlich Fußnoten und Endnoten ein. Wir wissen, dass es Optionen für das Format der Nebennummern gibt. Es gibt jedoch keinen integrierten Nummerierungsstil mit eckigen Klammern. In den folgenden Texten werden wir die beiden Lösungen für dieses Problem besprechen.

Methode 1: Nutzen Sie die Funktion „Suchen und Ersetzen“

1. Klicken Sie zunächst auf die Registerkarte „Startseite“ im Zieldokument.
2. Klicken Sie dann in der Gruppe „Bearbeiten“ auf den Befehl „Ersetzen“, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
3. Wenn Sie jetzt mit Fußnoten arbeiten, geben Sie „^f“ in das Textfeld „Suchen nach“ ein.
4. Geben Sie „[^&]“ in das Textfeld „Ersetzen durch“ ein.
5. Klicken Sie anschließend auf "Alle ersetzen".
6. Als nächstes sehen Sie, dass alle Fußnotennummern in eckigen Klammern stehen. Klicken Sie auf „OK“, um das Meldungsfeld zu schließen.

Um Endnoten eckige Klammern hinzuzufügen, ersetzen Sie in den Textfeldern „Suchen nach“ einfach „^f“ durch „^e“.

Methode 2: Führen Sie das Word-Makro aus

1. Drücken Sie zunächst „Alt+F11“ in Word, um den VBA-Editor zu öffnen.
2. Klicken Sie anschließend auf "Normal" und dann auf die Registerkarte "Einfügen".
3. Wählen Sie im Dropdown-Menü "Modul".
4. Klicken Sie anschließend doppelt auf das neu eingefügte Modul, um den Bearbeitungsbereich auf der rechten Seite zu öffnen.
5. Und fügen Sie dort das folgende Makro ein:

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. Platzieren Sie nun den Einfügezeiger im ersten Makro und klicken Sie auf „Ausführen“.
7. Dann erscheint zunächst ein Meldungsfeld, in dem steht, dass allen Fußnotennummern eckige Klammern hinzugefügt wurden.
8. Als nächstes folgt die zweite Meldung, dass die Konvertierung in allen Endnotennummern abgeschlossen ist.

Hier ist das Ergebnis, das wir erhalten haben:

Verhindern Sie den Verlust von Dokumenten

Bei so wertvollen Daten wie den von uns gespeicherten können wir es uns nicht leisten, Risiken einzugehen. Daher wäre es ratsam, wichtige Dateien zu sichern, bevor Sie etwas unternehmen, bei dem das Risiko besteht, dass sie zerstört werden, es sei denn, Sie möchten eine beschädigter doc.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls Korruption und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX