Word Belgenizdeki Not Numaralarına Köşeli Parantez Eklemek için 2 Hızlı Yöntem

Bugünkü yazımızda, Word belgenizdeki not numaralarına toplu olarak köşeli parantez eklemenin 2 hızlı yöntemini göstermekten mutluluk duyuyoruz.

Uzun bir belge taslağı hazırlarken, muhtemelen dipnotlar ve son notlar ekleriz. Mote sayı formatı için seçenekler olduğunu biliyoruz. Ancak, köşeli parantez içeren yerleşik bir sayı stili yoktur. Önümüzdeki metinlerde tartışacağımız şey, böyle bir sorunu ele almak için 2 çözüm.

Yöntem 1: "Bul ve Değiştir" İşlevini Kullanın

1. Öncelikle, hedef belgede "Ana Sayfa" sekmesine tıklayın.
2. Ardından, “Bul ve Değiştir” iletişim kutusunu açmak için “Düzenleme” grubundaki “Değiştir” komutuna tıklayın.
3. Şimdi dipnotlarla çalışıyorsanız, "Neyi bul" metin kutusuna "^f" yazın.
4. "Şununla değiştir" metin kutusuna "[^&]" girin.
5. Sonra "Tümünü Değiştir"e tıklayın.
6. Bir sonraki gördüğünüz şey, tüm dipnot numaralarının köşeli parantez içinde olduğudur. Mesaj kutusunu kapatmak için “Tamam”a tıklayın.

Ayrıca, son notlara köşeli parantezler eklemek için "Neyi Bul" metin kutularında "^f" yerine "^e" yazmanız yeterlidir.

Yöntem 2: Word Makrosunu Çalıştır

1. Öncelikle, VBA düzenleyicisini açmak için Word'de "Alt + F11" tuşlarına basın.
2. Ardından “Normal” ve ardından “Ekle” sekmesine tıklayın.
3. Açılır menüden "Modül"ü seçin.
4. Ardından sağ taraftaki düzenleme alanını açmak için yeni eklenen modüle çift tıklayın.
5. Ve aşağıdaki makroyu oraya yapıştı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. Şimdi ekleme işaretçisini ilk makronun içine yerleştirin ve “Çalıştır”a tıklayın.
7. Ardından, önce tüm dipnot numaralarına köşeli parantezlerin eklendiğini söyleyen bir mesaj kutusu vardır.
8. Ardından, tüm son not sayılarında dönüşümün tamamlandığını söyleyen ikincisi var.

İşte vardığımız sonuç:

Belge Kaybını Önleyin

Sakladıklarımız kadar değerli verilerle, riske girmeyi göze alamazdık. Bu nedenle, herhangi bir işlem yapmadan önce önemli dosyaları yedeklemeniz akıllıca olacaktır, aksi halde onları mahvetme riski vardır. hasarlı doktor.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls bozulması hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com