Word баримтнаас сум, жагсаалтын дугаарыг хурдан арилгах 5 арга

Энэ нийтлэлд бид танд Word документээс сум, жагсаалтын дугаарыг арилгах 5 хялбар аргыг харуулахыг хүсч байна.

Баримт бичигт сумаар тэмдэглэсэн, дугаарласан жагсаалт байж болно. Заримдаа та эдгээр жагсаалтыг дахин форматлах шаардлагатай болж магадгүй юм. Жишээлбэл, цөөн хэдэн нэрийг нь нэрлэхийн тулд жагсаалтын агуулгыг тод, налуу эсвэл ердийн текстээр тохируулах шаардлагатай байж магадгүй юм. Дараа нь та эхлээд бүх сум, жагсаалтын дугаарыг хасах хэрэгтэй.

Энд янз бүрийн тохиолдлуудад 5 шийдэл байна.

Арга 1: "Байхгүй" сум эсвэл дугаарлалт тохируулах

1. Юун түрүүнд хүсээгүй сумтай, дугаарласан оруулгыг сонгоно уу.
2. Дараа нь "Bullets" эсвэл "Numinging" дээр унах товчийг дарна уу.
3. "Байхгүй" дээр дарна уу.

Үр дүнг шалгах:

Арга 2: Цаасан сумтай эсвэл дугаарласан бичилтийн хувьд "Хэвийн" хэв маягийг тохируулах

1. Эхлэхийн тулд шаардлагагүй оруулгуудыг сонгоно уу.
2. Хоёрдугаарт, тууз дээрх "Нүүр хуудас" таб дээр дарна уу.
3. Дараа нь "Styles" бүлгийн "Илүү" товчийг дарна уу.
4. Дараа нь "Normal" -ийг сонгоно уу.
5. Эсвэл та 2-р алхам дээр "Ctrl + Shift + N" товчийг дарж болно.

Арга 3: Баримт бичигт байгаа бүх сумыг устгах

1. Юуны өмнө, Word дээр VBA засварлагчийг нээхийн тулд "Alt" + "F11" товчийг дарна уу.
2. Редактор дээр "Хэвийн" төслийг дарна уу.
3. Дараа нь "Insert" таб дээр дарж "Module" -г сонгоно уу.
4. Шинэ модулийг давхар товшоод засах талбарыг гаргаж, дараахь макро байрлуулна уу.

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. Эцэст нь "Run" дээр дарна уу эсвэл "F5" дээр дарна уу.

Үр дүн энд байна:

Арга 4: Баримт бичгийн бүх жагсаалтын дугаарыг устгах

1. Нэгдүгээрт, макро суулгаж ажиллуулахын тулд 3-р аргын алхмуудыг давт.
2. Үүний оронд зөвхөн танд энэ макро хэрэгтэй болно:

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

Арга 5: Баримт бичигт байгаа бүх сум, жагсаалтын дугаарыг устгах

Сум, жагсаалтын дугаарыг хоёуланг нь хасах шаардлагатай бол дараахь макро ашиглаж болно.

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

Итгэлтэй засвар хийх хэрэгслийг сонгоорой

Word нь алдаанд өртөмтгий байдгийг харгалзан олон тооны засах хэрэгслүүд байдаг Word засах. Гэсэн хэдий ч та ийм хэрэгслийг сонгохдоо, ялангуяа яаралтай үед хангалттай анхаарал хандуулах хэрэгтэй. Найдваргүй хэрэгсэл нь таны өгөгдөлд илүү их хохирол учруулж болзошгүйг санаарай.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com