Word құжатыңыздан оқ пен тізімнің сандарын жылдам жоюдың 5 тәсілі

Бұл мақалада біз сізге Word құжатындағы оқ пен тізімнің нөмірлерін жоюдың 5 қарапайым әдісін көрсеткіміз келеді.

Құжатта таңбаланған және нөмірленген тізімдер болуы мүмкін. Кейде сізге осы тізімдерді қайта форматтау қажет болуы мүмкін. Мысалы, сізге тек бірнеше мәтінді атап өту үшін тізімнің мазмұнын қою, көлбеу немесе кәдімгі мәтіндерде орнату қажет болуы мүмкін. Содан кейін алдымен барлық таңбаларды және тізім нөмірлерін алып тастау керек.

Мұнда әр түрлі жағдайларға арналған 5 шешім бар.

1-әдіс: «Ешқандай» маркерлерді немесе нөмірлеуді орнатыңыз

1. Алдымен қажет емес таңбаланған және нөмірленген жазбаларды таңдаңыз.
2. Содан кейін «Оқтар» немесе «Нөмірлеу» батырмаларындағы ашылмалы батырманы басыңыз.
3. «Жоқ» батырмасын басыңыз.

Нәтижені тексеріңіз:

2-әдіс: Маркерленген немесе нөмірленген жазбалар үшін «Қалыпты» мәнерді орнатыңыз

1. Бастау үшін қажет емес жазбаларды таңдаңыз.
2. Екіншіден, таспадағы «Үй» қойындысын нұқыңыз.
3. Содан кейін «Стильдер» тобындағы «Қосымша» батырмасын басыңыз.
4. Әрі қарай «Қалыпты» таңдаңыз.
5. Немесе оның орнына 2-қадамда “Ctrl + Shift + N” пернелерін басуға болады.

3-әдіс: Құжаттағы барлық оқшаларды алып тастаңыз

1. Ең алдымен, Word бағдарламасында VBA редакторын ашу үшін «Alt+F11» пернелер тіркесімін басыңыз.
2. Редакторда «Қалыпты» жобасын басыңыз.
3. Содан кейін «Кірістіру» қойындысын басып, «Модуль» таңдаңыз.
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. Соңында «Іске қосу» батырмасын басыңыз немесе «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 қателіктерге бейім екенін ескере отырып, көптеген жөндеуге арналған құралдар бар сөзді түзету. Алайда, мұндай қызметтік бағдарламаны таңдау кезінде, әсіресе төтенше жағдайда, сізге жеткілікті назар аудару керек. Есіңізде болсын, сенімсіз құрал сіздің деректеріңізге одан әрі зиян тигізуі мүмкін.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com