4 veidi, kā izslēgt skaitļus savā Word dokumentā no vārdu skaita statistikas

Word dokumentu atkopšana, Vārdu risinājumi Aprīlis 24, 2020
Kopīgot tūlīt:

Šodienas rakstā mēs jums piedāvāsim 4 efektīvus veidus, kā izslēgt skaitļus jūsu Word dokumentā no vārdu skaita statistikas.

Parasti Word skaita visu veidu tekstus, vai tie būtu vārdi vai skaitļi. Bet šad un tad mēs, visticamāk, veiksim vārdu skaitīšanu, izslēdzot noteiktus elementus, piemēram, skaitļus. Tāpēc mēs priecājamies jums parādīt 4 metodes, kā izpildīt šādu prasību.Izslēdziet skaitļus savā Word dokumentā no vārdu skaita statistikas

Vispirms jums ir jāveic rezerves kopija tariegūstiet dokumentu un izmantojiet visas metodes, kas zemāk redzamas jūsu kopijā.

1. metode: dzēsiet visus numurus

  1. Pirmkārt, atveriet faila kopiju un cilnē Sākums noklikšķiniet uz nolaižamās pogas “Atrast”.
  2. Otrkārt, izvēlieties “Advanced Find”, lai atvērtu dialoglodziņu “Find and Replace”.Noklikšķiniet uz "Sākums" -> Noklikšķiniet uz "Atrast" -> Izvēlieties "Papildu meklēšana"
  3. Pēc tam tekstlodziņā “Atrodi” ievadiet “^ #”. Ja jūs neatceraties šo virkni, ievietojiet kursoru tekstlodziņā “Atrast ko” un noklikšķiniet uz “Vēl”, pēc tam noklikšķiniet uz pogas “Īpašais”.
  4. Pēc tam atlasiet “Jebkurš cipars”.
  5. Tagad noklikšķiniet uz “Atrast” un izvēlieties “Galvenais dokuments”.
  6. Jūs atradīsit, ka visi numuri ir atlasē.Teksta lodziņā “Atrast ko” ievadiet “^ #” - noklikšķiniet uz “Atrast” -> Izvēlieties “Galvenais dokuments”
  7. Nospiediet “Dzēst”.
  8. Kad cipari vairs nebūs, jūs varat pamanīt, ka Word tagad dažas pieturzīmes uzskata par vārdiem. Tāpēc jums ir jānoņem arī visas pieturzīmes. Vēlreiz atveriet lodziņu “Atrast un aizstāt”. Šī laika ievade “[,.;: '”” ”/ \! \ * \? \\]”(Bez pēdiņām) tekstlodziņā“ Atrast ko ”.
  9. Atcerieties atzīmēt izvēles rūtiņu “Izmantot aizstājējzīmes”.
  10. Atkārtojiet 5. darbību, lai atrastu visas pieturzīmes.Teksta lodziņā "Atrast ko" ievadiet virkni-> noklikšķiniet uz "Atrast" -> izvēlieties "Galvenais dokuments"
  11. Dzēsiet tos.
  12. Visbeidzot, noklikšķiniet uz “Pārskatīt”, pēc tam uz “Vārdu skaits”, lai skatītu kopējo tekstu skaitu.Noklikšķiniet uz "Pārskatīt" -> Noklikšķiniet uz "Vārdu skaits"

2. metode: formatējiet visus skaitļus kā slēptos tekstus

Vārdu skaitā Word nav iekļauti slēptie teksti, tāpēc varat izvēlēties iestatīt numurus slēptā formatējumā.

  1. Pirmkārt, atkārtojiet metodes 6 pirmās darbības.
  2. Tā vietā, lai izdzēstu atlasītos numurus, nospiediet “Ctrl + D”, lai atvērtu lodziņu “Fonts”.
  3. Atzīmējiet izvēles rūtiņu “Slēpts” un noklikšķiniet uz Labi.Atzīmējiet izvēles rūtiņu "Slēpts" - noklikšķiniet uz "Labi"
  4. Pēc tam atkārtojiet no 8. līdz 9. darbībai, lai atrastu visas pieturzīmes.
  5. Līdzīgi izpildiet 2. un 3. darbību, lai pieturzīmes formatētu kā slēptus tekstus.
  6. Visbeidzot, pārbaudiet vārdu kopskaitu.

3. metode: palaidiet Word Macro

Šis makro automātiski veiks iepriekš minētās darbības un atgriezīs ziņojumu lodziņu, kurā būs kopējais vārdu skaits, izņemot skaitļus.

  1. Vispirms nospiediet taustiņu “Alt + F11” programmā Word, lai atvērtu VBA redaktoru.
  2. Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
  3. Pēc tam noklikšķiniet uz cilnes “Ievietot” un izvēlieties “Modulis”.Noklikšķiniet uz "Normal" -> Noklikšķiniet uz "Insert" -> Noklikšķiniet uz "Module"
  4. Veiciet dubultklikšķi uz moduļa, lai to atvērtu, un ielīmējiet zvana kodus:
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 = "^ #". Teksts = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With Selection.Find.Exec .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 aizvietot ar atlasi : = wdReplaceAll Beigt ar nWord = objDoc.Range.ComputeStatistics (wdStatisticWords) MsgBox ("T šeit ir "& nWord &" vārdi šajā dokumentā. ") Beigu apakšsadaļa
  1. Noklikšķiniet uz “Run”.Kodu ielīmēšana-> noklikšķiniet uz "Palaist"

Jūs saņemsit ziņojumu lodziņu, kurā būs norādīts, cik daudz vārdu jūsu dokumentā ir, piemēram, zemāk:Rezultātu lodziņš

4. metode: Izslēdziet skaitļus tabulās no vārdu skaita

Šeit ir īpaši jāizslēdz skaitļi tabulās no vārdu skaita. Risinājums ir palaist makro.

  1. Instalējiet un palaidiet makro, kā norādīts iepriekš 3. metodē.
  2. Pēc tam aizstājiet šo makro ar šo:
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 RangeD Oboc Set = Object Setoc = Object Set nWord = objDoc.Range.ComputeStatistics (wdStatisticWords) Katram objTable tabulā ObjDoc.Tables objTable.Range.Select Selection.Copy Set objRange = objNewDoc.Range objRange.Collapse Direction: = wdCollapseEnd objRange.PasteTollFilm ObjektDatuPieejamība: DataDype: = wdCollapseEnd objRange.Text = vbCr Nākamais objTable objNewDoc.Activate katram objParagraph vietnē ActiveDocument.Paragraphs Ja objParagraph.Range.Style = "Caption" Tad objParagraph.Range.Delete Beigt Ja Nākamais objParagraph nWordInNewDocStatNewDocStatWare Atlasīšana .HomeKey Unit: = wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Se lection.Find .Text = "^ #" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchSoundsLike = False. Izpildīt beigas ar 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 - nWoxInNumDgW ( šo dokumentu, izņemot skaitļus tabulās. ") Beigas

Būs tāds ziņojumu lodziņš kā šis:Vārdu skaits, neskaitot skaitļus tabulās

Padomā uz priekšu

Ņemot vērā to, ka Word nav drošs, jums ir jāveic preventīvi pasākumi, pirms viss ir par vēlu. Most noderīgs veids ir dublēt savus dokumentus un pēc iespējas dublēt tos. Dokumenta dublēšana var aizņemt tikai dažas minūtes, bet a korumpēts docx. Tāpēc padomājiet uz priekšu, lai ietaupītu gan laiku, gan naudu.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp Excel labojums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar

Kopīgot tūlīt:

Komentāri ir slēgti.