מדריך | תוסף לתוסף של מכון כתר תורה להמרת קובץ עם הערות שוליים מוורד למלל
-
כפי שהזכרנו מכון כתר תורה פתחו תוסף שמייצא קבצי רב טקסט מתוכנת וורד לתוכנת מלל.
למרות שתוכנת וורד לא תומכת בכמה זרמי הערות - רב טקסט, אך מלל תומכת בכך. והבעיה מתחילה כשמעוניינים לכתוב מסמך בוורד ולהעביר אותו לאחר מכן למלל.
ולכן במכון כתר תורה חשבו על הבעיה, ופיתחו תוסף המאפשר למשתמש לכתוב בצורה ידנית בתחילת כל הערה בוורד לאיזה זרם הוא שייך, ולאחר מכן בהמרת המסמך למלל, כל הערה תהיה ממוקמת באופן אוטומטי בזרם שהיא שייכת לשם.
הפורמט שצריך לכתוב את המספר של הזרם הוא @01# (שטרודל, מספר בפורמט של שני ספרות, סולמית).
הבעיה שנשארה להשלים כרגע בפיתוח הזה הוא, שלפעמים אחרי שמעבירים למלל מעוניינים להחזיר את המסמך לוורד ולהשתמש בסביבת העבודה של וורד, ולאחר מכן להחזירו בחזרה למלל.
הבעיה שתוכנת מלל ברגע שהיא מייצאת קבצים לטקסט היא שומרת כל זרם במקום נפרד במסמך, אחד על גבי השני, אבל לא בפורמט הזה, והתוסף של מכון כתר תורה להמרת וורד למלל משתמש בפורמט מאוד מסויים.
אז איך נוכל לייצא ממלל לוורד מסמך של רב טקסט בצורה שיהיה אפשר להחזירו אחר כך למלל בצורתו המקורית של הרב טקסט, בהיררכיה הנכונה, כל הערה בזרם הנכון שלה?
וזה נכון שיש למכון כתר תורה תוסף לחיבור מסמך מפורק בין הערות, אבל גם אם נשתמש בה, כיצד נוכל אחר כך להחזיר את התוסף למלל עם ההיררכיה הנכונה של ההערות?
הרי אנחנו לא רוצים זרם אחד בלבד של הערות שוליים כמו בוורד, אלא לשמור על כל זרם במקום שלו, במצב של כמה זרמים כמו במלל!
זה מה שהתוסף הזה בא לפתור!אז לסיכום:
למי התוסף דלהלן מיועד?
התוסף מיועד למי שמייצא קובץ של רב טקסט ממלל ורוצה לעבוד עליו בוורד ואחר כך להחזיר אותו למלל.אלו תוכנות נצרכות לשימוש בקוד זה?
כמובן שצריך וורד ומלל.
אך מלבד זאת התוסף מיועד למי שכבר משתמש בתוסף השני של מכון כתר תורה להמרת וורד למלל, וגם משתמש בתוסף של מכון הנ''ל "המכין לתג" להמרת הערות שוליים מפורקות להערות שוליים אמיתיות של וורד.איך משתמשים בתוסף הזה?
מומלץ ליצור גיבוי לקובץ לפני השימוש בתוסף.- מדביקים את קובץ הטקסט שמיוצא ממלל בוורד במצב טקסט נקי בלבד.
- מפעילים את המקרו המצורף (תומך עד עשר זרמים של הערות שוליים, תמך לנו גם במסמך כבד).
- לאחר מכן משתמשים בתוסף המכין לתג של מכון כתר תורה לפי ההוראות שם ומחזירים את ההערות שוליים המפורקות להערות שוליים אמיתיות של וורד.
- עורכים מה שרוצים בסביבת העבודה של וורד.
- מייצאים את המסמך בחזרה למלל לפי הקוד שפרסמנו באשכול המקורי כשדיברנו על מלל.
חשוב בכל שלב לשמור על הפורמט הנכון של המספור בתחילת כל הערה המציין לאיזה זרם הוא שייך - עד להמרה הסופית למלל.
האם תמיד זה יישאר מסורבל כל כך?
לא! מכון כתר תורה מעוניין ליצור תוסף עם קובץ התקנה שיאחד את כל הפקודות ביחד.
מכון כתר תורה מבקש לדעת עד כמה הציבור נצרך לכך, ולפי זה יפעל בכפוף לשיקול דעת ההנהלה.איזה פקודות מכון כתר תורה מעוניין לאחד ביחד, לתוכנה אחת (בבחינת "הכול כלול") של "ייבוא וייצוא מלל-וורד"?
- הפקודה הנוכחית המכינה את המסמך להמרה להערות שוליים לפי הפורמט הנצרך.
- פקודת ההמרה עצמה, לפי הפורמט הנצרך. להמרת ההערות המפורקות להערות שוליים אמיתיות של וורד. (כרגע הפקודה נמצאת בתוך תוכנת המכין לתג אבל לא בהתאמה מלאה לפורמט הנוכחי, ועל זה נעבוד בלי נדר כמידת הצורך).
- פקודת המרת הערות שוליים של וורד עם הפורמט הנצרך, למסמך של מלל עם היררכיה נכונה של ההערות השוליים, כל זרם במקום הנכון שלו. (הפקודה פורסמה כבר בפורום זה באשכול אחר).
- ייצוא הקובץ בחזרה מוורד למלל. (פקודה זו מעולם לא פורסמה אך הפקודה קיימת במשרדי מכון כתר תורה).
להלן הקוד:
Sub המרת_מלל_למסמך_מותאם_להמרה_מתג() ' מחיקת_תווים_מתנגדים Macro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{" .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 With Selection.Find .Text = "}}}" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Underline = wdUnderlineNone With Selection.Find .Text = "" .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 ' ' המרת_מלל_למסמך_מותאם_להמרה_מתג Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Underline = wdUnderlineSingle With Selection.Find .Text = "*" .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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Underline = wdUnderlineSingle With Selection.Find .Text = "^#" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{****^#" .Replacement.Text = "@04#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*^#" .Replacement.Text = "@01#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{**^#" .Replacement.Text = "@02#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{***^#" .Replacement.Text = "@03#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*****^#" .Replacement.Text = "@05#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{****^#" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*****^#" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*^#" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{******^#" .Replacement.Text = "@06#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*******^#" .Replacement.Text = "@07#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{********^#" .Replacement.Text = "@08#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{*********^#" .Replacement.Text = "@09#^&" .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 Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{**********^#" .Replacement.Text = "@10#^&" .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 ' ' מחיקת_שיריים Macro ' ' Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{{{" .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 With Selection.Find .Text = "}}}" .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 Selection.Find.ClearFormatting Selection.Find.Font.Underline = wdUnderlineSingle Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Underline = wdUnderlineNone With Selection.Find .Text = "" .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 -
ה הרב יעקב ישראל התייחס לנושא זה ב
-
א אלישי העביר נושא זה מ-עזרה הדדית - תוכנות גרפיקה ועיצוב ב-
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}