2 бързи метода за групово добавяне на квадратни скоби към числата на бележките във вашия Word документ

В днешната публикация с удоволствие ви показваме 2 бързи метода за групово добавяне на квадратни скоби към номерата на бележките във вашия Word документ.

Когато изготвяме дълъг документ, е вероятно да вмъкнем бележки под линия и бележки в края. Знаем, че има опции за формата на номера на съчицата. Въпреки това, няма вграден номер стил с квадратни скоби. Това, което ще обсъдим в следващите текстове, са 2 решения за справяне с такъв проблем.

Метод 1: Използвайте функцията „Намери и замени“.

1. За начало щракнете върху раздела „Начало“ в целевия документ.
2. След това щракнете върху командата „Замяна“ в групата „Редактиране“, за да отворите диалоговия прозорец „Намиране и замяна“.
3. Сега, ако работите с бележки под линия, въведете „^f“ в текстовото поле „Намерете какво“.
4. Въведете „[^&]“ в текстовото поле „Замени с“.
5. След това кликнете върху „Замяна на всички“.
6. Следващото нещо, което виждате е, че всички номера на бележките под линия са в квадратни скоби. Щракнете върху „OK“, за да затворите полето за съобщения.

Освен това, за да добавите квадратни скоби към крайните бележки, просто заменете „^f“ с „^e“ в текстовите полета „Намерете какво“.

Метод 2: Стартирайте Word Macro

1. Първо и най-важно, натиснете „Alt+F11“ в Word, за да задействате VBA редактора.
2. След това щракнете върху „Нормално“ и след това върху раздела „Вмъкване“.
3. От падащото меню изберете „Модул“.
4. След това щракнете два пъти върху нововмъкнатия модул, за да отворите областта за редактиране от дясната страна.
5. И поставете следния макрос там:

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. Сега поставете показалеца за вмъкване вътре в първия макрос и щракнете върху „Изпълни“.
7. След това първо има поле за съобщение, което казва, че са добавени квадратни скоби към всички номера на бележки под линия.
8. Следва второто, което казва, че преобразуването е завършено във всички номера на бележката в края.

Ето резултата, който получихме:

Предотвратете загуба на документ

С данни толкова ценни, колкото това, което съхраняваме, не можехме да си позволим да рискуваме. Следователно би било разумно да архивирате важни файлове, преди да предприемете каквото и да е движение с потенциален риск да ги съсипете, освен ако не искате да получите повреден док.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xls корупция и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com