שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

pcinfogmach

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

דאנציג

@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

ולמה לא להשתמש בתוסף המיוחד של @pcinfogmach 'עיצוב תורני' שבו יש לך את האופצייה הזו?

יאיר דניאל

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

menajemmendel

@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

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

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

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

pcinfogmach

@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

בל אני לא אוהב להתקין תוספים על הוורד שלי, דבר ראשון בגלל שזה מכביד לי על הוורד (אחרי הכל יש לי 4 ראם ומעבד סלרון N4500)

התוסף עיצוב תורני בנוי בשיטה אחרת מתוספים קלאסיים כמו ש-@menajemmendel הזכיר במקצת.

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

menajemmendel

@pcinfogmach @יאיר-דניאל בנוסף אתה לא חייב 'להתקין' את התוסף , התוסף הוא סה''כ תבנית וורד, אז אתה יכול לא לשמור אותו בתקיה של וורד ורק לפתוח אותו כשתצטרך

יאיר דניאל

@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

התוסף עיצוב תורני בנוי בשיטה אחרת מתוספים קלאסיים כמו ש-@menajemmendel הזכיר במקצת.

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

א"כ זה כבר משהו אחר לגמרי.

שרגא תכנות

בניתי קובץ לחיפוש לפי מילים עם רווחים
למי שמעוניין
https://mitmachim.top/post/927364

שלמה11

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

יאיר דניאל

@שלמה11 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

(מונע מילה אחת בשורה האחרונה בפיסקה)

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

pcinfogmach

פוסט זה נמחק!

יאיר דניאל

@pcinfogmach

מונע מילה אחת בשורה האחרונה בפיסקה)

יאיר דניאל

מה הבעיה בפקודה דלהלן?
אני מעוניין שכל אות שתבוא אחרי סימון פיסקה ואחריה (אחרי האות) יש נקודותיים,המאקרו ידגיש ויוסיף קו תחתון, משון מה הוא רק מוסיף קו תחתון אך אינו מדגיש את המילה.

Sub סימון_אותיות_עיון_ההלכה()
'
' סימון_אותיות_עיון_ההלכה Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Underline = wdUnderlineSingle
    End With
    With Selection.Find
        .Text = "^p^$:"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
End Sub

pcinfogmach

@יאיר-דניאל
כלומר בחיפוש והחלפה זה עבד לך ובמאקרו לא?

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

יאיר דניאל

@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

כלומר בחיפוש והחלפה זה עבד לך ובמאקרו לא?
כן

@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

סליחה שאני קצת מנגז (מנג'ז)...

@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

חיפוש והחלפה יהיו במקומם ושאלות מאקרו במקומם למען הסדר הטוב

זוהי שאלה על פקודת מאקרו, בחיפוש והחלפה זה עובד מצויין

pcinfogmach

@יאיר-דניאל

הבעיה היא עם שורת הקוד שמגדירה את ההדגשה א הצריך להחליף את Bold עם BoldBi כל עיצוב עברי בחיפוש והחלפה במאקרו דורש תוספת Bi

מעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?

יאיר דניאל

@pcinfogmach

@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:

מעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?

מה אתה מתכוון, איפה מגדירים?

pcinfogmach

@יאיר-דניאל

יאיר דניאל

@pcinfogmach כן, הגדרתי

יאיר דניאל

@pcinfogmach לא עבד לי מצורף -

Sub סימון_אותיות_עיון_ההלכה()
'
' סימון_אותיות_עיון_ההלכה Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .BoldBI = True
        .Underline = wdUnderlineSingle
    End With
    With Selection.Find
        .Text = "^p^$:"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .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
End Sub

אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
(משום מה הוא לא מקליט את הפעולה הזו)