האם יש אפשרות בוורד להוסיף גרשיים לפני ואחרי המילה - בלחיצת מקש?

[rutt]

פעמים רבות אני מעוניינת להוסיף למילה "גרשיים" לפני ואחרי, או 'גרש בודד' לפני ואחרי המילה, וזה מסורבל לי לעשות זאת ידנית, שאלתי היא - האם ניתן לעשות זאת [עם מאקרו או כל דרך אחרת] בלחיצת כפתור אחת [כשהסמן של העכבר נמצא על המילה המבוקשת] או בצירוף שני מקשים?
תודה

 

[rutt]

...

 

[NIVDFB]

עם מאקרו ודאי אפשרי.
בצורה הכי פשוטה:
לעמוד באמצע מילה מסויימת
להקליט ctrl+חץ ימני, ולהקליד מה שרוצים, ctrl+חץ שמאלי, לזוז תו אחד ימינה, ולהקליד מה שרוצים.
ולעצור הקלטה - זהו.

 

[שיקול דעת]

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

והנה הוא לפניכם:

Sub הוספת_גרשיים_לפני_ואחרי_מילה()
'
' הוספת_גרשיים_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:=""""
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""""
End Sub

כמובן אפשר ליצור אותו דבר, למרכאה אחת, או כל דבר אחר.

 

[rutt]

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

והנה הוא לפניכם:

Sub הוספת_גרשיים_לפני_ואחרי_מילה()
'
' הוספת_גרשיים_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:=""""
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""""
End Sub

כמובן אפשר ליצור אותו דבר, למרכאה אחת, או כל דבר אחר.

מעולה!
צריך לשים את הסמן לפני המילה, ואז להפעיל את המאקרו.

אגב, איך מייצרים לזה קיצור דרך במקלדת?

 

[שיקול דעת]

מעולה!
צריך לשים את הסמן לפני המילה, ואז להפעיל את המאקרו.

כתבתי את זה במפורש, עיינו עוד פעם.

אגב, איך מייצרים לזה קיצור דרך במקלדת?

כמובן שאפשר ליצור קיצור אחר, כפי הנוחות.

 

[rutt]

יישר כח ותודה על ההשקעה!!

 

[rutt]

אגב, הקוד לא עובד בגרש אחד. הוא כותב "שגיאת תחביר".

Sub הוספת_גרש_לפני_ואחרי_מילה()
'
' הוספת_גרש_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:=''''
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=''''
End Sub

 

[שיקול דעת]

מסתמא ניסתם לשנות ידני, ולא הקלטתם בעצמכם. הנה הוא לפניכם:

Sub הוספת_גרש_אחד_לפני_ואחרי_מילה()
'
' הוספת_גרש_אחד_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:="'"
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="'"
End Sub

 

[rutt]

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

ניסיתי להפעיל את הקוד - והוא מוסיף את הגרש בצורה הזו - 'דוגמא ד'וגמא
ולא סוגר את המילה הראשונה.

 

[rutt]

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

 

[שיקול דעת]

ניסיתי להפעיל את הקוד - והוא מוסיף את הגרש בצורה הזו - 'דוגמא ד'וגמא
ולא סוגר את המילה הראשונה.

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

 

[שיקול דעת]

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

תנסו אולי קיצור דרך אחר. גם אני יש לי 2010, ועשיתי קיצור ועובד מצוין.

 

[שיקול דעת]

ובאם אתם רוצים לבחור כמה מילים ולהוסיף לפניהם ולאחריהם גרשיים או גרש אחד, הנה יש לכם מאקרואים אחרים:

לגרשיים, תעתיקו המאקרו הזה:

Sub הוספת_גרשיים_לפני_ואחרי_כמה_מילים_נבחרים()
'
' הוספת_גרשיים_לפני_ואחרי_כמה_מילים_נבחרים Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeText Text:="""<>"""
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=" "
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.TypeText Text:=" "
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """< "
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "  >"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " >"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ">"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """ ^p"
        .Replacement.Text = """^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ובשביל גרש אחד, תעתיקו המאקרו הבא:

Sub הוספת_גרש_אחד_לפני_ואחרי_כמה_מילים_נבחרים()
'
' הוספת_גרש_אחד_לפני_ואחרי_כמה_מילים_נבחרים Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeText Text:="'<>' "
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=" "
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "'< "
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "  >'"
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " >'"
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "' ^p"
        .Replacement.Text = "'^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

המאקרואים הוקלט במיוחד, שיעבוד גם על מילים בתוך פסקה, וגם על פסקה שלימה.

 

[אלישי]

רק במילה אחרונה בטקסט הוא עושה כך, לא במילים באמצע הטקסט (לפחות כך אצלי).

 

[אלישי]

ובאם אתם רוצים לבחור כמה מילים ולהוסיף לפניהם ולאחריהם גרשיים או גרש אחד, הנה יש לכם מאקרואים אחרים:



המאקרואים הוקלט במיוחד, שיעבוד גם על מילים בתוך פסקה, וגם על פסקה שלימה.

יפה על הרעיון של CUT

 

[שיקול דעת]

ניסיתי להפעיל את הקוד - והוא מוסיף את הגרש בצורה הזו - 'דוגמא ד'וגמא
ולא סוגר את המילה הראשונה.

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

אני עובד על פתרון. יש, אבל אני צריך את הזמן לזה. בקרוב!

 

[rutt]

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

אני עובד על פתרון. יש, אבל אני צריך את הזמן לזה. בקרוב!

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

 

[rutt]

ובאם אתם רוצים לבחור כמה מילים ולהוסיף לפניהם ולאחריהם גרשיים או גרש אחד, הנה יש לכם מאקרואים אחרים:

לגרשיים, תעתיקו המאקרו הזה:

Sub הוספת_גרשיים_לפני_ואחרי_כמה_מילים_נבחרים()
'
' הוספת_גרשיים_לפני_ואחרי_כמה_מילים_נבחרים Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeText Text:="""<>"""
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=" "
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.TypeText Text:=" "
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """< "
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "  >"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " >"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ">"""
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """ ^p"
        .Replacement.Text = """^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ובשביל גרש אחד, תעתיקו המאקרו הבא:

Sub הוספת_גרש_אחד_לפני_ואחרי_כמה_מילים_נבחרים()
'
' הוספת_גרש_אחד_לפני_ואחרי_כמה_מילים_נבחרים Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeText Text:="'<>' "
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.TypeText Text:=" "
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "'< "
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "  >'"
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " >'"
        .Replacement.Text = "'"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "' ^p"
        .Replacement.Text = "'^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

המאקרואים הוקלט במיוחד, שיעבוד גם על מילים בתוך פסקה, וגם על פסקה שלימה.

איך ניתן לקבוע האם לבצע על מילה אחת או על רצף? זה חל על מילים מסומנות?

 

[שיקול דעת]

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