Word Count-ի վիճակագրությունից ձեր Word փաստաթղթում թվերը բացառելու 4 եղանակ

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այսօրվա հոդվածում ձեզ կներկայացնենք 4 արդյունավետ եղանակ՝ ձեր Word փաստաթղթում թվերը բառերի հաշվարկի վիճակագրությունից բացառելու համար:

Ընդհանրապես, Word-ը հաշվում է բոլոր տեսակի տեքստերը՝ լինեն դրանք բառեր, թե թվեր: Բայց, երբեմն, մենք, ամենայն հավանականությամբ, կկատարենք բառերի հաշվարկ՝ բացառելով որոշ տարրեր, ինչպիսիք են թվերը: Հետևաբար, մենք ուրախ ենք ձեզ ցույց տալ 4 մեթոդ՝ նման պահանջը բավարարելու համար:Բացառեք ձեր Word փաստաթղթի թվերը Word Count-ի վիճակագրությունից

Նախևառաջ, դուք պետք է վերցնեք նպատակային փաստաթղթի պահուստային պատճենը և կիրառեք ստորև նշված բոլոր մեթոդները ձեր պատճենի վրա։

Մեթոդ 1. Ջնջել բոլոր համարները

  1. Նախ, բացեք պատճենահանման ֆայլը և սեղմեք բացվող կոճակը «Գտնել» «Տուն» ներդիրում:
  2. Երկրորդ, ընտրեք «Ընդլայնված որոնում»՝ «Գտնել և փոխարինել» երկխոսության տուփը բացելու համար:Կտտացրեք «Տուն» -> Սեղմեք «Գտնել» -> Ընտրեք «Ընդլայնված որոնում»
  3. Հաջորդը մուտքագրեք «^#» «Գտեք ինչ» տեքստային վանդակում: Եթե ​​չեք հիշում այս տողը, դրեք կուրսորը «Գտեք ինչ» տեքստային դաշտում և սեղմեք «Ավելին», ապա սեղմեք «Հատուկ» կոճակը:
  4. Այնուհետև ընտրեք «Ցանկացած թվանշան»:
  5. Այժմ սեղմեք «Գտնել» և ընտրեք «Հիմնական փաստաթուղթ»:
  6. Դուք կգտնեք, որ բոլոր համարները ընտրության մեջ են:Մուտքագրեք «^#» «Գտեք ինչ» տեքստային վանդակում->Սեղմեք «Գտնել» ->Ընտրեք «Հիմնական փաստաթուղթ»
  7. Սեղմեք «Deleteնջել»:
  8. Երբ թվերն անհետանան, դուք կարող եք նկատել, որ Word-ը որոշ կետադրական նշաններ այժմ համարում է որպես բառեր: Այսպիսով, դուք պետք է հեռացնեք նաև բոլոր կետադրական նշանները: Կրկին բացեք «Գտնել և փոխարինել» տուփը: Այս անգամ մուտքագրում «[,.;:'”””/\!\*\?\\]» (առանց չակերտների) «Գտնել ինչ» տեքստային վանդակում:
  9. Եվ հիշեք, որ նշեք «Օգտագործել նիշերը» վանդակը:
  10. Կրկնեք 5-րդ քայլը՝ բոլոր կետադրական նշանները գտնելու համար:Մուտքագրեք String «Գտեք ինչ» տեքստային վանդակում->Սեղմեք «Գտնել» ->Ընտրեք «Հիմնական փաստաթուղթ»
  11. Նջել դրանք:
  12. Վերջում սեղմեք «Վերանայել», ապա «Բառերի հաշվարկ»՝ տեքստերի ընդհանուր թիվը դիտելու համար:Կտտացրեք «Կարծիք» -> Սեղմեք «Բառերի հաշվարկ»

Մեթոդ 2. Ձևաչափել բոլոր թվերը որպես թաքնված տեքստեր

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

  1. Նախ, կրկնեք մեթոդի առաջին 6 քայլերը:
  2. Ընտրված թվերը ջնջելու փոխարեն սեղմեք «Ctrl+ D»՝ «Տառատեսակ» տուփը բացելու համար:
  3. Ստուգեք «Թաքնված» վանդակը և սեղմեք «OK»:Ստուգեք «Թաքնված» վանդակը - սեղմեք «OK»
  4. Հաջորդը կրկնեք 8-ից 9-րդ քայլը՝ բոլոր կետադրական նշանները գտնելու համար:
  5. Նմանապես, հետևեք 2-րդ և 3-րդ քայլերին` կետադրական նշանները որպես թաքնված տեքստեր ձևավորելու համար:
  6. Ի վերջո, ստուգեք ընդհանուր բառերը:

Մեթոդ 3. Գործարկել Word մակրոը

Հետևյալ մակրոն ինքնաբերաբար կկատարի վերը նշված քայլերը և կվերադարձնի ձեզ հաղորդագրության տուփ, որը պարունակում է բառերի ընդհանուր թիվը՝ առանց թվերի:

  1. Սկսելու համար սեղմեք «Alt+ F11» Word-ում՝ VBA խմբագրիչը բացելու համար:
  2. Հաջորդը ձախ սյունակում սեղմեք «Նորմալ»:
  3. Դրանից հետո կտտացրեք «Տեղադրել» ներդիրին և ընտրել «Մոդուլ»:Սեղմեք «Նորմալ» -> Սեղմեք «Տեղադրել» -> Սեղմեք «Մոդուլ»
  4. Կրկնակի սեղմեք մոդուլի վրա՝ այն բացելու և ստորև նշված ծածկագրերը տեղադրելու համար.
Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub
  1. Սեղմեք «Run»:Կպցնել ծածկագրերը-> Սեղմել «Գործարկել»

Դուք կստանաք հաղորդագրության տուփ, որը կպատմի, թե քանի բառ կա ձեր փաստաթղթում, օրինակ՝ ստորև.Արդյունքների տուփ

Մեթոդ 4. Բառերի հաշվարկից բացառել աղյուսակների թվերը

Ահա աղյուսակներում թվերը բառերի հաշվարկից բացառելու հատուկ անհրաժեշտություն: Լուծումը մակրո գործարկելն է:

  1. Տեղադրեք և գործարկեք մակրո, ինչպես նշված է 3-րդ մեթոդում:
  2. Դրանից հետո այդ մակրոը փոխարինեք այսով.
Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

Կլինի հաղորդագրությունների տուփ, ինչպիսին է սա.Բառերի հաշվարկ՝ առանց աղյուսակների թվերի

Մտածեք առաջ

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

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

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

Կիսվել հիմա ՝

Comments փակվում են: