Toplu üçün 2 Sürətli Metod Word Sənədinizdə Nömrələrə Kvadrat Mötərizələr əlavə edin

Bugünkü yazıda sizə Word sənədinizdəki qeyd nömrələrinə kvadrat mötərizələr əlavə etməyin 2 sürətli üsulunu göstərməkdən məmnunluq duyuruq.

Uzun bir sənəd hazırlayarkən, çox güman ki, qeydlər və son qeydlər əlavə edəcəyik. Bilirik ki, mote nömrə formatı üçün seçimlər var. Bununla belə, kvadrat mötərizə ilə daxili nömrə üslubu yoxdur. Növbəti mətnlərdə müzakirə edəcəyimiz şey belə bir problemi həll etmək üçün 2 həll yoludur.

Metod 1: "Tap və Dəyişdir" funksiyasından istifadə edin

1. Başlamaq üçün hədəf sənəddə "Əsas səhifə" sekmesini vurun.
2. Sonra “Tap və dəyişdir” informasiya qutusunu açmaq üçün “Redaktə” qrupunda “Əvəz et” əmrini sıxın.
3. İndi əgər siz alt qeydlərlə işləyirsinizsə, “Find what” mətn qutusuna “^f” daxil edin.
4. “Əvəz et” mətn qutusuna “[^&]” daxil edin.
5. Sonra "Hamısını dəyişdirin" düyməsini basın.
6. Gördüyünüz növbəti şey, bütün qeyd nömrələrinin kvadrat mötərizə içərisində olmasıdır. Mesaj qutusunu bağlamaq üçün "OK" düyməsini basın.

Bundan əlavə, son qeydlərə kvadrat mötərizə əlavə etmək üçün “Nə tapın” mətn qutularında “^f” hərfini “^e” ilə əvəz etmək kifayətdir.

Metod 2: Word Makronunu işə salın

1. İlk növbədə, VBA redaktorunu işə salmaq üçün Word-də "Alt" + "F11" düymələrini basın.
2. Sonra "Normal" və sonra "Daxil et" sekmesini basın.
3. Açılan menyuda "Modul" seçin.
4. Sonra sağ tərəfdəki redaktə sahəsini açmaq üçün yeni daxil edilmiş modulun üzərinə iki dəfə klikləyin.
5. Və aşağıdakı makronu oraya yapışdırın:

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. İndi daxiletmə göstəricisini ilk makronun içərisinə qoyun və "Çalış" düyməsini basın.
7. Sonra əvvəlcə bütün qeyd nömrələrinə kvadrat mötərizələrin əlavə edildiyini bildirən bir mesaj qutusu var.
8. Sonra bütün son qeyd nömrələrində çevrilmənin tamamlandığını söyləyən ikincisi var.

Əldə etdiyimiz nəticə budur:

Sənəd itkisinin qarşısını almaq

Saxladığımız məlumatlar qədər dəyərli məlumatlarla heç bir riskə girə bilməzdik. Buna görə də, hər hansı bir hərəkət etməzdən əvvəl vacib faylların ehtiyat nüsxəsini çıxarmaq müdrik olardı ki, onları məhv etmək riski var. zədələnmiş doc.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls korrupsiyası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com