ספט3
Written by:
ronen ariely
03/09/2011 20:30 
קוד מאקרו קטן לעזרה: החלפת כל מעברי הפסקה במעבר שורה פשוט.
כאשר אנחנו מעתיקים קודים מאתרי אינטרנט כמו בלוגים ישירות אל תוכנת הפיתוח כמו SSMS או ויזואל סטודיו מעברי השורה מתורגמים לנו לרוב למעבר כפול של 2 שורות. הסיבה היא שמעברי השורה בקוד המקורי הם למעשה מעברי פיסקה ולא מעברי שורה.
מעבר פיסקה מבוצע למשל בוורד כאשר נעזרים בכפתור ENTER בעוד מעבר שורה מבוצע בעזרת כפתור SHIFT+ENTER
* הסיבה לכך שלרוב עושים שימוש במעבר פיסקה הוא היכולת לצבוע את הרקע של הפסקאות בצבע שונה לסירוגין ובכך להקל על קריאת הקוד כפי שמוראה בהמשך.
נסו להעתיק את הקטע הבא למשל ישירות לתוכנת ה SSMS:
1: aaaa
2: bbbb
3: cccc
4: dddd
5: eeee
כשהקוד קצר הבעיה קטנה אבל כשמדובר בקוד ארוך מאוד מעבר השורה הכפול יכפיל את אורך הקוד שלנו ויקשה על העבודה. העתיקו את הקוד אל תוכנת הוורד והפעילו את המאקרו הבא:
Sub Replace_Enter_With_ShiftEnter()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub