@ARISH
מי שנוסע קבוע בתוך עיר ממקום למקום כל יום
הרבה פעמים הוא בצומת או כיכר ויש לו תמיד בכל יום באופן קבוע 3 אופציות לאיזה תחנה ללכת
כל פניה בצומת יש תחנה של קו אחר
וכולם מגיעים לתחנת היעד או לאזור הרצוי
רק הוא לא יודע בצומת לאן לפנות
הוא צריך שמישהוא יידע לחשבן לו את כל האופציות ביחד
כלומר לדוגמא מתי כל אחד מהקווים מגיע לתחנה הסמוכה אליו
אפשר להגדיר מצב בדיקה קבוע
כל יום שיוצא מהכולל לדוגמא מתקשר לקו שלך לשלוחה מסוימת ומיד המערכת בודקת לו לאיזה תחנה יילך

זה יכול ממש לעזור!

@בינארי-חכם
ומה הוא מסביר מדוע הישן קורה תקלה של לולאה אינסופית של הוספת ספרה?

שלום רב
במשך שנים הייתי משתמש בפקודת מאקרו בוורד שתכליתה להוסיף יחידה לכל הספרות במסמך
כלומר כל מקום במסמך שכתוב 8 היא כותבת 9 וכל מקום שכתוב 342 היא כותבת 343
כעת אני מפעיל אותה במחשב עם ווינדוס 11 ואופיס 365 [אולי זה קשור] וזה מוסיף בלולאה אינסופית ספרות למספר הראשון במסמך עד שאני נאלץ לסיים פעולת וורד באמצע.
אבקש את עזרת הציבור לתקן לי את המאקרו דלהלן

Sub add_num()
 
 Dim doc As Document
 Set doc = ActiveDocument
 Dim word As Range
 
 'Increment Numbers
 For Each word In doc.Words
 If IsNumeric(word.Text) Then
 word.Text = word.Text + 1
 End If
 Next word
 
 ' Original code for Macro1
 Selection.WholeStory
 
 ' Additional code from the second macro
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 Selection.Find.Replacement.Font.Color = wdColorRed
 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.Color = wdColorRed
 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.ClearFormatting
 Selection.Find.Font.Color = wdColorRed
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = ""
 .Replacement.Text = "^&^s"
 .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.Font.Color = wdBlack
 Selection.MoveStart unit:=wdStory
 Selection.HomeKey wdStory ' This line moves the cursor to the beginning of the document
 
End Sub

Sub min_num()
 
 Dim doc As Document
 Set doc = ActiveDocument
 Dim word As Range
 
 'Increment Numbers
 For Each word In doc.Words
 If IsNumeric(word.Text) Then
 word.Text = word.Text + 1
 End If
 Next word
 
 ' Original code for Macro1
 Selection.WholeStory
 
 ' Additional code from the second macro
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 Selection.Find.Replacement.Font.Color = wdColorRed
 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.Color = wdColorRed
 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.ClearFormatting
 Selection.Find.Font.Color = wdColorRed
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
 .Text = ""
 .Replacement.Text = "^&^s"
 .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.Font.Color = wdBlack
 Selection.MoveStart unit:=wdStory
 Selection.HomeKey wdStory ' This line moves the cursor to the beginning of the document
 
End Sub

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

@סקופ
תפנה לארון הספרים הדיגיטלי
אולי יוכלו לשלב את זה באתר שלהם

@ARISH
מחכים למערכת של הקליקרים...

@ARISH
כלומר אתה צריך שיעברו לרשותך לעולם ועד?
או רק בהשאלה לצורך ניסויים וכדומה?

Spoiler

אני רואה ש @צבי העלה 60 מדריכים

האם מישהוא יוכל להוריד אותם בדרך שכתבתי?
זה יהיה לתועלת כולם ללא ספק!

נראה לי שה AI הוריד את האיכות של כל המלל והתמונות
תתקן אותי אם אני טועה [וגם כמובן @שטיגליץ ]

הנה דוגמא להבדל הגדול בחדות
שורה ראשונה כמובן זה AI
ושורה שניה בדרך שאני הצעתי

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

הוראות:
להתקין את התוסף הנ"ל
לייצא כ HTNL
ואד להדפיס במדפת PDF

@צבי כתב:

מצורף, מקווה שלא פיספסתי שום מדריך.

עברת אחד אחד על כל המדריכים של שטיגליץ בפורום?

@שטיגליץ תוכל בבקשה לבדוק גם האם זה כולל הכל?

אולי אני יארגן הדפסה מרוכזת של כמות גדולה וייצא לכולם מחיר יותר זול

@פלמנמוני
נראה שמיום ליום מספר המשתמשים הפעיל באתר מכפיל את עצמו
בשעה האחרונה זה עומד על 150!

@ע-ה-דכו-ע
להלן תגובתו
האמת שהדיון הזה קצת מציק
אצלי כתפיסת עולם החיים הם לא שחור לבן
יש מנועים סגורים שעושים עבודה מעולה אבל אתה מוגבל אליהם ואם אתה עובד בדיוק עם מה שהם עושים מה טוב, אחרת תדפוק את הראש בקיר
ויש לפתח את הכל מ-0 ואז זו עבודה סיזיפית שחורה וקשה
ויש לבנות לבד ולהשתמש עם רכיבים בנויים, אבל שלא כל המערכת תהיה מבוססת עליהם, כך שתמיד יהיה אפשר להחליף לתקן ולערוך
לדוגמא, אני משתמש עם מציג PDF בשם pdf.js זו ספריה בנוייה
אבל בגלל שהיא קוד מקור, היה אפשר לתקן שם באג ולראות בדיוק מה היא עושה, וזה רכיב אחד בתוך מערכת, ולא מוצר סגור
לעומת nodebb שזו מערכת ענקית מפלצתית מתקינה מליון רכיבים וקובלת אותי לעבוד בצורה שבה הם עובדים

מכאן ואילך נראה לי הדיון מיותר וחסר תועלת ממשית
נא להישאר בשרשור זה על נושא האתר המוצלח

@ע-ה-דכו-ע
ככה הוא אמר לי מפורש

שלום רב
לאחר שנים שביקשו פעמים רבות למצוא דרך להוריד את כל המדריכים של @שטיגליץ ואולי גם שרשורים של נושאי חשמל שונים
ותמיד זה נתקע בקושי שהעיצוב משתנה בהורדה והתמונות זזות למקומות לא קשורים ועוד...
חשבתי על רעיון נפלא
להשתמש בתוסף הזה
שיוצר כפתור ייצא שרשור
וככה אפשר לעבור אחד אחד על כל השרשורים שלו ולהוריד אותם בצורה מסודרת תוך שמירה די טובה [לענ"ד] של העיצוב והתמונות

האם למישהוא יש רעיון טוב יותר או פשוט יותר לביצוע? [במקום לעבור אחד אחד]

אולי @האדם-החושב ?

תודה רבה!

הנה דוגמא שאני מרוצה מהתוצאה

מדריך מוצרי חשמל כללי פרק ג' (3) לטכנאים - הכנת שקצר - שקע שבודק רציפות וזליגה.pdf

Spoiler

@צדיק-וטוב-לו-0 כתב:

מה התשובה?
אני חושב שכמעט כל מה שהוא הביא שם - כבר קיים בנודביבי.

זה בדיוק התשובה
שהוא שילב כל מה שצריך גם בפורום שלו

@מד
להלן תגובת המפתח...

למתבכייני NodeBB
https://hebrewbooks-2026.github.io/forum.html#topic=171

אגב,
חבל מאד שיש ספרים צבעוניים שהכניסו אותם בצורה של שחור לבן
תראו לדוגמא את הספר הזה
https://hebrewbooks.pages.dev/library?book=52173&page=81
או ווי...