וורד הוספת סוגריים באופן אוטומטי

[צח מלול]

תוכל לתת דוגמה לשאלה ותשובה בנושא חיפוש והחלפה?

לא התכוונתי לצ'ט בוט...
חשבתי ששאלת לגבי הבעיה שלי עם הסוגריים, לעשות חיפוש והחלפה, ולכן עניתי אשר עניתי.

 

[MNM]

ורדתי אותו אבל אין בו כלום מלבד חלון והסרת טעמים וניקוד...

 

[MNM]

 

[MNM]

 

[צח מלול]

ככה זה אצלי:

 

[MNM]

תתקין גם את זה

 

[צח מלול]

תותח!
זה בדיוק התוסף שחיפשתי המון זמן.
תבורך.

 

[MNM]

חשוב לדעת! לפעמים עדיף להשתמש בפונקצייה בתוסף של היפוך אנגלית לעברית ולא היפוך סוגריים
הרבה פעמים זה מגיע הפוך בגלל שהסוגריים על אנגלית, ויתכן שיש כמה סוגריים שלא הפוכות שיהפכו ללא תקינות, לכן היפוך שפה פותרת את הבעיה טוב יותר

 

[צח מלול]

אכן כן.
זה קורה לי לפעמים בהפניה של הערות שוליים עם סוגריים אחריה, שגם ההערה מחליטה לעבור צד.
זה עוזר לכגון דא.

 

[ישורון קובי]

יש לי קובץ וורד עם אלפי מראי מקומות, צריך להכניס אותם בתוך סוגריים. יש דרך לסמן את המילה ובלחיצת כפתור היא תהיה מוקפת בסוגריים? חשוב להדגיש ש"חיפוש והחלפה" לא יעזור כאן, כי אין כאן איזה מילה ספציפית שחוזרת על עצמה.

כיון שבגוף השאלה נאמר: "יש דרך לסמן את המילה ובלחיצת כפתור היא תהיה מוקפת בסוגריים?"
אז יש לי שני סרטוני הדרכה באופן ספציפי לדבר הזה. מעניין.
אצלי בבלוג:

מאקרו לוורד - הכנס טקסט לפני ואחרי בחירה

ישורון קובי - צפת

www.kubi.co.il

 

[MNM]

חזק וברוך!
למה שלא תכניס את זה לשימושי? תן לנו חיים קלים...

 

[מאל"ף ועד תג]

חזק וברוך!
למה שלא תכניס את זה לשימושי? תן לנו חיים קלים...

אתה מבקש דג, @ישורון קובי נותן לנו חכה...

 

[MNM]

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

 

[מאל"ף ועד תג]

כיון שבגוף השאלה נאמר: "יש דרך לסמן את המילה ובלחיצת כפתור היא תהיה מוקפת בסוגריים?"
אז יש לי שני סרטוני הדרכה באופן ספציפי לדבר הזה. מעניין.
אצלי בבלוג:

מאקרו לוורד - הכנס טקסט לפני ואחרי בחירה

ישורון קובי - צפת

www.kubi.co.il

מעניין שרובי הביא מאקרו שונה לאותה פעולה :

Dim myText As String
myText = Selection.Text
Selection.Text = "(" & myText & ")"

[ביקשתי: "מאקרו להקפת מילה בסוגרים". בדקתי וזה עובד, אמנם יש את הבעיה של הרווח אחר הסוגריים].

 

[ישורון קובי]

יפה מאוד.
מה שכתבתם "מעניין מאוד שהוא הביא מאקרו שונה"... זה ברור שיש כמה וכמה דרכים לעשות פעולה מסויימת.
אלא שמטרת הסרטונים שאני עשיתי, היתה לתת קצת בסיס גישה לכתיבת מאקרו פשוט בוורד, מבלי להכנס ליותר מדי הסברים.

אמנם יש את הבעיה של הרווח אחר הסוגריים

בשביל לטפל בזה, אפשר להוסיף את השורה שאני מדבר עליה בסרטון השני (בדקה 2:15):

Sub InsertBracketsToSelection()

Dim myText As String
    Selection.MoveEndWhile Cset:=" ", Count:=wdBackward
    myText = Selection.Text
    Selection.Text = "(" & myText & ")"
    
End Sub

 

[צח מלול]

[ביקשתי: "מאקרו להקפת מילה בסוגרים". בדקתי וזה עובד, אמנם יש את הבעיה של הרווח אחר הסוגריים].

ואם תבקש בלי ריוח אחרי הסוגריים?