2 metode pentru a exclude textele tabelelor din statisticile de numărare a cuvintelor

În p. de astăziost, suntem bucuroși să vă împărtășim 2 metode eficiente pentru a exclude textele din tabel din statisticile privind numărul de cuvinte.

Tabelele sunt în general folosite pentru a păstra date. Și tabelele sunt cel mai bun prieten al nostru în ilustrarea punctelor în timp ce lucrăm la un document. Atunci poate deveni puțin ciudat atunci când este implicată numărul de cuvinte. Uneori, trebuie doar să obținem numărul de cuvinte din textele principale, mai degrabă decât toate datele din tabele. Cu toate acestea, este cunoscut tuturor că Word numără toate cuvintele din documentul dvs. în mod implicit. Din acest motiv, am inventat mijloace eficiente. Citiți mai departe pentru a afla mai multe.Excludeți textele din tabel din Statisticile privind numărul de cuvinte

Metoda 1: Selectați manual tabelele și faceți calculul pe cont propriu

Dacă este un document scurt, cu doar unul sau două tabele, nu este deloc complicat să selectați tabelele unul câte unul ținând apăsată tasta „Ctrl”. În această abordare, numărul total din tabelele selectate va fi vizibil în bara de stare, cum ar fi mai jos:Numărul de cuvinte din tabelele selectate

După cum vezi, sunt 2 numere. Primul se referă la numărul de cuvinte din tabelele selectate, în timp ce al doilea este numărul total de cuvinte din documentul dvs. Doar folosiți al doilea număr la minus primul pentru a obține rezultatul.

Metoda 2: Rulați coduri VBA

După cum am menționat mai sus, metoda 1 va fi plictisitoare dacă aveți un număr mare de tabele în document. Pentru a le selecta manual, cu siguranță nu este modalitatea ideală. În schimb, vă recomandăm o macrocomandă care va număra toate cuvintele, dar le va exclude în tabele și subtitrări.

  1. În primul rând și înainteost, apăsați „Alt+ F11” pentru a invoca editorul VBA în Word.
  2. Apoi, faceți clic pe „Normal”.
  3. Apoi faceți clic pe fila „Inserare”.
  4. Și alegeți „Modul” din meniul derulant al filei „Inserare”.Faceți clic pe „Normal” -> Faceți clic pe „Inserare” -> Faceți clic pe „Modul”
  5. Faceți dublu clic pe noul modul pentru a deschide zona de codare din partea dreaptă.
  6. Acum lipiți următoarea macrocomandă acolo:
Sub ExcludeTableAndCaptionWordsFromWordCount() Dim objTable As Table Dim objParagraph As Paragraph Dim objDoc As Document Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer As Integer =NTableSetObjDoc =WObjDocs Active 0 nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords) Cu objDoc Pentru fiecare objTable în .Tables nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords) Următorul objTable Se termină cu cu objDoc Pentru fiecare objParagraph în .Paragraphs Dacă objParagraph.Range.Style = „CaptionW Obj. Gama .ComputeStatistics(wdStatisticWords) End If Next objParagraph End With nWordCount = nDocWords - nTableWords - nCaptionWords MsgBox ("Există " & nWordCount & " cuvintele text principale în acest document." & vbCr & "Următoarele elemente sunt excluse din numărul de cuvinte: " & vbCr & „Total cuvinte în tabele: „ & nTableWords & vbCr & „Total cuvinte subtitrare: „ & nCaptionWords) End Sub
  1. În cele din urmă, faceți clic pe „Rulați”.Lipiți coduri-> Faceți clic pe „Run”

Rularea macrocomenzii va apărea o casetă de mesaj, care arată rezultatul numărării.Caseta cu rezultate

Faceți față cu daunele Word

Ne bazăm atât de mult pe software precum Word pentru a procesa munca zilnic. Drept urmare, nu ne-am putut lipsi să ne gândim la consecința copleșitoare a avea o Coruperea cuvintelor. Vă puteți simți disperat dacă nu aveți un instrument suficient de reparare a documentelor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xls fix și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com

5 răspunsuri la „2 metode pentru a exclude textele tabelelor din statisticile de numărare a cuvintelor”

  1. Primesc o eroare de rulare „91”: Variabila obiect sau Cu variabila bloc nu este setată. Am încercat să o rezolv încercând să aflu ajutorul apăsând pe Ajutor pe mesajul de eroare, dar nu am cunoștințe de codare. Te rog ajuta-ma

    eu am :

    Sub ExcludeTableAndCaptionWordsFromWordCount()
    Dim objTable As Table
    Dim objParagraph As Paragraph
    Dim objDoc ca document
    Dim objCaption As CaptionLabels
    Dim nTableWords ca întreg, nDocWords ca întreg, nWordCount ca întreg, nCaptionWords ca întreg

    Setați objDoc = ActiveDocument
    Set objParagraph = Paragraf
    Setați objTable = Tabel
    Setați objCaption = CaptionLabels
    nTableWords = 0
    nCaptionWords = 0
    nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)

    Cu objDoc
    Pentru fiecare objTable în .Tables
    nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Următorul objTable
    Se termina cu

    Cu objDoc
    Pentru fiecare objParagraph În .Paragrafe
    Dacă objParagraph.Range.Style = „Caption” Atunci
    nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
    Final, dacă
    Următorul paragraf obj
    Se termina cu

    nWordCount = nDocWords – nTableWords – nCaptionWords

    MsgBox („Există ” & nWordCount & ” cuvintele text principale în acest document.” & vbCr & „Următoarele elemente sunt excluse din numărul de cuvinte: ” & vbCr & „Total cuvinte în tabele: ” & nTableWords & vbCr & „Total subtitrare cuvinte: ” & nCaptionWords)
    End Sub

  2. în mod constant obișnuiam să citesc articole sau recenzii mai mici care, de asemenea, le clarifică motivul, iar asta se întâmplă și cu această post pe care îl citesc în acest moment.

  3. Metoda 2 este legitimă. Pentru cei care au un rezumat și o referință, trebuie să-l excluzi mai întâi și după aceea, rulezi bestia.

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *