Wordde Boş Olan Paragrafları Silme

[yasin1064]

Sayın Leumruk, gerçekten verdiğiniz bilgilerle bize çok yardımcı oluyorsunuz. Allah razı olsun. Benim size bir sorum olacak.
Aşağıda soldaki yazıların olduğu bir word belgem var. Bu belgedeki boş satırları bulup, bunları silen bir makroya ihtiyacım var. Makroyu çalıştırdıktan sonra son görüntü sağ taraftaki gibi olacak. Günlerce yapmaya çalıştım ancak yapamadım.En sonunda sizden yardım istemek zorunda kaldım.Umarım vakit ayırıp yardımcı olursunuz.Şimdiden çoook teşekkür ederim. Cevabınızı sabırsızlıkla bekliyorum.

 

[leumruk]

Merhaba,
Kısayol tuşu "CTRL-Ç"

Sub ddd()
For Each prg In ActiveDocument.Paragraphs
If prg.Range.ComputeStatistics(Statistic:=3) = 0 Then
prg.Range.Delete
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, _
"Kodlayan: l e u m r u k"
End Sub

 

[yasin1064]

Teşekkür ederim.