שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש
-
@pcinfogmach
כעת החלון נפתח, אבל:- בנסיון התקנת התוסף מופיע שגיאה עם השורה הזו:
ורק לאחר שסגרתי את הויזואל בייסיק יכלתי ליצור ספרייה.
השיפורים מדהימים ומיוחדים, פשוט מרגש לראות כזה דבר, זה פשוט מדהים!!!
- בנסיון התקנת התוסף מופיע שגיאה עם השורה הזו:
-
@דאנציג
איזו שגיאה מופיעה? תוכל לעשות צלו"מ? בהתקנה של התוסף עיצוב תורני (דרך וורד) גם יש לך את השגיאה הזו?@pcinfogmach !f07abbcd-7623-4098-a2e8-fb6dca0c2783-image.png
@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
התקנה של התוסף עיצוב תורני (דרך וורד) גם יש לך את השגיאה הזו?
לא, התוסף מותקן בהצלחה.
-
@pcinfogmach !f07abbcd-7623-4098-a2e8-fb6dca0c2783-image.png
@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
התקנה של התוסף עיצוב תורני (דרך וורד) גם יש לך את השגיאה הזו?
לא, התוסף מותקן בהצלחה.
@דאנציג
תנסה עכשיו
תורת אמת בוורד.dotm
כמו:כ נוספו עוד כמה שיפורים כמו לחצן ימני וחיפוש מדוייק לדוגמא בראשית (כד יג) ייפתח ישר לפרק כד פסוק יג -
@דאנציג
תנסה עכשיו
תורת אמת בוורד.dotm
כמו:כ נוספו עוד כמה שיפורים כמו לחצן ימני וחיפוש מדוייק לדוגמא בראשית (כד יג) ייפתח ישר לפרק כד פסוק יג -
@דאנציג
תנסה עכשיו
תורת אמת בוורד.dotm
כמו:כ נוספו עוד כמה שיפורים כמו לחצן ימני וחיפוש מדוייק לדוגמא בראשית (כד יג) ייפתח ישר לפרק כד פסוק יגפוסט זה נמחק! -
-
@pcinfogmach
אבל החזרת את השורות הבעייתיות, כך שחזר לי הבעיה הנ"ל. -
@דאנציג
ועכשיו?
תורת-אמת-בוורד.dotm@pcinfogmach
אלוף!!!!!
עובד מצויין. -
@דאנציג
ועכשיו?
תורת-אמת-בוורד.dotm -
@דאנציג
ועכשיו?
תורת-אמת-בוורד.dotm@pcinfogmach ואני מקבל שגיאה כזאת בכל הגרסאות.
-
@pcinfogmach ואני מקבל שגיאה כזאת בכל הגרסאות.
@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm -
@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotm@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotmעכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
-
@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotmעכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
-
@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
עכשיו עובד?
תורת-אמת-בוורד.dotmעכשיו לא יוצא השגיאה הנ"ל, אבל כשאני לוחץ אלט T, הוורד נתקע עד שקורס ולא נהיה כלום.
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm -
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotmעכשיו זה הותקן ועובד.
-
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotm@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotmזה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
-
@pcinfogmach כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
@מניין
שיניתי משהו קטן אולי יעזור
תורת-אמת-בוורד.dotmזה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
@מניין כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:
זה עובד, אבל הספר נפתח בדף מוסתר [וכן ההוראות בפתיחת התוסף] ולא בחלון הראשי, והדף המוסתר לא רואים על המסך, רק כששמים את העכבר על הסמל בשורת המשימות רואים שזה פתוח.
האם שינית את ההגדרות של וורד לפי ההוראות?
-
אז הנה טיוטא של הרעיון שלי להערות שוליים עברי יותר משצב - אשמח לקבל הערות והארות.
עריכה: וכעת הקוד מוכן.הוראות
מאקרו הערות שוליים יותר משצב
אפשר להוסיף עוד הערות שוליים והלריץ שוב כדי לעדכן את המיספור
יש להמתין בסבלנות בעת הרצת המאקרו גם אם וורד אומר שהוא נתקע כביכול – ההמרה הראשונה לוקחת יותר זמן מעדכון
ככל שיש יותר הערות שוליים להמיר במסמך כן יארך זמן פעולת המאקרו.
וכמובן מומל לשמור גיבוי של המסמך לפני שמתחיליםOption Explicit Sub המר_הערות_שוליים_למספור_עברי_יותר_משצב() Application.ScreenUpdating = False Dim origRange As Range Set origRange = Selection.Range Dim i As Integer Dim ftnoteText As String Dim ftnoteRefrence As Range For i = 1 To ActiveDocument.Footnotes.Count Set ftnoteRefrence = ActiveDocument.Footnotes(i).Reference If ftnoteRefrence <> ChrW(8203) Then ftnoteText = ActiveDocument.Footnotes(i).Range.Text ftnoteRefrence.Characters(1).Delete ftnoteRefrence.Select ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=ftnoteText, Reference:=ChrW(8203) End If Next i Call AddHebrewFootnoteRefrenceStyle Call DeleteAllRefrenceLetters Call MainDocHebrewRefrence Call FootnotesRefrence Call DeleteDoubleSpace origRange.Select Application.ScreenUpdating = True Application.ScreenRefresh End Sub Private Sub FootnotesRefrence() Dim doc As Document Dim rng As Range Dim i As Long Dim ftnoteNumber As Long Dim hebrewftNoteNumber As String For i = 1 To ActiveDocument.Footnotes.Count Set rng = ActiveDocument.Footnotes(i).Range ftnoteNumber = ActiveDocument.Footnotes(i).Index hebrewftNoteNumber = ConvertToHebrew(ftnoteNumber) With rng .start = .start - 1 .End = .start .Text = hebrewftNoteNumber & " " .style = ActiveDocument.Styles("הפניה להערת שוליים עברי") End With Next i End Sub Private Sub MainDocHebrewRefrence() Dim doc As Document Dim rng As Range Dim i As Long Dim ftnoteNumber As Long Dim hebrewftNoteNumber As String For i = 1 To ActiveDocument.Footnotes.Count Set rng = ActiveDocument.Footnotes(i).Reference ftnoteNumber = ActiveDocument.Footnotes(i).Index hebrewftNoteNumber = ConvertToHebrew(ftnoteNumber) With rng .start = .End .Text = hebrewftNoteNumber .style = ActiveDocument.Styles("הפניה להערת שוליים עברי") End With Next i End Sub Private Sub AddHebrewFootnoteRefrenceStyle() On Error GoTo skp ActiveDocument.Styles.Add Name:="הפניה להערת שוליים עברי", Type:= _ wdStyleTypeCharacter With ActiveDocument.Styles("הפניה להערת שוליים עברי") .BaseStyle = -39 End With skp: End Sub Private Sub DeleteAllRefrenceLetters() Dim rng1 As Range Set rng1 = ActiveDocument.Content Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting On Error GoTo skp rng1.Find.style = ActiveDocument.Styles("הפניה להערת שוליים עברי") With rng1.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 rng1.Find.Execute Replace:=wdReplaceAll Dim rng2 As Range Dim ftnoteNumber As Long ftnoteNumber = ActiveDocument.Footnotes.Count Set rng2 = ActiveDocument.Footnotes(1).Range rng2.End = ActiveDocument.Footnotes(ftnoteNumber).Range.End Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With rng2.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .style = ActiveDocument.Styles("הפניה להערת שוליים עברי") .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With rng2.Find.Execute Replace:=wdReplaceAll skp: End Sub Private Sub DeleteDoubleSpace() Dim rng As Range Dim ftnoteNumber As Long ftnoteNumber = ActiveDocument.Footnotes.Count Set rng = ActiveDocument.Footnotes(1).Range rng.End = ActiveDocument.Footnotes(ftnoteNumber).Range.End Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With rng.Find .Text = "( )\1@" .Replacement.Text = "\1" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With rng.Find.Execute Replace:=wdReplaceAll skp: End Sub Function ConvertToHebrew(ByVal ftnoteNumber As Long) As String Dim MyArray As Variant Dim MyaArray As Variant Dim v As Long Dim s As String Dim i As Long s = "" MyArray = Array(400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1) MyaArray = Array("ת", "ש", "ר", "ק", "צ", "פ", "ע", "ס", "נ", "מ", "ל", "כ", _ "י", "ט", "ח", "ז", "ו", "ה", "ד", "ג", "ב", "א") v = Val(ftnoteNumber) Do While v > 0 If v = 15 Or v = 16 Then s = s & "ט" v = v - 9 End If For i = 0 To UBound(MyArray) If v >= MyArray(i) Then s = s & MyaArray(i) v = v - MyArray(i) Exit For End If Next i Loop If s = "רצח" Then s = "רחצ" If s = "רע" Then s = "ער" If s = "רעב" Then s = "ערב" If s = "שד" Then s = "דש" If s = "שמד" Then s = "שדמ" If s = "תשמד" Then s = "תדשם" If s = "רעה" Then s = "ערה" If s = "רעד" Then s = "עדר" ConvertToHebrew = s End Function
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}