Belgenizdeki Metin Kutuları, Dipnotlar ve Son Notlarla İlgili Kelime Sayımı İstatistiklerini Elde Etmenin 3 Yolu

Bugünün makalesinde, belgenizdeki metin kutuları, dipnotlar ve son notlarla ilgili kelime sayısı istatistiklerini almanın 3 hızlı yolu vardır.

Bir belgedeki toplam kelime sayısını elde etmek zor değil. Ancak, farklı türdeki metinlerin kelime sayısını elde etmek istiyorsanız, daha fazla işlem gerekecektir. Aşağıda 3 yöntem vardır. Neleri kullanabileceğinizi görmek için okumaya devam edin. 

Yöntem 1: Metin Kutularındaki Metinler, Dipnotlar ve Son Notlar Dahil Sözcükleri Sayma

Varsayılan olarak Word, metin kutularındaki metinler ve dipnotlardan ve son notlardan gelen sözcükler de dahil olmak üzere belgede görünen tüm sözcükleri sayar.

1. Öncelikle durum çubuğuna gidin ve "Kelime Sayısı" kutusunu açmak için "Kelimeler"e tıklayın.
2. Orada her türlü istatistiği göreceksiniz. “Metin kutularını, dipnotları ve son notları dahil et” kutusunu işaretlediğinizden emin olun.
3. Ardından "Kapat"ı tıklayın.
4. Durum çubuğunda “Kelimeler” komutunu bulamıyorsanız, oraya sağ tıklayın.
5. Ardından “Kelime Sayısı”nı kontrol edin.

Yöntem 2: Metin Kutularındaki Metinleri, Dipnotları ve Son Notları Kelime Sayımından Hariç Tut

Bu, 1. yöntemin tersidir. Bu nedenle, "Metin kutularını, dipnotları ve son notları dahil et" kutusunun işaretini kaldırmanız yeterlidir.

Yöntem 3: Metin Kutularından, Dipnotlardan ve Son Notlardan Ayrı Sözcük Sayısı Almak için Word Makrosunu Çalıştırın

1. Öncelikle yöntem 1'deki yolu kullanarak “Word Count” kutusunu tetikleyin ve seçenek kutusunun işaretli olduğundan emin olun.
2. Daha sonra VBA editörünü açmak için “Alt+ F11” tuşlarına basın.
3. Ardından, önce "Normal" seçeneğine tıklayarak "Normal" projesine yeni bir modül ekleyin.
4. Ve sonraki "Ekle" yi tıklayın.
5. Ardından “Modül”ü seçin.
6. Kodlama alanını açmak için modüle çift tıklayın ve aşağıdaki kodları buraya yapıştırın:

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Son olarak, “Çalıştır” düğmesine tıklayın.

Metin kutusu, dipnot veya son not yoksa aşağıdaki gibi bir mesaj kutusu alacaksınız:

Devam etmek için “Tamam”a tıklamanız yeterli. Ardından, kelime sayısının tüm ayrıntılarını listeleyen başka bir kutu göreceksiniz.

Bir Kurtarma Aracı Alın

Word aniden çökebileceğinden, düzeltme işini yapmak için gelişmiş bir onarım ürünü edinmeniz önerilir. Böyle bir araç, bozuk kelime. Bu nedenle, mümkün olan en kısa sürede bir tane almak için zaman ayırın.

Yazar Tanıtımı:

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