2 snabba metoder för gruppering Lägg till fyrkantiga parenteser för att notera nummer i ditt Word-dokument

I dagens inlägg visar vi dig gärna två snabba metoder för att lägga till hakparenteser i grupp för att anteckna siffror i ditt Word-dokument.

När vi utarbetar ett långt dokument kommer vi sannolikt att infoga fotnoter och slutnoter. Vi vet att det finns alternativ för mottalsformat. Det finns dock ingen inbyggd nummerstil med hakparenteser. Vad vi kommer att diskutera i de kommande texterna är de två lösningarna för att ta itu med en sådan fråga.

Metod 1: Använd funktionen "Sök och ersätt"

1. Till att börja med, klicka på fliken "Hem" i måldokumentet.
2. Klicka sedan på "Ersätt" -kommandot i gruppen "Redigering" för att öppna dialogrutan "Sök och ersätt".
3. Om du nu arbetar med fotnoter anger du “^ f” i textrutan “Hitta vad”.
4. Ange "[^ &]" i "Ersätt med" textrutan.
5. Klicka sedan på ”Ersätt alla”.
6. Nästa sak du ser är att alla fotnotnummer är inom parentes. Klicka på “OK” för att stänga meddelanderutan.

Dessutom, för att lägga till hakparenteser till slutnoter, ersätter du helt enkelt “^ f” med “^ e” i “Hitta vad” textrutor.

Metod 2: Kör Word Macro

1. Först och främst, tryck på "Alt + F11" i Word för att aktivera VBA-redigeraren.
2. Klicka sedan på "Normal" och sedan på "Infoga" -fliken.
3. Välj "Modul" på rullgardinsmenyn.
4. Dubbelklicka sedan på den nyligen infogade modulen för att öppna redigeringsområdet på höger sida.
5. Och klistra in det böljande makrot där:

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. Placera nu insättningspekaren i det första makrot och klicka på "Kör".
7. Sedan finns det en meddelandefält som säger att hakparenteser har lagts till i alla fotnotnummer.
8. Nästa är det andra som säger att konverteringen är klar i alla slutnotnummer.

Här är resultatet vi fick:

Förhindra från dokumentförlust

Med lika värdefulla data som det vi lagrade hade vi inte råd att ta några chanser. Därför skulle det vara klokt att säkerhetskopiera viktiga filer innan du tar något steg med potentiell risk för att förstöra dem såvida du inte vill få en skadad dok.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls korruption och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com