שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.
-
הבעיה היא עם שורת הקוד שמגדירה את ההדגשה א הצריך להחליף את
BoldעםBoldBiכל עיצוב עברי בחיפוש והחלפה במאקרו דורש תוספתBiמעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?
@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
מעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?
מה אתה מתכוון, איפה מגדירים?
-
@pcinfogmach כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
מעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?
מה אתה מתכוון, איפה מגדירים?
-
@pcinfogmach כן, הגדרתי
-
הבעיה היא עם שורת הקוד שמגדירה את ההדגשה א הצריך להחליף את
BoldעםBoldBiכל עיצוב עברי בחיפוש והחלפה במאקרו דורש תוספתBiמעניין מאוד למה ההקלטה לא עובד טוב? אולי לא הגדרת בהקלטה הדגשה עבור גופן עברי?
@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אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
(משום מה הוא לא מקליט את הפעולה הזו) -
@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אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
(משום מה הוא לא מקליט את הפעולה הזו)@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
.Replacement.Font.Name = "Arial" -
@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
.Replacement.Font.Name = "Arial"@שלמה11 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
אגב, איך אני מוסיף לו הוראה להחליף את זה לפונט אחר?
.Replacement.Font.Name = "Arial"זה לפונט באנגלית, לפונט בעברית צריך
.Replacement.Font.NameBi = "Arial" -
@pcinfogmach לא עבד לי
.BoldBI = True -
קרה לכם פעם שהייתם צריכים להדפיס מסמך כל שהוא על 4 עמודים (לדוג') אבל מה לעשות שהמסמך הוא 8 עמודים!
אז מה עושים?
מקטינים את השוליים, את המרווח בין הפיסקאות, את המרווח בין השורות, את גודל הטקסט...
בקיצור הרבה עבודה...
טוב, אז מהיום הכל בלחיצת כפתור!!
ההורדה משם -
בס"ד יצרתי מאקרו שמוסיף עיטור לפני/אחרי הכותרות במסמך 
אז, מה האופציות של המאקרו? ברשימה למטה 
ניתן להוסיף את העיטור כתמונה או כתבליט (שימו לב שהאופציה של תבליט לא כ"כ טובה)
אפשר להוסיף עיטור לפני הכותרת או לאחריה או בשני הצדדים
אפשרות להקטנת/הגדלת העיטור
אפשרות לקביעת 'תוחם' - תוים שיפרידו בין העיטור לכותרת, כך ניתן לקבוע כמה רווחים יהיו בין העיטור לכותרת.
יש גם חלונית תצוגה מקדימה (לא משהו, בעקבות המגבלות של UserFrom)
נו, אז כולם מוזמנים לפה להוריד ולהנות...
-
ש שלמה11 התייחס לנושא זה ב
-
מאקרו שפותר את הבעיה של יצירת הפניה מקושרת ממסמך למסמך, וכן עדכון הפניות ממסמך למסמך, וכן יצירת הפניה מקושרת בקלות, וכן העברת סמן למיקום ההפניה באותו מסמך ובמסמך אחר.
להורדה : הפניות-מקושרות-בקלות.dotm
מקור והסבר מפורט : https://mitmachim.top/topic/80699/להורדה-הפניות-מקושרות-בקלות -
מאקרו שפותר את הבעיה של יצירת הפניה מקושרת ממסמך למסמך, וכן עדכון הפניות ממסמך למסמך, וכן יצירת הפניה מקושרת בקלות, וכן העברת סמן למיקום ההפניה באותו מסמך ובמסמך אחר.
להורדה : הפניות-מקושרות-בקלות.dotm
מקור והסבר מפורט : https://mitmachim.top/topic/80699/להורדה-הפניות-מקושרות-בקלות@ASDF1345 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
מאקרו שפותר את הבעיה של יצירת הפניה מקושרת ממסמך למסמך,
אנא פרט מה היא הבעיה בדיוק - תודה
-
מה הבעיה בפקודה דלהלן?
אני מעוניין שכל אות שתבוא אחרי סימון פיסקה ואחריה (אחרי האות) יש נקודותיים,המאקרו ידגיש ויוסיף קו תחתון, משון מה הוא רק מוסיף קו תחתון אך אינו מדגיש את המילה.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@יאיר-דניאל כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
.Bold = True
.boldbi = true -
@ASDF1345 כתב בשיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.:
מאקרו שפותר את הבעיה של יצירת הפניה מקושרת ממסמך למסמך,
אנא פרט מה היא הבעיה בדיוק - תודה
@pcinfogmach
בוורד אין אפשרות ליצור הפניה מקושרת ממסמך למסמך, למשל לציין במסמך אחד להערה 2 שנמצאת במסמך אחר, ודבר זה מונע אפשרות לחלק מסמך אחר לשני מסמכים כיון שאי אפשר לציין מחלק אחד של המסמך לחבירו. -
מ מניין התייחס לנושא זה ב
-
מ מניין התייחס לנושא זה
-
מ מניין התייחס לנושא זה
-
נ נפתלי צבי יהודה התייחס לנושא זה
-
כבר הרבה זמן לא כתבו כאן, אבל זכור לי שהיה כאן, או בשרשור אחר (לא מצאתיו כעת) מאקרו למעבר מגוף הטקסט להערה, ומאקרו נוסף מהערה למיקום ההפניה להערה בטקסט העליון.
האמת היא שאני השתמשתי בדרך אחרת, ולאחרונה גיליתי שהיא לא כל כך קלה כמו שחשבתי (ולכן לא כתבתי עליה עד היום), ועכשיו גם ג'מיני הביא לה מאקרו פשוט.
טוב, כתבתי יותר מדאי, הנה מאקרו אחד בודד, שמעביר את הסמן להערה הקרובה, ומההערה למיקום ההפניה להערה בטקסט העליון (אותו מאקרו, ולא שניים כפי שפורסם פעם):Sub ToggleFootnote() ' הפעלת הפקודה המובנית של וורד למעבר בין הערת השוליים לטקסט הראשי Application.Run "ViewFootnotes" End Subואם זה מעניין מישהו איך אני עושה, אז:
הצמדתי את הפקודה 'עבור אל הערת שוליים' לסרגל הכלים לגישה מהירה
, וכך כאשר תלחץ אלט + המספר שמופיע שם למעלה, הסמן יעבור להערת שוליים, וכאשר תלחץ שוב אלט + המספר, הסמן יחזור למיקום ההערה.
שים לב, הפקודה 'עבור אל הערת שוליים' אינה נמצאת ברצועת הכלים, ולכן הדרך קצת ארוכה:
קובץ > אפשרויות וורד > סרגל כלים לגישה מהירה > פקודות שאינן ברצועת הכלים (סינון שאר הפקודות).חפש את 'עבור אל הערת שוליים' בחר אותו, ולחץ על 'הוסף':
-
כבר הרבה זמן לא כתבו כאן, אבל זכור לי שהיה כאן, או בשרשור אחר (לא מצאתיו כעת) מאקרו למעבר מגוף הטקסט להערה, ומאקרו נוסף מהערה למיקום ההפניה להערה בטקסט העליון.
האמת היא שאני השתמשתי בדרך אחרת, ולאחרונה גיליתי שהיא לא כל כך קלה כמו שחשבתי (ולכן לא כתבתי עליה עד היום), ועכשיו גם ג'מיני הביא לה מאקרו פשוט.
טוב, כתבתי יותר מדאי, הנה מאקרו אחד בודד, שמעביר את הסמן להערה הקרובה, ומההערה למיקום ההפניה להערה בטקסט העליון (אותו מאקרו, ולא שניים כפי שפורסם פעם):Sub ToggleFootnote() ' הפעלת הפקודה המובנית של וורד למעבר בין הערת השוליים לטקסט הראשי Application.Run "ViewFootnotes" End Subואם זה מעניין מישהו איך אני עושה, אז:
הצמדתי את הפקודה 'עבור אל הערת שוליים' לסרגל הכלים לגישה מהירה
, וכך כאשר תלחץ אלט + המספר שמופיע שם למעלה, הסמן יעבור להערת שוליים, וכאשר תלחץ שוב אלט + המספר, הסמן יחזור למיקום ההערה.
שים לב, הפקודה 'עבור אל הערת שוליים' אינה נמצאת ברצועת הכלים, ולכן הדרך קצת ארוכה:
קובץ > אפשרויות וורד > סרגל כלים לגישה מהירה > פקודות שאינן ברצועת הכלים (סינון שאר הפקודות).חפש את 'עבור אל הערת שוליים' בחר אותו, ולחץ על 'הוסף':
-
-
@pcinfogmach
אין רע, ולא הבנתי למה עושים לזה שני מאקרו כשזה אופציה כזו פשוטה, עד שבאתי לעזור לו עם הדרך שלי, ניסיתי לבדוק את הנתיב המדוייק, ופתאום גיליתי שזה מסתתר בכלל בפקודות שאינן מופיעות בסרגל הכלים... -
@דאנציג
ואז מה? יההי טוב לכולם ללמוד על זה מאשר לשתמש במאקרו לכל דבר. -
@pcinfogmach
אין רע, ולא הבנתי למה עושים לזה שני מאקרו כשזה אופציה כזו פשוטה, עד שבאתי לעזור לו עם הדרך שלי, ניסיתי לבדוק את הנתיב המדוייק, ופתאום גיליתי שזה מסתתר בכלל בפקודות שאינן מופיעות בסרגל הכלים...
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות

