Word Belgenizdeki Bölümlerin Kelime Sayısını Saymanın 3 Yöntemi

Bu yazıda, Word belgenizdeki bölümler için kelime sayısını saymanız için 3 yöntem olacaktır.

Bir belgenin toplam kelime sayısını elde etmek kolaydır. Ancak Word'de bize bir bölümün sözcük sayısını söyleyecek bir işlev yoktur. Ve kitap yazarken bölüm düzenlemek gibi aynı konudaki içerikleri tek bölüme koymayı tercih ettiğimizden, bölüm sayısını elde etmek için geçici çözümler bulmamız gerekiyor.   Aşağıda, bir makro çalıştırmanızı gerektiren 3 yaklaşım bulunmaktadır.

Yöntem 1: Geçerli Bölüm için Sözcük Sayısını Say

1. Öncelikle imleci hedef bölüme yerleştirin.
2. O zaman Word'de VBA editörünü açmanız gerekir. “Geliştirici” ve ardından “Visual Basic” komutunu tıklayın. Şeritte “Geliştirici”yi bulamıyorsanız, bunun yerine “Alt+F11” tuşlarına basın.
3. Daha sonra sol sütundaki “Normal” projesine tıklayın.
4. Ardından “Ekle” sekmesine tıklayın.
5. Bu açılır menüden "Modül"ü seçin.
6. Çift tıklayarak yeni modülü açın.
7. Şimdi açık modülde aşağıdaki kodları yapıştırın:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Son olarak, kodları çalıştırmak için “Çalıştır”a tıklayın veya “F5”e basın.

Aşağıdaki gibi geçerli bölümün toplam sayısını gösteren bir mesaj kutusu alacaksınız:

Yöntem 2: Belirli Bir Bölüm İçin Kelime Sayısını Say

Diyelim ki bir kitap üzerinde çalışıyorsunuz ve her bölümü ayrı bir bölüm olarak ayarlıyorsunuz. Daha sonra bir bölümde kaç kelime yazdığınızı öğrenmek için bu yöntemi kullanabilirsiniz.

1. Makro yüklemek ve çalıştırmak için yukarıdaki adımları izleyin.
2. Sadece makroyu bununla değiştirin:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Ve çalıştırırken bir giriş kutusu olacak. “Enter Section Number” kutusuna, bölüm numarasını girin ve devam etmek için “OK” düğmesine tıklayın.

Sonuç bir mesaj kutusunda gösterilir.

Yöntem 3: Bir Belgedeki Tüm Bölümler İçin Sözcük Sayısını Say

Alt başlıktan da anlaşılacağı gibi, bu yol size bir belgedeki her bölümün toplam kelime sayısını verecek ve bunları bir mesaj kutusunda listeleyecektir.

1. Öncelikle hedef belgeyi açın.
2. Yine de, makroyu yüklemek ve çalıştırmak için yöntem 1'deki adımları tekrarlamanız gerekir.
3. Ve bu sefer, bu makro ile değiştirin:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

İşte olası sonuç:

Değerli Verileri Kaydedin

Her türlü belge ile uğraşırken bunların güvenliğini de göz önünde bulundurmalısınız. Bir sonraki veri kaybının ne zaman olacağını asla bilemeyeceğiniz için, önemli dosyaları yedeklemeniz önerilir. Ayrıca, bunu yapabilen bir araç elde etmek her zaman iyidir. doktoru kurtarmak, varsa.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls onarımı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com