Boş satırları silmek

[ilhanalp]

Merhaba,
Bazen tek , bazen de 3-5 satır atlanarak yazılmış bir metin var elimde. Kağıt tasarrufu yapmak için bu boş satırları silmem gerekiyor. Bunu makroyla yapabilir miyim?
İyi geceler.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=22773&highlight=#22773

Not:Ã?zür ben soruyu excel ile ilgili olduğunu düşünerek yazmıştım.

 

[Haluk]

Merhaba;

Sevgili Levent arkadaşım, sanıyorum ilhanalp bu boş satırların bir MS Word belgesinde olduğundan bahsediyor ve bütün boş satırların silinmesini istiyor.

Eğer soru benim anladığım gibiyse, aşağıdaki kod bu işi yapacaktır.

[vb:1:f0885cabfe]Sub Test()
Dim i As Long
Dim MyRng As Range
Set MyRng = ActiveDocument.Paragraphs(1).Range
i = MyRng.MoveEnd(unit:=wdParagraph, Count:=1)
Do While i > 0
If MyRng.Paragraphs(1).Range.Text = vbCr Then
MyRng.Paragraphs(1).Range.Delete
Else
MyRng.MoveStart unit:=wdParagraph, Count:=1
End If
i = MyRng.MoveEnd(unit:=wdParagraph, Count:=1)
Loop
End Sub

[/vb:1:f0885cabfe]

 

[ilhanalp]

Sevgili leventm, Raider,
Asıl özür benden... Çünkü satırların Word belgesinde mi, Excel belgesinde mi olduğunu belirtmeden yazmışım.
Raider'in kodunu deneyeceğim. Yardımlarınız için teşekkürler