Wordde Paragraflardaki Sayıları Sıralama

[yasin1064]

Bir sorum daha olacak? Biraz daha zor ve benim için çok önemli.
Belgemdeki yüzlerce satır aşağıda resimde görüldüğü gibi:

Paragraf başlarındaki rakamlarda görüldüğü gibi sıra atlama yada tekrar etme durumu söz konusu. Bu rakamların sıralı şekilde artmasını sağlayacak bir makroya ihtiyacım var. Şimdiden yardımlarınız için çooook teşekkür ederim. Allah razı olsun. Cevabınızı sabırsızlıkla bekliyorum.İyi günler.

 

[leumruk]

Merhaba,
Sorularınız için örnek dosya ekleyiniz. Örneklerinizi ekledikten sonra sorularınızı iki ayrı başlık altında taşıyacağım. O başlıklardan takip edersiniz.

 

[yasin1064]

Word'de boş satırları silen bir makro ve satır başlarındaki sayıları sıralayan makro

Sanırım ekleyebildim dosyayı.İki sayfalık numune bir dosya.
Bu dosya her 2 sorum içinde geçerli.
Önce son sorumda istediğim gibi satır başlarındaki rakamları sıralayan bir makro. Daha sonra ilk sorumda belirttiğim gibi aradaki boş satırları silen bir makro.

 

[yasin1064]

İki ayrı makro olursa memnun olurum. Yanıtınızı sabırsızlıkla bekliyorum. Şimdiden çok teşekkürler.

 

[leumruk]

Merhaba,
Kısayol tuşu "CTRL Ş"

Sub Makro2()
For x = 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(x).Range.ComputeStatistics(Statistic:=3) > 0 Then
If IsNumeric(ActiveDocument.Paragraphs(x).Range) Then
Sayi = Sayi + 1
If CDbl(Trim(ActiveDocument.Paragraphs(x).Range)) <> CDbl(Sayi) Then
ActiveDocument.Paragraphs(x).Range.Paragraphs.Add
ActiveDocument.Paragraphs(x).Range = Sayi
End If
End If
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, _
"Kodlayan: l e u m r u k"
End Sub

 

[yasin1064]

Teşekkürler. Tam istediğim gibi.