В днешната статия ще ви представим 2 бързи и ефективни метода за преброяване на броя на символите във вашия документ на Word.
От време на време бихме използвали маркирани или номерирани списъци в документите си, за да организираме елементи. Обикновено точката или числото водят отделен елемент, било то дума, фраза или изречение. Сега, ако имате номериран списък, няма да е проблем да разберете общия номер на артикула. Какво обаче, ако във вашия word документ има списъци с водещи символи? Простото броене един по един не звучи добре.
Ето защо, в случай че някои от вас може да се наложи да обобщят номера на куршума, ето 2 начина да се справите.
Метод 1: Преобразуване на списък с отметки в номериран списък
- Първо, изберете списъка, в който искате да получите номера на маркера.

- След това щракнете върху „Номериране“ в група „Абзац“ в раздела „Начало“. Подреденият списък се променя на номериран.

Или можете също да щракнете с десния бутон върху селекцията и да преместите курсора върху опцията „Номериране“, след което задръжте курсора на един от стиловете за номериране в менюто за разширение. Това ви позволява да получите броя на маркерите, без действително да конвертирате списъка с маркирани символи в номериран.
Между другото, ако трябва да преброите точки в целия документ, трябва само да поставите курсора в един списък с водещи символи и след това да изпълните горните стъпки. Ще откриете, че всички маркирани списъци във файла са преобразувани в номерирани списъци с номера в последователност, като например по-долу:
Метод 2: Използвайте Macro
- Като начало, ако искате да получите маркерите на определен списък, изберете го. В противен случай, за броя на символите в целия документ, трябва да натиснете „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.com





