2 metoder for å telle totalt antall ord på ett språk i et flerspråklig Word-dokument

I dagens artikkel vil vi presentere deg 2 metoder for å telle det totale antallet ord på ett språk i et flerspråklig Word-dokument.

En gang i blant kan noen av dere ha behov for å redigere et flerspråklig Word-dokument. Som et resultat vil det være ganger du ønsker å telle ord for ett spesifikt språk, men bare for å finne at Word ikke kan utføre denne oppgaven.

Da er det målet å gi deg 2 nyttige løsninger for å løse et slikt problem.

Metode 1: Bruk alternativet "Avansert søk".

  1. Først klikker du på opp-ned trekantknappen bak "Finn" i "Redigering"-gruppen under fanen "Hjem".     Klikk "Hjem" -> knappen -> Klikk "Avansert søk"
  2. Nå i "Finn og erstatt"-dialogboksen, klikk på "Mer" -knappen.
  3. Og merk av for «Finn kun hele ord»-boksen.
  4. Klikk deretter på "Format"-knappen.
  5. Velg deretter "Språk".Klikk "Format"->Velg språk
  6. Finn og velg i dialogboksen "Finn språk". tarfå språk og klikk "OK".Velg Språk-> Klikk "OK"
  7. Nå tilbake til "Finn og erstatt"-boksen, klikk på "Finn inn" og velg "Hoveddokument".Klikk "Finn i"->Velg "Hoveddokument"
  8. Deretter skal alle engelske ord velges og gå til å sjekke ordtellingen i nedre venstre hjørne av skjermen. Vi kan se at tallet er 93.Sjekk antall ord for engelske ord

Metode 2: Kjør Word Macro

  1. Til start med, klikk på "Utvikler"-fanen.
  2. Klikk deretter "Visual Basic" for å utløse VBA-editoren. Hvis du ikke har aktivert «Utvikler»-fanen ennå, trykk «Alt+ F11» i stedet.Klikk "Utvikler" -> Klikk "Visual Basic"
  3. Klikk deretter "Normal" og klikk deretter "Sett inn".
  4. Velg "Modul".Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  5. Og dobbeltklikk på den nye modulen for å åpne kodeplassen.
  6. Deretter limer du inn følgende koder der:
Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub
  1. Til slutt klikker du på "Kjør"-knappen.Lim inn koder-> Klikk "Kjør"

Det skal dukke opp en meldingsboks. Tallet refererer til det totale antallet franske tekster i dette dokumentet.En meldingsboks som viser det totale antallet franske tekster

OBS:

I kodelinje ".LanguageID = wdFrench”,“wdfransk" betyr fransk språk. For å tilpasse kodene for mer spesifikk bruk, kan du erstatte språk-ID-en med det nøyaktige språket du ønsker. Og for mer språk-ID kan du besøke: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Håndter korrupte Word-filer på riktig måte

Nå og da vil Word slå seg av eller fryse på grunn av alle slags feil eller feil. La oss si at hvis du ikke klarer å sikkerhetskopiere filer med jevne mellomrom, er det stor mulighet for å miste alle de dyrebare dataene. Og de 2 løsningene som gjenstår er enten å bruke den innebygde funksjonen til Word eller få et program til reparasjonsdok. Gitt det faktum at førstnevnte ikke virker så bra i most tid, er det tilrådelig å velge et tredjepartsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert Excel-fiks og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.