2 hurtige metoder til gruppering Tilføj firkantede parenteser til noteringsnumre i dit Word-dokument

I dagens indlæg er vi glade for at vise dig 2 hurtige metoder til at tilføje firkantede parenteser til noter i dit Word-dokument.

Når vi udarbejder et langt dokument, indsætter vi sandsynligvis fodnoter og slutnoter. Vi ved, at der er muligheder for motenummerformatet. Der er dog ingen indbygget talstilstand med firkantede parenteser. Hvad vi vil diskutere i de kommende tekster er de 2 løsninger til at løse et sådant problem.

Metode 1: Brug funktionen "Find og erstat"

1. Til at begynde med skal du klikke på fanen "Hjem" i måldokumentet.
2. Klik derefter på "Erstat" -kommandoen i gruppen "Redigering" for at åbne dialogboksen "Find og erstat".
3. Hvis du nu arbejder med fodnoter, skal du indtaste “^ f” i tekstfeltet “Find hvad”.
4. Indtast "[^ &]" i "Erstat med" tekstfelt.
5. Klik derefter på "Erstat alle".
6. Den næste ting du ser er, at alle fodnote tal er i parentes. Klik på “OK” for at lukke meddelelsesfeltet.

For at tilføje firkantede parenteser til slutnoter skal du blot erstatte "^ f" med "^ e" i "Find hvad" tekstfelter.

Metode 2: Kør Word Macro

1. Først og fremmest skal du trykke på “Alt+F11” i Word for at aktivere VBA-editoren.
2. Klik derefter på "Normal" og derefter på fanen "Indsæt".
3. I rullemenuen skal du vælge “Modul”.
4. Dobbeltklik derefter på det nyligt indsatte modul for at åbne redigeringsområdet på højre side.
5. Og indsæt den bølgende makro der:

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. Placer nu indsættelsesmarkøren inde i den første makro, og klik på "Kør".
7. Derefter er der en meddelelsesboks, der siger, at firkantede parenteser er blevet føjet til alle fodnote numre.
8. Dernæst er der den anden, der siger, at konverteringen er afsluttet i alle slutnotnumre.

Her er resultatet, vi fik:

Undgå fra dokumenttab

Med så værdifulde data som det, vi lagrede, havde vi ikke råd til at tage nogen chancer. Derfor ville det være klogt at tage sikkerhedskopi af vigtige filer, før du tager et skridt med potentiel risiko for at ødelægge dem, medmindre du vil have en beskadiget dok.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls korruption og pdf produkter til reparation af software. For mere information besøg www.datanumen.com