Wordde en son dolu satırdan sonraki boş satırları iptal etme.

[leumruk]

Selamlar...
Word dosyasında son dolu satırdan sonraki boş satırları makro ile nasıl iptal edebiliriz? Amacım boş sayfa fazlalıklarını ortadan kaldırmak ve imleci dolu satırın sonuna çekmek.
Saygılar...

 

[01.hakan]

Word dosyasında son boş satırları silmek

Selamlar...
Word dosyasında son dolu satırdan sonraki boş satırları makro ile nasıl iptal edebiliriz? Amacım boş sayfa fazlalıklarını ortadan kaldırmak ve imleci dolu satırın sonuna çekmek.
Saygılar...

Soruyu anlayabildiğim kadarıyla aşağıdaki makro kodu problemi halledebilir.

Sub bossil()
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
With ActiveDocument.Paragraphs(i).Range.Characters(1)
If .Text = Chr$(13) Then .Delete Else Exit Sub
End With
Next i
End Sub

açık olan belgedeki son boş satırları siler, eğer kırmızı ile gösterilen else exit sub kod parçasını silerseniz sadece sonda yer alan değil belgedeki tüm boş parağrafları siler. örnek dosya ektedir.

 

[leumruk]

Sayın 01.hakan,
Teşekkür ederim, makro gayet güzel çalışıyor. Eline sağlık.
Saygılar...