Өнөөдрийн өгүүллээр бид танд Word баримт бичигт сумны тоог тоолох хурдан бөгөөд үр дүнтэй 2 аргыг танилцуулах болно.
Хааяа бид баримт материалдаа сумтай эсвэл дугаарласан жагсаалтыг ашиглан зүйл зохион байгуулдаг байв. Ерөнхийдөө сум эсвэл цэг нь тухайн үг, хэллэг эсвэл өгүүлбэрээс үл хамааран тухайн зүйлийг удирддаг. Одоо танд дугаарласан жагсаалт байгаа бол нийт зүйлийн дугаарыг олоход асуудал гарахгүй. Гэсэн хэдий ч, хэрэв таны үгийн баримт бичигт сумтай жагсаалт байвал яах вэ? Зүгээр л тэдгээрийг нэг нэгээр нь тоолох нь сайн сонсогдохгүй байна.
Тиймээс, хэрэв танд зарим нь сумны дугаарыг нэгтгэн дүгнэх шаардлагатай бол дараах 2 аргыг боловсруулаарай.
Арга 1: Сумтай жагсаалтыг дугаарлагдсан жагсаалтад хөрвүүлэх
- Нэгдүгээрт, сумны дугаараа авах жагсаалтаа сонгоно уу.
- Дараа нь "Нүүр хуудас" цонхны "Догол" бүлэгт байгаа "Дугаарлалт" дээр дарна уу. Сумтай жагсаалт дугаарлагдсан болж өөрчлөгдөнө.
Эсвэл та сонголт дээр хулганы баруун товчийг дараад курсорыг "Дугаарлах" сонголтын дээр шилжүүлээд дараа нь өргөжүүлэх цэсний дугаарлалтын аль нэг дээр курсороо байрлуулж болно. Энэ нь сумтай жагсаалтыг дугаарласан руу хөрвүүлэхгүйгээр сумны тоог авах боломжийг танд олгоно.
Дашрамд хэлэхэд, хэрэв та бүх баримт бичгийн сумны цэгийг тоолох шаардлагатай бол курсорыг зөвхөн нэг сумтай жагсаалтад багтаах хэрэгтэй бөгөөд дараа нь дээрх алхмуудыг дагана уу. Файл доторх бүх сумаар жагсаагдсан жагсаалтыг дугаарласан жагсаалтад дараах дарааллаар дугаарласан жагсаалт болгон хөрвүүлснийг та олох болно.
Арга 2: Макро ашиглах
- Эхлээд та тодорхой жагсаалтын сумыг авахыг хүсвэл сонгоно уу. Үгүй бол бүх баримт бичигт байгаа сумыг тоолохын тулд та "Ctrl + A" товчийг дарж сонгоно уу.
- Дараа нь "Хөгжүүлэгч" таб дээр дарна уу.
- Дараа нь "Visual Basic" дээр дарж VBA засварлагчийг нээнэ үү. Товчлолын хослол нь “Alt + F11” юм.
- Одоо "Normal" дээр дараад "Insert" дээр дарна уу.
- Дараа нь "Модуль" -г сонгоно уу.
- Шинэ модуль дээр давхар товшоод засварлах хэсэгт эдгээр кодыг оруулна уу.
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
- Эцэст нь "Ажиллуулах" дээр дарна уу.
Үр дүнг харуулсан мессеж хайрцаг гарч ирэхийг харах болно.
Өөрийн файлыг сайн удирдана уу
Ажлын туршлагын үеэр бид Word програмын олон тооны баримт бичгүүдийг авч үздэг тул алдаа дутагдал нь авлигад хүргэж болзошгүй тул бид тэдгээрийг нягт нямбай авч үзэх хэрэгтэй. Хэрэв файлын эвдрэл гарсан тохиолдолд танд хэрэгтэй болно Word баримт сэргээх хэрэгсэл асуудлыг шийдвэрлэхэд тань туслах болно.
Зохиогчийн танилцуулга:
Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls өгөгдлийн эвдрэлийг арилгах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com