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

[שלמה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]

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

Spoiler

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

[יאיר דניאל]

@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

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

[שלמה11]

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

אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?

.Replacement.Font.Name = "Arial" 

[menajemmendel]

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

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

אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?

.Replacement.Font.Name = "Arial" 

זה לפונט באנגלית, לפונט בעברית צריך

.Replacement.Font.NameBi = "Arial"

[יאיר דניאל]

@pcinfogmach לא עבד לי

.BoldBI = True

[שלמה11]

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

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

[שלמה11]

בס"ד יצרתי מאקרו שמוסיף עיטור לפני/אחרי הכותרות במסמך

אז, מה האופציות של המאקרו? ברשימה למטה

ניתן להוסיף את העיטור כתמונה או כתבליט (שימו לב שהאופציה של תבליט לא כ"כ טובה)

אפשר להוסיף עיטור לפני הכותרת או לאחריה או בשני הצדדים

אפשרות להקטנת/הגדלת העיטור

אפשרות לקביעת 'תוחם' - תוים שיפרידו בין העיטור לכותרת, כך ניתן לקבוע כמה רווחים יהיו בין העיטור לכותרת.

יש גם חלונית תצוגה מקדימה (לא משהו, בעקבות המגבלות של UserFrom)

נו, אז כולם מוזמנים לפה להוריד ולהנות...

[ASDF1345]

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

להורדה : הפניות-מקושרות-בקלות.dotm
מקור והסבר מפורט : https://mitmachim.top/topic/80699/להורדה-הפניות-מקושרות-בקלות

[pcinfogmach]

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

מאקרו שפותר את הבעיה של יצירת הפניה מקושרת ממסמך למסמך,

אנא פרט מה היא הבעיה בדיוק - תודה

[שלמה11]

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

.Bold = True

.boldbi = true