YoRuMSuZ
Biz işimize bakalım...
Word'de satır sonlarındaki boşluklar çoğu zaman uzun belgelerde sorun olmakta. Araştırma yaparken bu sorunu bir nebze olsun gideren makroya rastladım. Kendinize göre geliştirebilirsiniz. Ancak bu makro paragrafları da gözardı ediyor...
Belgeniz açıkken aşağıdaki makroyu word'e ekleyin ve imleci dokümanın başına getirip çalıştırın. 1000 rakamını kendinize göre arttırabilirsiniz...
Makroyu çalıştırmadan önce orijinal belgenizi ayrıca kaydetmeyi unutmayınız...
Belgeniz açıkken aşağıdaki makroyu word'e ekleyin ve imleci dokümanın başına getirip çalıştırın. 1000 rakamını kendinize göre arttırabilirsiniz...
Makroyu çalıştırmadan önce orijinal belgenizi ayrıca kaydetmeyi unutmayınız...
Kod:
Sub BoslukSil()
' BoslukSil Makro
' Makro, Cerez Forum tarafından 26.02.2011 tarihinde oluşturuldu
For i = 1 To 1000
Selection.Find.Text = "^p^$"
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Next i
End Sub