en-UShe-IL
You are here:   Blog
Register   |  Login

Blog Archive:

Maximize
* Can be used in order to search for older blogs Entries

Search in blogs


Blog Categories:

Maximize
* Can be used in order to search for blogs Entries by Categories

Blog Tags:

Maximize
* Can be used in order to search for blogs by keywords

TNWikiSummit


Awared MVP 


 


Microsoft® Community Contributor 


Microsoft® Community Contributor


 Read first, before you you use the blog! Maximize
ספט3

Written by: ronen ariely
03/09/2011 20:30 RssIcon

קוד מאקרו קטן לעזרה: החלפת כל מעברי הפסקה במעבר שורה פשוט.

כאשר אנחנו מעתיקים קודים מאתרי אינטרנט כמו בלוגים ישירות אל תוכנת הפיתוח כמו 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