Word'de en çok kullanılan kelime nasıl bulunur?

Word'deki makalemde en çok kullanılan kelimeyi nasıl bulurum? Top 10 gibi bir şey olsaydı keşke.

kimse yok mu

MS Word kullanmıyorum ama vba desteğinin olduğunu biliyorum. Aşağıda Chatgpt nin vermiş olduğu vba script/makro içeren cevap bulunmakta. İşe yararmı deneme imkanım maalesef yok ama mantık olarak sorun yok gibi görünüyor.

Hatta makaleniz çok uzun değilse metni chatgpt ye yapıştırıp en çok tekrar eden 10 kelimeyi bana listele diye sorabilirsiniz.

----------------------------------------

VBA (Visual Basic for Applications) kullanarak Word belgesindeki en çok kullanılan kelimeleri bulmak için aşağıda örnek bir makro bulunmaktadır. Bu makro, belgedeki her bir kelimenin sayısını sayar ve en çok kullanılan kelimeleri listeler.

1. Word belgesini açın.

2. "Alt + F11" tuş kombinasyonunu kullanarak Visual Basic for Applications (VBA) penceresini açın.

3. Sol taraftaki "Proje Gezgini" penceresinden belgenizi seçin.

4. Sağ tıklayarak "Modül Ekle" seçeneğini seçin ve ardından açılan pencereye aşağıdaki VBA kodunu yapıştırın:

Sub EnCokKullanilanKelimeleriBul()

   Dim kelimeListesi As Object

   Dim kelime As Range

   ' Yeni bir Collection nesnesi oluştur

   Set kelimeListesi = CreateObject("Scripting.Dictionary")

   ' Her bir kelimeyi kontrol et

   For Each kelime In ActiveDocument.Words

       ' Kelimeyi küçük harfe dönüştür

       Dim kelimeMetni As String

       kelimeMetni = LCase(kelime.Text)

       ' Kelimeyi sözlükte bul ve sayısını bir artır

       If kelimeListesi.Exists(kelimeMetni) Then

           kelimeListesi(kelimeMetni) = kelimeListesi(kelimeMetni) + 1

       Else

           kelimeListesi(kelimeMetni) = 1

       End If

   Next kelime

   ' Sözlükteki kelimeleri sıklık sırasına göre sırala

   kelimeListesi.CompareMode = vbTextCompare

   Dim siraliListe As Object

   Set siraliListe = CreateObject("System.Collections.SortedList")

   For Each kelimeMetni In kelimeListesi.Keys

       siraliListe.Add kelimeListesi(kelimeMetni), kelimeMetni

   Next kelimeMetni

   ' En çok kullanılan kelimeleri listeleyin

   Dim i As Integer

   For i = siraliListe.Count - 1 To 0 Step -1

       Debug.Print siraliListe.GetByIndex(i) & ": " & siraliListe.GetKey(i) & " kez"

   Next i

End Sub

5. VBA penceresini kapatın ve belgenizi kaydedin.

6. Word belgenizdeki en çok kullanılan kelimeleri bulmak için, tekrar "Alt + F8" tuş kombinasyonunu kullanarak "EnCokKullanilanKelimeleriBul" makrosunu seçin ve çalıştırın.

Bu makro, belge içindeki her kelimenin sayısını sayar ve en çok kullanılan kelimeleri frekanslarına göre listeler. `Debug.Print` ifadeleri çıktıyı VBA geliştirme ortamındaki "Hemen İleti" penceresine yazacaktır. İhtiyaca göre kodu düzenleyerek veya farklı bir çıktı yöntemi kullanarak istediğiniz sonuçları elde edebilirsiniz.