Bugünün makalesinde, Word belgenizdeki mermi sayısını saymak için size 2 hızlı ve etkili yöntem sunacağız.
Zaman zaman, öğeleri düzenlemek için belgelerimizde madde işaretli veya numaralı listeler kullanırdık. Genel olarak, bir madde işareti veya bir sayı, ister bir kelime, ister bir deyim veya bir cümle olsun, tek bir öğeye yol açar. Şimdi eğer numaralandırılmış bir listeniz varsa, toplam kalem numarasını bulmak sorun olmayacaktır. Ancak, kelime belgenizde madde işaretli listeler varsa ne olur? Bunları tek tek saymak kulağa hoş gelmiyor.
Bu nedenle, bazılarınızın madde işareti sayısını toplaması gerekebilir diye, işte 2 yol var.
Yöntem 1: Madde İşaretli Listeyi Numaralı Listeye Dönüştürün
- Öncelikle mermi numarasını almak istediğiniz listeyi seçin.
- Ardından “Giriş” sekmesi altındaki “Paragraf” grubunda “Numaralandırma” seçeneğine tıklayın. Madde işaretli liste, numaralandırılmış listeye dönüşecektir.
Veya seçime sağ tıklayıp imleci “Numaralandırma” seçeneğinin üzerine getirebilir, ardından imleci genişlet menüsündeki numaralandırma stillerinden birinin üzerine getirebilirsiniz. Bu, madde işaretli listeyi numaralandırılmış listeye dönüştürmeden madde işareti sayısını almanızı sağlar.
Bu arada, tüm belgenin madde işaretlerini saymanız gerekiyorsa, yalnızca imleci tek bir madde işaretli listeye yerleştirmeniz ve ardından yukarıdaki adımları izlemeniz gerekir. Dosyadaki tüm madde işaretli listelerin, aşağıdaki gibi sırayla numaralar içeren numaralı listelere dönüştürüldüğünü göreceksiniz:
Yöntem 2: Makro Kullan
- Başlamak için, belirli bir listenin madde işaretlerini almak istiyorsanız, onu seçin. Aksi takdirde, tüm belgedeki madde işaretlerinin sayısı için, seçimde olması için “Ctrl + A” tuşlarına basmalısınız.
- Ardından, "Geliştirici" sekmesine tıklayın.
- Ardından VBA düzenleyicisini açmak için “Visual Basic”e tıklayın. Kısayol kombinasyonu "Alt + F11" şeklindedir.
- Şimdi “Normal” ve ardından “Ekle” ye tıklayın.
- Ardından "Modül"ü seçin.
- Yeni modüle çift tıklayın ve bu kodları düzenleme alanına yapıştırın:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Son olarak, "Çalıştır" ı tıklayın.
Sonucu gösteren bir mesaj kutusunun açıldığını göreceksiniz.
Dosyanızı İyi Yönetin
İş deneyimimiz sırasında çok sayıda Word belgesi ile uğraşıyoruz, herhangi bir aksilik yolsuzluğa yol açabileceği için bunları dikkatli bir şekilde ele almamız önerilir. Ve dosya hasarı meydana gelmesi durumunda, bir Word belgesi kurtarma aracı sorunla ilgilenmenize yardımcı olmak için.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xls veri hasarı onarım aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com