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

rutt · 13/2/19

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

rutt · 14/2/19

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

קוד:

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

שיקול דעת · 14/2/19

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

קוד:

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

rutt · 14/2/19

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

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

rutt · 14/2/19

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

שיקול דעת · 14/2/19

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

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

שיקול דעת · 14/2/19

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

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

שיקול דעת · 14/2/19

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

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

קוד:

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

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

אלישי · 14/2/19

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

אלישי · 14/2/19

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

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

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

שיקול דעת · 15/2/19

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

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

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

rutt · 15/2/19

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

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

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

rutt · 15/2/19

נכתב ע"י שיקול דעת:

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

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

קוד:

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

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

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

שיקול דעת · 15/2/19

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

rutt · 15/2/19

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

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

חגי פאהן · 16/2/19

פשוט מאד

rutt · 17/2/19

נכתב ע"י חגי פאהן:
פשוט מאד

תודה.

שיקול דעת · 17/2/19

נכתב ע"י rutt:
תודה.

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

שיקול דעת · 17/2/19

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

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

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

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

שיקול דעת · 17/2/19

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

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

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

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

פרוגבוט

פרסומת

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

משתמש מקצוען

משתמש מקצוען

משתמש סופר מקצוען

משתמש מקצוען

משתמש מקצוען

משתמש סופר מקצוען

משתמש סופר מקצוען

משתמש סופר מקצוען

משתמש מקצוען

משתמש מקצוען

משתמש סופר מקצוען

משתמש מקצוען

משתמש מקצוען

משתמש סופר מקצוען

משתמש מקצוען

משתמש סופר מקוצען

משתמש מקצוען

משתמש סופר מקצוען

משתמש סופר מקצוען

משתמש סופר מקצוען

פרוגבוט

תוכן שיווקי

איזה כיף שהצטרפתם לניוזלטר שלנו!