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

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

ASDF1345

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

דאנציג

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

Sub ToggleFootnote()
    ' הפעלת הפקודה המובנית של וורד למעבר בין הערת השוליים לטקסט הראשי
    Application.Run "ViewFootnotes"
End Sub

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

חפש את 'עבור אל הערת שוליים' בחר אותו, ולחץ על 'הוסף':

pcinfogmach

@דאנציג כתב:

האמת היא שאני השתמשתי בדרך אחרת, ולאחרונה גיליתי שהיא לא כל כך קלה כמו שחשבתי

מה רע בדרך שהשתמשת?

דאנציג

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

pcinfogmach

@דאנציג
ואז מה? יההי טוב לכולם ללמוד על זה מאשר לשתמש במאקרו לכל דבר.

דאנציג

@pcinfogmach
ולכן הכנסתי את הדרך הזו בספולייר, כי זה הרבה יותר יציב ורגוע.