2 Kaedah Pantas untuk Batch Tambah Kurungan Persegi ke Nota Nota dalam Dokumen Word Anda

Dalam catatan hari ini, kami dengan senang hati akan menunjukkan kepada anda 2 kaedah pantas untuk menambah kurungan segi empat sama untuk mencatat nombor dalam dokumen Word anda.

Setiap kali menyusun dokumen panjang, kami kemungkinan akan memasukkan nota kaki dan nota akhir. Kami tahu ada pilihan untuk format nombor mote. Walau bagaimanapun, tidak ada gaya nombor terbina dalam dengan tanda kurung persegi. Apa yang akan kita bahas dalam teks yang akan datang adalah 2 penyelesaian untuk mengatasi masalah tersebut.

Kaedah 1: Gunakan Fungsi "Cari dan Ganti"

1. Untuk bermula, klik tab "Laman Utama" dalam dokumen sasaran.
2. Kemudian klik perintah "Ganti" dalam kumpulan "Mengedit" untuk membuka kotak dialog "Cari dan Ganti".
3. Jika anda menggunakan nota kaki, masukkan "^ f" di kotak teks "Cari apa".
4. Masukkan "[^ &]" di kotak teks "Ganti dengan".
5. Klik seterusnya "Ganti Semua".
6. Perkara seterusnya yang anda lihat ialah semua nombor nota kaki berada dalam tanda kurung. Klik "OK" untuk menutup kotak mesej.

Selain itu, untuk menambahkan tanda kurung persegi pada nota akhir, ganti saja "^ f" dengan "^ e" di kotak teks "Cari apa".

Kaedah 2: Jalankan Makro Word

1. Pertama sekali, tekan "Alt + F11" dalam Word untuk mencetuskan editor VBA.
2. Seterusnya klik "Normal" dan kemudian tab "Insert".
3. Pada menu lungsur turun, pilih "Modul".
4. Kemudian klik dua kali pada modul yang baru dimasukkan untuk membuka kawasan penyuntingan di sebelah kanan.
5. Dan tampal makro berikut:

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. Sekarang letakkan penunjuk sisipan di dalam makro pertama dan klik "Jalankan".
7. Kemudian pertama ada kotak mesej yang mengatakan tanda kurung persegi telah ditambahkan ke semua nombor nota kaki.
8. Seterusnya ada yang kedua mengatakan penukaran selesai dalam semua nombor akhir nota.

Inilah hasil yang kami dapat:

Cegah dari Kehilangan Dokumen

Dengan data yang berharga seperti yang kami simpan, kami tidak dapat mengambil kesempatan. Oleh itu, adalah bijak untuk membuat sandaran fail penting sebelum mengambil langkah yang berpotensi untuk merosakkannya kecuali anda ingin mendapatkannya doc rosak.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls rasuah dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com