5 გზა, რათა სწრაფად ამოიღოთ პუნქტები და ჩამოთვალოთ რიცხვები თქვენი Word დოკუმენტიდან

ამ სტატიაში გვსურს წარმოგიდგინოთ 5 მარტივი გზა თქვენი Word დოკუმენტიდან ტყვიების ამოსაღებად და ჩამოთვლილ ნომრებზე.

დოკუმენტი შეიძლება შეიცავდეს ბურთულებით და დანომრილ სიებს. ზოგჯერ შეიძლება დაგჭირდეთ ამ სიების რეფორმირება. მაგალითად, შეიძლება დაგჭირდეთ სიის შიგთავსის დაყენება თამამი, დახრილი ან რეგულარული ტექსტებით, რომ მხოლოდ რამდენიმე დაასახელოთ. შემდეგ ჯერ უნდა ამოიღოთ ყველა პუნქტი და სიის ნომრები.

აქ არის 5 გამოსავალი სხვადასხვა შემთხვევისთვის.

მეთოდი 1: დააყენეთ „არცერთი“ ბურთულები ან ნუმერაცია

1. უპირველეს ყოვლისა, აირჩიეთ არასასურველი პუნქტები და დანომრილი ჩანაწერები.
2. შემდეგ დააჭირეთ ჩამოსაშლელ ღილაკს "Bullets" ან "Numbering".
3. დააწკაპუნეთ "არცერთი".

შეამოწმეთ შედეგი:

მეთოდი 2: დააყენეთ „ნორმალური“ სტილი ბურთულიანი ან დანომრილი ჩანაწერებისთვის

1. დასაწყისისთვის აირჩიეთ არასაჭირო ჩანაწერები.
2. მეორე, დააწკაპუნეთ "მთავარი" ჩანართზე ლენტით.
3. შემდეგ დააჭირეთ ღილაკს "მეტი" ჯგუფში "სტილები".
4. შემდეგ აირჩიეთ "ნორმალური".
5. ან შეგიძლიათ დააჭიროთ „Ctrl+ Shift+ N“ ნაბიჯი 2-ის ნაცვლად.

მეთოდი 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. და ბოლოს, დააჭირეთ "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. ერთად