להורדה | תוסף וורד תורני
-
הכנתי תבנית שכוללת הרבה מהמאקרואים שהתפרסמו כאן בפורום ,עיקרם לקוחים מהפוסט הזה והתבנית נעשתה על פי המדריך הזה
כאן המקום להודות ל @pcinfogmach שהביא את הרעיון ,כתב את המדריך וכן כתב הרבה מהמאקרואים ,וחלק נכבד מהתוסף מבוסס על התוסף שלוהורדה
"ונהר יוצא מעדן להשקות את הגן ומשם יפרד והיה לארבעה תוספים...שם האחד וורד תורני ...ושם השני עיצוב תורני..."
מכיון שהתוספים בגדול די דומים החלטנו אני ו @pcinfogmach לאחד כוחות ,ומעתה יהיו שני גירסאות ,אחת מורחבת שיתכן ותכלול באגים עקב סתירות בין הקודים וכן תכלול פקודות נוספות שלא בהכרח קשורות לעימוד ,והגיר' השניה תהיה יותר ממוקדת ,כך שלא יהיה צורך להתקין את שניהם וכך גם יחסכו הרבה באגים שנבעו עקב כך
בעז"ה בימים הקרובים יפתח פוסט חדש ומסודר בענייןלע"ע זה כולל את המאקרואים הבאים:
- תיקון שגיאות של @א.מ. מתחומים
- תיקון שגיאות מנצפ"ך של @מקלדת
- תבנית-מחיקת-פסקאות-ריקות-ורווח-לפני-פסקא של @מניין
- רצף הערות של @נוכחות
- החלפת כמה מילים בו זמנית של @מגדלים
- עיצוב הערות שוליים של @מניין
- מעצב טורים של @מניין
- יישור טורים של @רפרם-ב-ר-פפא
- חיפוש סוגריים לא סגורים של @menajemmendel
- Cross referece-8-25-2021 של @NykUser
- מעבר עמוד לפני כותרת של @menajemmendel
- קוד VBA להמיר בוורד ממספרים לאותיות של @מגדלים
- שינוי מרווח בין טורים רק בהערות שוליים של @מניין
- מספור אוטומטי של @מניין
- חיפוש והחלפה פרטניים של @pcinfogmach
- הערות שולים - מספור בעברית עד 1200 של @ASDF1345
- מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית של @מעלה ומוריד מתחומים
- מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות של @ASDF1345
וכמובן עיצוב פיסקא גירסא 7 של @pcinfogmach
הוראות התקנה:
פתחו את הקובץ ,אשרו פקודות מאקרו ,תתווסף לכם לשונית של "וורד תורני" ,כנסו אליה ולחצו על הכפתור "התקן או הסר"
,במקרה שהקובץ נחסם
כנסו למאפייני הקובץ ובטלו חסימה
אם יש משהו שהחסרתי אשמח אם תיידעו אותי
@דאנציג הכין מדריך ,מוזמנים להוסיף
- קישור לגוגל דוקס [פתוח במצב הצעה]
- מדריך וורד תורני.docx
תוכניות לעתיד:
- חשבתי שיהיה מאוד שימושי להכין תבנית כעין זו עם מאקרו לשינוי גופנים ,כמו שהוזכר כאן בעבר ,בעיקרון אין לי בעיה לעשות את זה ,אבל אני צריך:
א' מישהו שיוכל לכתוב חלוקה מתאימה ,כלומר ,נניח שאני עושה קבוצות "תורני" , "כותרות" וכו' -מה הגופנים שמתאים להכניס שם
ב' אני צריך את הגופנים המתאימים עם רישיון לשימוש חופשי (לא רוצה לסבך אף אחד...) @מעמדים
בוצע , https://mitmachim.top/post/643442- מאקרו מעניין נוסף שברצוני לעשות הוא מאקרו שמחפש את תוכן לוח ההעתקה באוצר החכמה ובבר אילן ,ע"י הקוד שהובא בפוסט הקודם של @pcinfogmach ,השאלה היא אם אפשרי להכניס במאקרו פקודות שיפעלו בתוך התוכנה האחרת [לדוג' רציתי לעשות חיפוש ברשימת הספרים ובתוכן הספרים ,הדרך לשנות את מיקום ההקלדה באוצר החכמה בין חיפוש בתוכן הספרים לרשימת הספרים הוא ע"י f8 או משהו בסגנון ,וכן אותו רעיון להיפך ,על ידי מקש אחר ,כמו כן צריך לעשות קונטרול a ומיקה כדי למחוק טקסט מחיפוש קודם באם קיים] @VBA
- עוד רעיון הוא לעשות חלון של חיפוש והחלפה עם הכפתורים הבאים: חפש את, ושם יש אופציה לתו כלשהו וכו', כמו שהביאו כאן בפורום (החלון ייראה כמו התפריט של הגופנים, ראיתי שיש אופציה כזאת), חלון שני: בכל המסמך. עמוד זה. הערות שוליים וכו'. חלון שלישי - החלף בוכו' @VBA
- להוסיף כפתור תפריט שיכלול בתוכו את כל פקודות הוורד שאינם בתפריט הכלים ,אם יש למישהו רעיון לאיזה קטגוריות לחלק אשמח אם יכתוב כאן
גירסאות קודמות:
- האדם החושב גירסא 1.rar
- גירסא 2 האדם החושב.rar
- גירסא 3 האדם החושב.rar
- גירסא 4 האדם החושב.rar
- האדם החושב גירסא 5.rar
- גירסא 5.1.rar
- האדם החושב גירסא 6.rar
- האדם החושב גירסא 7.zip
- גירסא 8.zip
- גירסא 8.1.zip
- גירסא 9.zip
- גירסא 9.1.zip
- גירסא 9.2.zip
- גירסא 10.zip וורד תורני גירסא 10.exe
- גירסא 11.zip
גירסא 11 וורד תורני.exe - גירסא 12.zip [קוד פתוח]
גירסא 12.exe [חילוץ עצמי ,קוד סגור] - גירסא 12.1.exe
קוד פתוח גירסא 12.1.zip - גירסא 13.1.exe
הבהרה חשובה: אני לא כותב את המאקרואים, כך שאין עניין לבקש ממני מאקרואים שלא קיימים, מה שכן, ניתן ומומלץ לשים כאן קישורים או להעלות מאקרואים קיימים
להערות והארות ניתן לכתוב כאן פוסט/לפנות אלי בצ'אט/לכתוב מייל ל wardtorney@gmail.com
-
-
-
@האדם-החושב
מאוד נהניתי ממה שעשית - נראה שיש לך כישרון לזה
הרעיון שלך לכלול את כל הפקודות בתפריט שיורד מהכפתור המקורי - הוא רעיון נפלא וצודק!@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ביישור טורים של כל מאקרו מחולק למודול אחר ,ניסיתי להעתיק את כולם לתבנית שהכנתי ,אבל כלום לא עוזר (ניסיתי גם להעתיק את המאקרו "עורך טורים" פעם אחת וגם כנגד כל מאקרו ומאקרו)
"כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,למרות שכשהעתקתי את המאקרו המקורי לתבנית הנורמאל זה עובד מצויין
האם אתה מקבל את השגיאה בכל תבנית שאתה יוצר או רק בתבנית של התוסף?
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר ,אשמח אם תוכלו ליידע אותי על עוד אופציות (לשינוי הנראות של הטקסט ולשינוי הגדלים של הסמלים ,אולי יש אקסטרה סמול ,מדיום וכו')
לעניין גדלים - לפי מה שראתי אין יתר מגדול וקטן
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לא היה לי זמן ליצור סמלים ,אשמח אם מישהו יעלה לכאן סמלים מתאימים
לבינתיים לכאורה אפשר להשתמש בסמלים המובנים של מיקרוסופט כמו שכתבתי בפוסט של המדריך - אם לא אז לכל הפחות תבטל את השורה בקוד של הלחצן שמבקשת תמונה, כי לבינתיים זה גורם הרבה שגיאות מיותרות.
-
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?
המאקרו
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
לכל הפחות תבטל את השורה בקוד של הלחצן שמבקשת תמונה, כי לבינתיים זה גורם הרבה שגיאות מיותרות.
מוזר, לא קיבלתי שגיאות
-
@האדם-החושב
לגבי הבעיה עם המאקרו - ייתכן שהבעיה היא חוסר תאימות בין הקוד לתבנית. הסיבה לכך משום שהתבנית בנויה על טכנולוגיה ישנה (כי בחדש כבר אין אפשרות להתאמה של הלחצנים בצורה זו).
מה שצריך לעשות זה לעבור על הקוד מאקרו ולראות אם צריך להתאים אותו לגירסאות ישנות יותר של וורד.לגבי החיצים שצצינת בתמונה כרגע אין לי מידע על זה.
לגבי השגיאות עם התמונות ייתכן שזה קשור לגירסה של וורד (לי יש 2019).
-
@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
מה שצריך לעשות זה לעבור על הקוד מאקרו ולהתאים אותו לגירסאות ישנות יותר של וורד.
מי מתנדב? (אין לי שמץ של מושג בויזואל בייסיק )
-
ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,
פשוט לא הכנסת את המאקרו הנכון והסופי, להלן המאקרו הנכון, ויש בזה שני לחצנים, 1. לפיסקא אחת, 2. לכל המסמך.
Sub מעצב_טורים_פיסקא_אחת() ' ' מעצב_טורים_פיסקא_אחת Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveUp Unit:=wdParagraph, Count:=1 Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type <> wdPrintView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=2 Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" End Sub Sub מעצב_טורים_כל_המסמך() Dim Alerts Selection.HomeKey Unit:=wdStory Alerts = Application.DisplayAlerts Application.DisplayAlerts = wdAlertsNone Application.ScreenUpdating = False Do Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .Alignment = wdAlignParagraphCenter End With With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Dim a a = Selection.Find.Execute If a = True Then Selection.Paragraphs(1).Range.Select ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _ InsertBreak Type:=wdSectionBreakContinuous Selection.Start = Selection.Start + 1 ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _ Type:=wdSectionBreakContinuous With Selection.PageSetup.TextColumns .SetCount NumColumns:=1 .EvenlySpaced = True .LineBetween = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 End If Loop While a = True Application.DisplayAlerts = Alerts Application.ScreenUpdating = True Application.Run MacroName:="תיקון_מעבר_מקטע_כפול" Application.Run MacroName:="תיקון_כותרות_כפולות" Application.Run MacroName:="תיקון_מחיקת_מקטע_בהתחלה" End Sub Sub תיקון_כותרות_כפולות() ' ' טור_תיקון_כותרות_כפולות Macro ' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b^b" .Replacement.Text = "^p" .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 Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p^b" .Replacement.Text = "^p" .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 Private Sub תיקון_מחיקת_מקטע_בהתחלה() ' ' טור_מחיקת_מעבר_מקטע_בהתחלה Macro ' ' Selection.HomeKey Unit:=wdStory Selection.TypeText Text:=";~;" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ";~;^b" .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.ClearFormatting Selection.Find.Replacement.ClearFormatting 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 End Sub Private Sub תיקון_מעבר_מקטע_כפול() ' ' תיקון_מעבר_מקטע_כפול Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b^b" .Replacement.Text = "^&;/1" .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 With Selection.Find .Text = "^b;/1" .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 End Sub
-
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
-
@דאנציג כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
תשאל את @מאקרו אולי הוא יסכים לנדב את מה שהוא כבר עשה, וגם הסבר כיצד לעשות זאת.
זה נקרא לאונצ'ר - Launcher
-
הכנתי גירסא חדשה שכוללת גם את Cross referece-8-25-2021 של @NykUser [כאמור ,לא הצלחתי להבין איך בדיוק להוסיף את המאקרו לתבנית ,אבל הכפתורים והקישור של הכפתורים לפקודות קיים ,הקישור הוא למאקרואים הבאים:
הפנייה מקושרת - cr2
עדכון הפניות - Update_
הקטנת סוגריים - הקטן_סוגריים_משתנה
מעבר בין קטעים - gotonum
ייצוא לתג - export_Cross
וכן הוספתי כמה סמלים מהספרייה של וורד
@NykUser אשמח אם תוכל להוסיף את המאקרו לתבנית
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
@רפרם-ב-ר-פפא אשמח אם תוכל להוסיף לתבנית את יישור טורים [כאמור ,הכפתורים והקישור שלהם לפקודות קיימים כבר]
@pcinfogmach הסרתי מהקוד את הסמלים שלא קיימים
גירסא 2 האדם החושב.rar
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו' -
@האדם-החושב כתב ב[להורדה | עיצוב ספרי קודש - גירסא משלי]
@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים
השבתי לך כבר כאן לפני ששאלת.
-
-
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
רציתי גם לשאול אם יש דרך התוכנה אפשרות להוסיף את החיצים הקטנים שבצד כל קבוצה למטה (לצורך קרדיטים, הסברים וכו')
נוסף כעת הקוד כאן במדריך
-
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar -
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rarמעצב טורים עדיין לא תוקן.
-
@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rar -
@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:
@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rarמעצב טורים עובד מצויין