להורדה | תוסף וורד תורני

האדם החושב

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

הורדה

גירסא 13.2.exe

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

מכיון שהתוספים בגדול די דומים החלטנו אני ו @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
להוסיף כפתור תפריט שיכלול בתוכו את כל פקודות הוורד שאינם בתפריט הכלים ,אם יש למישהו רעיון לאיזה קטגוריות לחלק אשמח אם יכתוב כאן

גירסאות קודמות:

הבהרה חשובה: אני לא כותב את המאקרואים, כך שאין עניין לבקש ממני מאקרואים שלא קיימים, מה שכן, ניתן ומומלץ לשים כאן קישורים או להעלות מאקרואים קיימים

להערות והארות ניתן לכתוב כאן פוסט/לפנות אלי בצ'אט/לכתוב מייל ל ‏‪wardtorney@gmail.com‬‏

pcinfogmach

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

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

"כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

ב"מעצב טורים" משום מה אני מקבל שוב ושוב שגיאה ,למרות שכשהעתקתי את המאקרו המקורי לתבנית הנורמאל זה עובד מצויין

האם אתה מקבל את השגיאה בכל תבנית שאתה יוצר או רק בתבנית של התוסף?

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

הסתבכתי קצת עם העיצוב של התפריטים ,אני רוצה שזה יראה כמה שיותר אסתטי ,ניסיתי לעשות ירידת שורה בתיאור על ידי הוספה של /n ,אבל זה לא עזר ,אשמח אם תוכלו ליידע אותי על עוד אופציות (לשינוי הנראות של הטקסט ולשינוי הגדלים של הסמלים ,אולי יש אקסטרה סמול ,מדיום וכו')

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

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

לא היה לי זמן ליצור סמלים ,אשמח אם מישהו יעלה לכאן סמלים מתאימים

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

האדם החושב

@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

כלום לא עוזר" - לא ברור מספיק מה הבעיה המאקרו? הלחצן?

המאקרו

@pcinfogmach כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

לא ברור למה כוונתך אולי תעלה תמונה של מה אתה מתכווין

צילום מסך 2023-04-21 150643.png

@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
למותר לציין שאפשרי ורצוי לערוך ,להוסיף וכו'

האדם החושב

@מאקרו תוכל לפרט יותר? [לינק למדריך איך לעשות את זה וכד']

מניין

@האדם-החושב כתב ב[להורדה | עיצוב ספרי קודש - גירסא משלי]

@מניין אשמח אם תוכל לבדוק מה הבעייה עם מעצב טורים

השבתי לך כבר כאן לפני ששאלת.

האדם החושב

@מניין מתנצל, טעות שלי, חשבתי שהתכוונת ליישור טורים

pcinfogmach

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

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

נוסף כעת הקוד כאן במדריך

האדם החושב

עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar

מניין

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

עדכון: גיר' 3, תוקן הבאג בעיצוב טורים וכן נוסף המאקרו חיפוש סוגריים לא סגורים של @menajemmendel
גירסא 3 האדם החושב.rar

מעצב טורים עדיין לא תוקן.

האדם החושב

@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rar

מניין

@האדם-החושב כתב בלהורדה | עיצוב ספרי קודש - גירסא משלי:

@מניין אולי טעיתי בקובץ, תנסה את זה
גירסא 4 האדם החושב.rar

מעצב טורים עובד מצויין