וורד האשכול המרכזי לשאלות וטיפים בוורד

[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

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

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

 

[שיקול דעת]

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

 

[rutt]

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

כך בדיוק עשיתי. והיותר תמוה - שהגרשיים בהתחלה עבד טוב...

 

[חגי פאהן]

פשוט מאד

 

[rutt]

פשוט מאד

תודה.

 

[שיקול דעת]

תודה.

אפשר להבין הדו"ד ביניכם? מה פשוט, ועל מה התודה?

 

[שיקול דעת]

בחפש את:
" (*) "
שים לב שיש רווח ליפני ואחרי כל אחד מהגרשיים

בהחלף ב:
"\1"
שים לב שיש רווח לפני הגרשיים הראשון ואחרי הגרשיים האחרון

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

למה זה לא עובד לי?

 

[שיקול דעת]

בחפש את:
" (*) "
שים לב שיש רווח ליפני ואחרי כל אחד מהגרשיים

בהחלף ב:
"\1"
שים לב שיש רווח לפני הגרשיים הראשון ואחרי הגרשיים האחרון

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

למה זה לא עובד לי?