السطر الفارغ

[تومي محمد]

لحذف سطر(فقرة) فارغ بين سطرين مكتوبين في M.WORD عن طريق code الآتي :

Dim BAYA As Long

Dim TOU As Range

With ActiveDocument

For BAYA = .Paragraphs.Count To 1 Step -1

Set TOU = .Paragraphs(BAYA).Range

If Len(TOU) = 1 Then

TOU.Delete

End If

Next BAYA

End With

والسلام عليكم ورحمة الله وبركاته.

[ابو الآء]

بارك الله فيك

فكرة جميلة جدا