2 metoder til at tælle det samlede antal ord på ét sprog i et flersproget Word-dokument

Word-løsninger September 28, 2025

I dagens artikel vil vi gerne præsentere dig for 2 metoder til at tælle det samlede antal ord på ét sprog i et flersproget Word-dokument.

En gang imellem kan nogle af jer have behov for at redigere et flersproget Word-dokument. Som et resultat vil der være tidspunkter, hvor du vil tælle ord for et bestemt sprog, men kun for at finde Word ude af stand til at udføre denne opgave.

Så er det målet at give dig 2 nyttige løsninger til at løse et sådant problem.

Metode 1: Brug "Avanceret søgning".

  1. Først skal du klikke på trekantknappen på hovedet bag "Find" i gruppen "Redigering" under fanen "Hjem".     Klik på "Hjem" -> knappen -> Klik på "Avanceret søgning"
  2. Klik nu på knappen "Mere" i dialogboksen "Find og erstat".
  3. Og marker afkrydsningsfeltet "Find kun hele ord".
  4. Klik derefter på knappen "Formater".
  5. Vælg derefter "Sprog".Klik på "Format"->Vælg sprog
  6. I dialogboksen "Find sprog" skal du finde og vælge målsproget og klikke på "OK".Vælg sprog-> klik på "OK"
  7. Nu tilbage til boksen "Find og erstat", klik på "Find i" og vælg "Hoveddokument".Klik på "Find i" -> Vælg "Hoveddokument"
  8. Dernæst skal alle engelske ord vælges og gå til at kontrollere ordantallet i det nedre venstre hjørne af skærmen. Vi kan se tallet er 93.Tjek ordtal for engelske ord

Metode 2: Kør Word Macro

  1. For at starte skal du klikke på fanen "Udvikler".
  2. Klik derefter på "Visual Basic" for at udløse VBA-editoren. Hvis du ikke har haft "Udvikler"-fanen aktiveret endnu, skal du trykke på "Alt+ F11" i stedet for.Klik på "Udvikler" -> Klik på "Visual Basic"
  3. Klik derefter på "Normal" og klik derefter på "Indsæt".
  4. Vælg “Modul”.Klik på "Normal" -> Klik på "Indsæt" -> Klik på "Modul"
  5. Og dobbeltklik på det nye modul for at åbne kodningsrummet.
  6. Indsæt derefter 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 sidst skal du klikke på “Kør” -knappen.Indsæt koder-> Klik på "Kør"

Der skal dukke en beskedboks op. Tallet henviser til det samlede antal ord i franske tekster i dette dokument.En beskedboks, der viser det samlede antal franske tekster

Bemærk:

I kodelinje “.LanguageID = wdFrench", det "wd fransk” betyder fransk sprog. For at tilpasse koderne til mere specifik brug, kan du erstatte sprog-id'et med det nøjagtige sprog, du ønsker. Og for mere sprog-id kan du besøge: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Håndter korrupte Word-filer korrekt

Nu og da vil Word lukke ned eller fryse på grund af alle slags fejl eller fejl. Lad os sige, at hvis du undlader at sikkerhedskopiere filer regelmæssigt, er der stor mulighed for at miste alle de dyrebare data. Og de 2 løsninger, der er tilbage, er enten at bruge den indbyggede funktion i Word eller få et program til reparationsdokI betragtning af at førstnævnte ikke ser ud til at fungere så godt i det meste af tiden, er det tilrådeligt at vælge et tredjepartsværktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel-rettelse og pdf produkter til reparation af software. For mere information besøg www.datanumen.com

Kommentarer er lukket.