Bugünkü yazımızda, çok dilli bir Word belgesinde bir dilin toplam sözcüklerini saymak için 2 yöntem sunmak istiyoruz.
Arada bir, bazılarınız çok dilli bir Word belgesini düzenleme isteği duyabilir. Sonuç olarak, belirli bir dil için sözcük sayımı yapmak isteyeceğiniz zamanlar olacaktır, ancak yalnızca Word'ün bu görevi gerçekleştiremediğini göreceksiniz.
O zaman böyle bir sorunu çözmek için size 2 faydalı çözüm sağlamayı amaçlıyoruz.
Yöntem 1: "Gelişmiş Bul" Seçeneğini Kullanın
- Öncelikle, “Giriş” sekmesi altındaki “Düzenleme” grubundaki “Bul” un arkasındaki ters üçgen düğmesini tıklayın.
- Şimdi “Bul ve Değiştir” iletişim kutusunda “Diğer” düğmesine tıklayın.
- Ve "Yalnızca tüm kelimeleri bul" kutusunu işaretleyin.
- Ardından "Biçimlendir" düğmesini tıklayın.
- Ardından “Dil”i seçin.
- “Dil Bul” iletişim kutusunda hedef dili bulun ve seçin, ardından “Tamam”ı tıklayın.
- Şimdi “Bul ve Değiştir” kutusuna dönün, “Bul”a tıklayın ve “Ana Belge”yi seçin.
- Daha sonra tüm İngilizce kelimeler seçilecek ve ekranın sol alt köşesindeki kelime sayısını kontrol etmeye gidilecektir. Sayının 93 olduğunu görebiliriz.
Yöntem 2: Word Makrosunu Çalıştır
- Öncelikle “Geliştirici” sekmesine tıklayın.
- Ardından, VBA düzenleyicisini tetiklemek için “Visual Basic”e tıklayın. Henüz “Geliştirici” sekmesini etkinleştirmediyseniz, bunun yerine “Alt+F11” tuşlarına basın.
- Ardından “Normal”e tıklayın ve ardından “Ekle”ye tıklayın.
- "Modül"ü seçin.
- Ve kodlama alanını açmak için yeni modüle çift tıklayın.
- Ardından aşağıdaki kodları oraya yapıştırın:
Sub CountTotalWordsOfOneLanguage()
Dim objRange As Range
Dim nWords As Long
' Initialization
Set objRange = ActiveDocument.Range
nWords = 0
' Find all English words and do word count.
With objRange.Find
.LanguageID = wdFrench
Do While .Execute
nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
Loop
End With
MsgBox nWords
End Sub
- Son olarak, “Çalıştır” düğmesine tıklayın.
Açılan bir mesaj kutusu olacak. Sayı, bu belgedeki Fransızca metinlerin toplam kelimesini ifade eder.
Not:
Kod satırında “.Dil Kimliği = wdFransızca”,“wdFransızca”Fransız dili anlamına gelir. Kodları daha spesifik kullanım için özelleştirmek üzere dil kimliğini tam olarak istediğiniz dille değiştirebilirsiniz. Daha fazla dil kimliği için şu adresi ziyaret edebilirsiniz: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Bozuk Word Dosyalarını Doğru Şekilde İşleyin
Ara sıra, Word her türlü hata veya yanlışlık nedeniyle kapanacak veya donacaktır. Diyelim ki, dosyaları düzenli olarak yedeklemezseniz, tüm değerli verileri kaybetme olasılığı yüksektir. Ve geriye kalan 2 geçici çözüm, ya Word'ün yerleşik işlevini kullanmak ya da bir program edinmektir. tamir doktoruİlk yöntemin çoğu zaman pek iyi çalışmadığı göz önüne alındığında, üçüncü taraf bir araç seçmek tavsiye edilir.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel düzeltmesi hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com