עזרה | פתרונות בוורד

[dmp]

@מגדלים הצלחתי!!!

Dim MyRange As Range
Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.Start)
If MyRange.Text = Chr(13) Or MyRange.Text = " " Then
Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.End)
MyRange.Select
End If

להוסיף ממש בהתחלה (בשורה 2)