Ձեր փաստաթղթում տեքստային տուփերի, ծանոթագրությունների և վերջնագրերի հետ կապված բառերի քանակի վիճակագրություն ստանալու 3 եղանակ

Այսօրվա հոդվածում կան 3 արագ եղանակներ՝ ձեր փաստաթղթի տեքստային տուփերի, տողատակերի և վերջնագրերի հետ կապված բառերի քանակի վիճակագրություն ստանալու համար:

Փաստաթղթում բառերի ընդհանուր թիվը պարզելը դժվար չէ: Բայց եթե ցանկանում եք ստանալ տարբեր տեսակի տեքստերի բառերի քանակը, ապա ավելի շատ գործողություններ կպահանջվեն: Հետևյալը 3 մեթոդ է. Կարդացեք՝ տեսնելու համար, թե ինչ կարող եք օգտագործել: 

Մեթոդ 1. Հաշվել բառերը, ներառյալ տեքստերը տեքստային տուփերից, ծանոթագրություններից և վերջի նշումներից

Լռելյայնորեն, Word-ը հաշվում է փաստաթղթում հայտնված բոլոր բառերը, ներառյալ տեքստային տուփերում տեքստերը և տողատակերի և վերջի ծանոթագրությունների բառերը:

1. Նախ և առաջ, գնացեք կարգավիճակի գոտի և սեղմեք «Բառեր»՝ «Բառերի քանակ» վանդակը բացելու համար։
2. Այնտեղ դուք կտեսնեք բոլոր տեսակի վիճակագրություն: Համոզվեք, որ դուք նշել եք «Ներառել տեքստային տուփեր, ծանոթագրություններ և ավարտական ​​նշումներ» վանդակը:
3. Այնուհետև կտտացրեք «Փակել»:
4. Եթե ​​դուք չեք կարող գտնել «Բառեր» հրամանը կարգավիճակի տողում, աջ սեղմեք այնտեղ:
5. Հաջորդը ստուգեք «Բառերի հաշվարկը»:

Մեթոդ 2. Բացառել տեքստերը Տեքստային տուփերից, ծանոթագրություններն ու վերջնագրերը Word Count-ից

Սա հակադրվում է 1-ին մեթոդին: Այսպիսով, դուք պարզապես պետք է հանեք «Ներառել տեքստային տուփեր, ծանոթագրություններ և վերջնագրեր» վանդակը:

Մեթոդ 3. Գործարկել Word Macro-ն՝ տեքստային տուփերից, ծանոթագրություններից և վերջնագրերից բառերի առանձին քանակ ստանալու համար

1. Նախ, գործարկեք «Բառերի հաշվարկ» վանդակը, օգտագործելով 1-ին մեթոդը և համոզվեք, որ ընտրանքների վանդակը ստուգված է:
2. Հաջորդը սեղմեք «Alt+ F11»՝ VBA խմբագրիչը բացելու համար:
3. Այնուհետև տեղադրեք նոր մոդուլ «Նորմալ» նախագծում՝ նախ սեղմելով «Նորմալ»:
4. Եվ հաջորդը սեղմեք «Տեղադրել»:
5. Ապա ընտրեք «Մոդուլը»:
6. Կրկնակի սեղմեք մոդուլի վրա՝ կոդավորման տարածքը բացելու համար և այնտեղ տեղադրեք հետևյալ կոդերը.

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Ի վերջո, կտտացրեք «Գործարկել» կոճակին:

Եթե ​​չկա տեքստային տուփ, ծանոթագրություն կամ վերջի նշում, դուք կստանաք հաղորդագրության տուփ հետևյալ կերպ.

Շարունակելու համար պարզապես սեղմեք «OK»: Այնուհետև կտեսնեք մեկ այլ տուփ, որտեղ նշված են բառերի քանակի բոլոր մանրամասները:

Ստացեք վերականգնման գործիք

Քանի որ Word-ը կարող է հանկարծակի փլուզվել, խորհուրդ է տրվում ձեռք բերել առաջադեմ վերանորոգման արտադրանք՝ ամրագրման աշխատանքը կատարելու համար: Նման գործիքը կարող է մեծ խնայողություն լինել ապականված Խոսք. Հետևաբար, ժամանակ օգտագործեք՝ հնարավորինս շուտ ձեռք բերելու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ուղղել xls և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com