2 Cədvəl mətnlərini Word Statistikasından Çıxarmaq üçün Metodlar

Bugünkü yazıda, söz sayı statistikasından cədvəl mətnlərini çıxarmağın 2 təsirli üsulunu sizinlə bölüşməkdən məmnunuq.

Cədvəllər ümumiyyətlə məlumatları saxlamaq üçün istifadə olunur. Cədvəllər isə sənəd üzərində işləyərkən nöqtələri təsvir etməkdə ən yaxşı dostumuzdur. Sonra sözlərin sayına gəldikdə, bir az yöndəmsiz ola bilər. Bəzən cədvəllərdəki bütün məlumatları deyil, əsas mətnlərin sözlərinin sayını almalıyıq. Bununla belə, hamıya məlumdur ki, Word standart olaraq sənədinizdəki bütün sözləri hesablayır. Bu səbəbdən səmərəli vasitələr tapdıq. Daha çox məlumat əldə etmək üçün oxuyun.

Metod 1: Cədvəlləri əl ilə seçin və riyaziyyatı özünüz edin

Əgər bu, yalnız bir və ya iki cədvəldən ibarət qısa sənəddirsə, “Ctrl” düyməsini basıb saxlayın. Bu yanaşmada seçilmiş cədvəllərin ümumi sayı status panelində görünəcək, məsələn:

Gördüyünüz kimi 2 nömrə var. Birincisi seçilmiş cədvəllərdəki sözlərin sayına, ikincisi isə sənədinizdəki sözlərin ümumi sayına aiddir. Nəticəni əldə etmək üçün birincini çıxarmaq üçün ikinci rəqəmdən istifadə edin.

Metod 2: VBA kodlarını işə salın

Yuxarıda qeyd edildiyi kimi, sənəddə çoxlu sayda cədvəliniz varsa, 1-ci üsul yorucu olacaq. Onları əl ilə seçmək, şübhəsiz ki, ideal yol deyil. Bunun əvəzinə sizə bütün sözləri sayacaq, lakin cədvəllərdə və başlıqlarda bunları istisna edən makro tövsiyə edirik.

1. İlk növbədə, Word-də VBA redaktorunu işə salmaq üçün "Alt" + "F11" düymələrini basın.
2. Sonra "Normal" düyməsini basın.
3. Sonra "Daxil et" sekmesini vurun.
4. Və "Daxil et" sekmesinin açılan menyusunda "Modul" seçin.
5. Sağ tərəfdə kodlaşdırma sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
6. İndi ora aşağıdakı makronu yapışdırın:

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
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

7. Nəhayət, "Çalıştır" düyməsini basın.

Makronu işə saldıqda, hesablamanın nəticəsini göstərən bir mesaj qutusu açılır.

Söz zərərləri ilə məşğul olun

Biz gündəlik olaraq işi emal etmək üçün Word kimi proqram təminatına çox etibar edirik. Nəticə etibarı ilə, biz bir-birinə sahib olmağın böyük nəticəsi haqqında düşünə bilmədik Söz korrupsiyası. Kifayət qədər sənəd təmir alətiniz olmadıqda, özünüzü çarəsiz hiss edə bilərsiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com