Таны үгийн баримт бичигт хэсгүүдийн үгийн тоог тоолох 3 арга

Энэ нийтлэлд таны Word баримт бичгийн хэсгүүдийн үгийн тоог тоолох 3 аргыг ашиглах болно.

Баримт бичгийн нийт үгсийн тоог олоход хялбар байдаг. Гэхдээ хэсэгт үгийн тоог хэлж өгөх функц Word дээр байдаггүй. Бид нэг сэдвийн агуулгыг ном бичихдээ бүлгийг зохион байгуулах гэх мэт нэг хэсэгт оруулахыг илүүд үздэг тул бид хэсгийн тооллыг авахын тулд тойрон гарах арга замыг гаргаж өгөх шаардлагатай байна.   Макро ажиллуулах шаардлагатай 3 аргыг дараахь байдлаар харуулав.

Арга 1: Одоогийн хэсгийн үгийн тоог тоол

1. Эхлээд курсороо зорилтот хэсэгт байрлуулна уу.
2. Дараа нь та Word дээр VBA засварлагч нээх хэрэгтэй. "Developer" дээр дараад "Visual Basic" командыг дарна уу. Хэрэв та туузнаас "Хөгжүүлэгч" -ийг олж чадахгүй бол оронд нь "Alt + F11" товчийг дарна уу.
3. Дараа нь зүүн баганад байгаа "Хэвийн" төслийг дарна уу.
4. Дараа нь "Оруулах" таб дээр дарна уу.
5. Тэр доош унах цэснээс “Модуль” -г сонгоно уу.
6. Шинэ модулийг хоёр товшилтоор нээнэ үү.
7. Одоо нээлттэй модуль дээр доорх кодуудыг буулгана уу:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Эцэст нь "Run" дээр дарна уу эсвэл "F5" дээр дарж кодыг ажиллуулна уу.

Танд доорхи нийт хэсгийн нийт тоог харуулсан мессеж хайрцаг ирэх болно.

Арга 2: Тодорхой хэсгийн үгийн тоог тоол

Та ном дээр ажиллаж, бүлэг бүрийг бие даасан хэсэг болгон тогтоож байсан гэж бодъё. Бүлэгт хэдэн үг бичсэнээ мэдэхийн тулд та энэ аргыг ашиглаж болно.

1. Макро суулгаж ажиллуулахын тулд дээрх алхмуудыг дагана уу.
2. Зөвхөн үүнийг макрооор солих хэрэгтэй.

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Үүнийг ажиллуулахад оролтын хайрцаг байх болно. “Хэсгийн дугаарыг оруулах” хэсэгт хэсгийн дугаарыг оруулаад “ОК” дээр дарж цааш үргэлжлүүлнэ үү.

Үр дүнг зурвасын хайрцагт харуулав.

Арга 3: Баримт бичгийн бүх хэсгүүдийн үгийн тоог тоол

Хадмал орчуулгаас харахад энэ хэсэг нь баримт бичгийн хэсэг бүрийн үгийн тоог гаргаж, мессеж хайрцган дээр жагсаах болно.

1. Юуны өмнө зорилтот баримт бичгийг нээнэ үү.
2. Гэсэн хэдий ч та макро суулгаж ажиллуулахын тулд 1-р аргын алхмуудыг давтах хэрэгтэй.
3. Энэ удаад энэ макро ашиглан өөрчлөгдөнө үү.

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Боломжит үр дүн энд байна:

Үнэ цэнэтэй өгөгдлийг хадгалах

Бүх төрлийн баримт бичигтэй харьцахдаа тэдгээрийн аюулгүй байдлыг санаж байх хэрэгтэй. Дараагийн өгөгдлийн алдагдал хэзээ болохыг хэзээ ч хэлж чадахгүй тул чухал файлуудыг нөөцлөхийг зөвлөж байна. Үүнээс гадна, боломжтой хэрэгслийг олж авах нь үргэлж сайн байдаг сэргээх докхэрэв байгаа бол.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls засвар болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com