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.
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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.