5 Cara Menghilangkan Peluru dan Menyenaraikan Nombor dengan pantas dari Dokumen Word Anda

Dalam artikel ini, kami ingin menunjukkan kepada anda 5 cara mudah untuk mengeluarkan peluru dan menyenaraikan nombor dari dokumen Word anda.

Dokumen boleh mengandungi senarai bulat dan bernombor. Kadang kala, anda mungkin perlu memformat semula senarai ini. Sebagai contoh, anda mungkin perlu menetapkan kandungan senarai dalam teks tebal, miring, atau biasa, untuk menamakan beberapa sahaja. Kemudian anda mesti membuang semua peluru dan menyenaraikan nombor terlebih dahulu.

Berikut adalah 5 penyelesaian untuk kes yang berbeza.

Kaedah 1: Tetapkan Peluru "None" atau Penomboran

1. Pertama sekali, pilih entri bertitik tolak dan bernombor.
2. Kemudian klik pada butang drop-down pada "Bullets" atau "Numbering".
3. Klik "Tiada".

Periksa hasilnya:

Kaedah 2: Tetapkan Gaya "Normal" untuk Entri Berwarna atau Nombor

1. Sebagai permulaan, pilih entri yang tidak perlu.
2. Kedua, klik tab "Rumah" di Pita.
3. Kemudian klik butang "Lagi" dalam kumpulan "Gaya".
4. Seterusnya pilih "Normal".
5. Atau anda boleh menekan "Ctrl + Shift + N" pada langkah 2 sebagai gantinya.

Kaedah 3: Keluarkan Semua Peluru dalam Dokumen

1. Pertama sekali, tekan "Alt + F11" untuk membuka editor VBA dalam Word.
2. Di editor, klik projek "Normal".
3. Kemudian klik tab "Insert" dan pilih "Module".
4. Klik dua kali modul baru untuk mengeluarkan kawasan penyuntingan dan tampal makro berikut di sana:

Sub RemoveAllBulletsInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Terakhir, klik "Run" atau tekan "F5".

Inilah hasilnya:

Kaedah 4: Keluarkan Semua Nombor Senarai dalam Dokumen

1. Pertama, ulangi langkah dalam kaedah 3 untuk memasang dan menjalankan makro.
2. Anda hanya memerlukan makro ini sebagai gantinya:

Sub RemoveAllListNumbersInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Kaedah 5: Keluarkan Semua Peluru dan Nombor Senarai dalam Dokumen

Sekiranya anda perlu mengeluarkan peluru dan nombor senarai, anda boleh menggunakan makro berikut:

Sub RemoveBulletsAndListBumbers()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Pilih Alat Pembaikan yang Boleh Dipercayai

Memandangkan fakta bahawa Word rentan terhadap kesalahan, ada banyak alat pembaikan yang dirancang untuk betulkan Kata. Walau bagaimanapun, anda mesti memberi perhatian yang cukup semasa memilih utiliti tersebut, terutama pada masa kecemasan. Ingat bahawa alat yang tidak boleh dipercayai boleh menyebabkan kerosakan lebih lanjut pada data anda.

Pengenalan Pengarang:

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