[2]: FW: סוגריים שהתהפכו

[ברנדסדורפער אשר - ארכיון]

תאריך ההודעה המקורית: 12/02/2023 14:05

עוזר גם לסוגריים גם לרווחים שנשארים באנגלית
[image: image.png]

[אשר מאיר שולמן - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 12:05

האם יש אפשרות לתפוס כמה מילים, וע"י לחיצת מקש להשחיל לפניהם ולאחריהם
סוגריים /גרשיים וכדו'?

מאת: [email protected]

[אריכא - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 12:41

בעיקרון להבנתי מאקרו כזה היה אמור לעבוד, אבל ההדבקה משום מה לא עובדת

Sub שלי_סוגריים_לטקסט_נבחר()

[אריכא - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 14:32

מצ"ב מאקרו להשחלת סוגריים (קרדיט
https://wordribbon.tips.net/T011920_Adding_Parentheses), אם צריך עזרה
בהתקנתו אמור נא ואשתדל להרחיב

Sub שלי_סוגריים_עגולים_לטקסט_נבחר()
'
' שלי_סוגריים_עגולים_לטקסט_נבחר Macro

If Len(Selection.Range) > 0 Then
    Selection.InsertBefore "("
    Selection.InsertAfter ")"
Else
    MsgBox "לא נבחר טקסט"
End If

End Sub

[ברנדסדורפער אשר - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 14:46

זה הנוסחא

Sub AddParens()
If Len(Selection.Range) > 0 Then
Selection.InsertBefore "("
Selection.InsertAfter ")"
Else
MsgBox "No text was selected!"
End If
End Sub

[אריכא - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 14:53

אין שום שינוי במה שהבאת הרב ברנדסדורפער, אני רק קראתי לזה שם

על כל פנים מומלץ את הגרסה הבאה, היא מסירה את הרוח המיותר (הגרסה הראשונה
כוללת את הרוח שנבחר באופן אוטומטי עם המילה)

Sub סוגריים_עגולים_לטקסט_מסומן()
'
' סוגריים_עגולים_לטקסט_מסומן Macro

If Right(Selection.Range.Text, 1) = Chr(13) Then _
Selection.MoveEnd Unit:=wdCharacter, Count:=-1

If Right(Selection.Range.Text, 1) = Chr(32) Then _
Selection.MoveEnd Unit:=wdCharacter, Count:=-1

If Len(Selection.Range) > 0 Then
Selection.InsertBefore "("
Selection.InsertAfter ")"
Else
MsgBox "לא נבחר טקסט!"
End If

End Sub

מאת: [email protected]

[ברנדסדורפער אשר - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 15:04

נכון

[ברנדסדורפער אשר - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 15:05

ואם כברא אתה יכול עדכן שיוקטן למשל לגודל 9?

מאת: [email protected]

[אריכא - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 15:11

תוסיף לפני השורה האחרונה (שיראה כמו בתמונה):
With Selection.Font
.SizeBi = 9
End With
[image: image.png]

מאת: [email protected]

[ברנדסדורפער אשר - ארכיון]

תאריך ההודעה המקורית: 14/02/2023 15:25

תודה רבה