დღევანდელ სტატიაში წარმოგიდგენთ 2 სწრაფ და ეფექტურ მეთოდს Word დოკუმენტში ტყვიების რაოდენობის დასათვლელად.
დროდადრო ჩვენ ვიყენებდით ბურთულებით ან დანომრილ სიებს ჩვენს დოკუმენტებში ერთეულების ორგანიზებისთვის. ზოგადად, პუნქტი ან რიცხვი მიჰყავს ცალკეულ პუნქტს, იქნება ეს სიტყვა, ფრაზა თუ წინადადება. ახლა თუ თქვენ გაქვთ დანომრილი სია, არ იქნება პრობლემა მთლიანი ნივთის ნომრის გარკვევა. თუმცა, რა მოხდება, თუ თქვენს word დოკუმენტში არის ბურთულებიანი სიები? მათი სათითაოდ დათვლა არ ჟღერს კარგად.
ამიტომ, თუ ზოგიერთ თქვენგანს შეიძლება დასჭირდეს პუნქტის ნომრის შეჯამება, აქ არის 2 გზა გამოსამუშავებლად.
მეთოდი 1: ბურთულებიანი სიის გადაქცევა დანომრილ სიაში
- უპირველეს ყოვლისა, აირჩიეთ სია, რომელშიც გსურთ მიიღოთ პუნქტის ნომერი.
- შემდეგ დააწკაპუნეთ "ნუმერაცია" ჯგუფში "პარაგრაფი" ჩანართში "მთავარი". ბურთულებიანი სია შეიცვლება დანომრილი ერთით.
ან ასევე შეგიძლიათ დააწკაპუნოთ მაუსის მარჯვენა ღილაკით არჩევანზე და გადაიტანოთ კურსორი "ნუმერაციის" ოფციაზე, შემდეგ გადაიტანეთ კურსორი ნუმერაციის ერთ-ერთ სტილზე გაფართოების მენიუში. ეს საშუალებას გაძლევთ მიიღოთ ტყვიების რაოდენობა პუნქტებით ჩამოთვლილი სიის დანომრილ რიცხვად გადაქცევის გარეშე.
სხვათა შორის, თუ თქვენ გჭირდებათ მთელი დოკუმენტის პუნქტების დათვლა, თქვენ მხოლოდ უნდა მოათავსოთ კურსორი ერთი ბურთულიანი სიის ფარგლებში და შემდეგ მიჰყევით ზემოთ მოცემულ ნაბიჯებს. თქვენ ნახავთ, რომ ფაილში ჩაწერილი ყველა სია გადაკეთებულია დანომრილ სიებში თანმიმდევრობით რიცხვებით, როგორიცაა ქვემოთ:
მეთოდი 2: გამოიყენეთ მაკრო
- დასაწყისისთვის, თუ გსურთ მიიღოთ კონკრეტული სიის პუნქტები, აირჩიეთ იგი. წინააღმდეგ შემთხვევაში, მთელ დოკუმენტში ტყვიების დასათვლელად, თქვენ უნდა დააჭიროთ "Ctrl+ A"-ს, რომ ის იყოს შერჩეულში.
- შემდეგი, დააჭირეთ "დეველოპერი" ჩანართს.
- შემდეგ დააჭირეთ "Visual Basic"-ს VBA რედაქტორის გასახსნელად. მალსახმობების კომბინაცია არის "Alt+ F11".
- ახლა დააჭირეთ "ნორმალური" და შემდეგ "ჩასმა".
- შემდეგ აირჩიეთ "მოდული".
- ორჯერ დააწკაპუნეთ ახალ მოდულზე და ჩასვით ეს კოდები რედაქტირების ზონაში:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- დაბოლოს, დააჭირეთ ღილაკს "Run".
თქვენ ნახავთ შეტყობინებების ყუთს, რომელიც აჩვენებს შედეგს.
კარგად მართეთ თქვენი ფაილი
ჩვენ ვმუშაობთ უამრავ Word დოკუმენტთან სამუშაო გამოცდილების დროს, ვარაუდობენ, რომ მათ ფრთხილად უნდა მოვუაროთ, რადგან ნებისმიერმა უბედურებამ შეიძლება გამოიწვიოს კორუფცია. და თუ ფაილის დაზიანება მოხდება, დაგჭირდებათ ა Word დოკუმენტის აღდგენის ინსტრუმენტი რათა დაგეხმაროთ პრობლემის მოგვარებაში.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls მონაცემთა დაზიანების აღდგენის ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად