בקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך
-
בעז"ה מעוניין להכניס לתוסף שולחן העורך מאקרו לתיקון שגיאות נפוצות.
מי שיכול לכתוב לי כאן את השגיאות הנפוצות שניתן לשנות באמצעות חיפוש והחלפה (שלא מופיעות ברשימה למטה) - אשמח מאוד... ובנוסף מי שיכול להגיב על השגיאות שנכתבות כאן אולי זה יכול לשבש דברים אחרים.
אין צורך (וזה גם קצת מכביד) לכתוב את כל הלוגיקה של החיפוש, אלא רק את הטעות.Sub Repair() Dim searchText(1 To 14) As String Dim replaceText(1 To 14) As String Dim msg(1 To 14) As String Dim i As Integer ' רווחים עודפים ופיסקאות ריקות searchText(1) = " {2,}": replaceText(1) = " " searchText(2) = "^13{2,}": replaceText(2) = "^13" ' רווח לפני תוי פיסוק searchText(3) = "( )([.,:\?\!])([! ])": replaceText(3) = "\2\1\3" searchText(4) = "( )([.,:\?\!])([ ])": replaceText(4) = "\2\3" ' סימני פיסוק כפולים searchText(5) = "([,:\!\?]){2,}": replaceText(5) = "\1" searchText(6) = "..": replaceText(6) = "." ' מעל 3 נקודות searchText(7) = ".{4,}": replaceText(7) = "..." ' רווח לפני סוגר סוגריים searchText(8) = "( )([\)\]])([! ])": replaceText(8) = "\2\1\3" searchText(9) = "( )([\)\]])( )": replaceText(9) = "\2\3" ' רווח אחרי פותח סוגריים searchText(10) = "([! ])([\(\[])( )": replaceText(10) = "\1\3\2" searchText(11) = "( )([\(\[])( )": replaceText(11) = "\1\2" ' רווח לפני ואחרי פיסקה searchText(12) = "^13 ": replaceText(12) = "^13" searchText(13) = " ^13": replaceText(13) = "^13" ' זוג גרשיים בודדים לגרשיים אחד searchText(14) = "''": replaceText(14) = """" For i = LBound(searchText) To UBound(searchText) Call SearchAndReplace(searchText(i), replaceText(i)) Next i End Sub Function SearchAndReplace(searchText As String, Optional replaceText As Variant = Nothing, Optional rng As Range = Nothing, Optional searchForward As Boolean = True, Optional searchMatchWildcards = True) As Range If rng Is Nothing Then Set rng = ActiveDocument.Range On Error Resume Next If IsEmpty(replaceText) Then replaceText = "False" On Error GoTo 0 With rng.Find .ClearFormatting .Replacement.ClearFormatting .text = searchText .Replacement.text = replaceText .Forward = searchForward .Wrap = wdFindStop .Format = True .MatchKashida = True .MatchWildcards = searchMatchWildcards If replaceText = "False" Then If .Execute Then Set SearchAndReplace = rng.Duplicate Else .Execute Replace:=wdReplaceAll End If End With End Functionזה הקוד בינתיים - מי שרוצה להוסיף או להעיר מוזמן.
@איש-גמזו @יאיר-דניאל @יאיר-הבהיר @pcinfogmach @לשכת-הרב וכל העוסקים בעימוד ועריכה...@שלמה11
בהעתקה מאתרים באינטרנט וכדו' צריך לתקן שיהיה הכל בעברית.
צריך לעשות החלפה אוטומטית של כמה תוים, ולהחליף אותם בעצמם (כלומר להחליף רווח ברווח, נקודה בנקודה וכו', כך זה נהפך ע"פ השפה הבסיסית של המסמך).נדמה לי שכבר יש אפשרות כזו באחת מהתוספים, אך אינני בטוח.
אלו התוים שצריך להחליף:
רווח
.
,
(
)
"
'
; -
בעז"ה מעוניין להכניס לתוסף שולחן העורך מאקרו לתיקון שגיאות נפוצות.
מי שיכול לכתוב לי כאן את השגיאות הנפוצות שניתן לשנות באמצעות חיפוש והחלפה (שלא מופיעות ברשימה למטה) - אשמח מאוד... ובנוסף מי שיכול להגיב על השגיאות שנכתבות כאן אולי זה יכול לשבש דברים אחרים.
אין צורך (וזה גם קצת מכביד) לכתוב את כל הלוגיקה של החיפוש, אלא רק את הטעות.Sub Repair() Dim searchText(1 To 14) As String Dim replaceText(1 To 14) As String Dim msg(1 To 14) As String Dim i As Integer ' רווחים עודפים ופיסקאות ריקות searchText(1) = " {2,}": replaceText(1) = " " searchText(2) = "^13{2,}": replaceText(2) = "^13" ' רווח לפני תוי פיסוק searchText(3) = "( )([.,:\?\!])([! ])": replaceText(3) = "\2\1\3" searchText(4) = "( )([.,:\?\!])([ ])": replaceText(4) = "\2\3" ' סימני פיסוק כפולים searchText(5) = "([,:\!\?]){2,}": replaceText(5) = "\1" searchText(6) = "..": replaceText(6) = "." ' מעל 3 נקודות searchText(7) = ".{4,}": replaceText(7) = "..." ' רווח לפני סוגר סוגריים searchText(8) = "( )([\)\]])([! ])": replaceText(8) = "\2\1\3" searchText(9) = "( )([\)\]])( )": replaceText(9) = "\2\3" ' רווח אחרי פותח סוגריים searchText(10) = "([! ])([\(\[])( )": replaceText(10) = "\1\3\2" searchText(11) = "( )([\(\[])( )": replaceText(11) = "\1\2" ' רווח לפני ואחרי פיסקה searchText(12) = "^13 ": replaceText(12) = "^13" searchText(13) = " ^13": replaceText(13) = "^13" ' זוג גרשיים בודדים לגרשיים אחד searchText(14) = "''": replaceText(14) = """" For i = LBound(searchText) To UBound(searchText) Call SearchAndReplace(searchText(i), replaceText(i)) Next i End Sub Function SearchAndReplace(searchText As String, Optional replaceText As Variant = Nothing, Optional rng As Range = Nothing, Optional searchForward As Boolean = True, Optional searchMatchWildcards = True) As Range If rng Is Nothing Then Set rng = ActiveDocument.Range On Error Resume Next If IsEmpty(replaceText) Then replaceText = "False" On Error GoTo 0 With rng.Find .ClearFormatting .Replacement.ClearFormatting .text = searchText .Replacement.text = replaceText .Forward = searchForward .Wrap = wdFindStop .Format = True .MatchKashida = True .MatchWildcards = searchMatchWildcards If replaceText = "False" Then If .Execute Then Set SearchAndReplace = rng.Duplicate Else .Execute Replace:=wdReplaceAll End If End With End Functionזה הקוד בינתיים - מי שרוצה להוסיף או להעיר מוזמן.
@איש-גמזו @יאיר-דניאל @יאיר-הבהיר @pcinfogmach @לשכת-הרב וכל העוסקים בעימוד ועריכה...@שלמה11
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].
אבל לכל אחד יש את ההעדפות האישיות שלו, לכן יהיה טוב לתת לכל אחד את האפשרות לבנות רשימה פרטית שבמקש אחד תחליף את כולם.שדרוג נוסף להצעה הנ"ל - לתת אפשרות שההחלפה הנ"ל תחליף גם את הגופן [כלומר: אפי' בגופן אריאל, יהפוך ל- אפילו בגופן דוד], כדי לתת אפשרות למעקב לדעת מה הוחלף.
-
@שלמה11
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].
אבל לכל אחד יש את ההעדפות האישיות שלו, לכן יהיה טוב לתת לכל אחד את האפשרות לבנות רשימה פרטית שבמקש אחד תחליף את כולם.שדרוג נוסף להצעה הנ"ל - לתת אפשרות שההחלפה הנ"ל תחליף גם את הגופן [כלומר: אפי' בגופן אריאל, יהפוך ל- אפילו בגופן דוד], כדי לתת אפשרות למעקב לדעת מה הוחלף.
-
@שלמה11
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].
אבל לכל אחד יש את ההעדפות האישיות שלו, לכן יהיה טוב לתת לכל אחד את האפשרות לבנות רשימה פרטית שבמקש אחד תחליף את כולם.שדרוג נוסף להצעה הנ"ל - לתת אפשרות שההחלפה הנ"ל תחליף גם את הגופן [כלומר: אפי' בגופן אריאל, יהפוך ל- אפילו בגופן דוד], כדי לתת אפשרות למעקב לדעת מה הוחלף.
-
@שלמה11 שלמה
מחיקת רווחים לפני גרש' עליון
הערת שוליים על מילה קדימהואפשר לעשות לבקשת משתמש להחליף מעבר שורה ידני באנטר למי שחפץ
@u88 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
מחיקת רווחים לפני גרש' עליון
ומה קורה אם משהו כותב:
ונפק"מ אם זה בדיני 'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.
אז יהי' כתוב לו: ונפק"מ אם זה בדיני'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'. -
@u88 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
מחיקת רווחים לפני גרש' עליון
ומה קורה אם משהו כותב:
ונפק"מ אם זה בדיני 'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.
אז יהי' כתוב לו: ונפק"מ אם זה בדיני'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.@יום-חדש-מתחיל כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
ומה קורה אם משהו כותב:
ונפק"מ אם זה בדיני 'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.
אז יהי' כתוב לו: ונפק"מ אם זה בדיני'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.אז צריך לחפש את " ' " ולהחליף ב "' "
-
@יום-חדש-מתחיל כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
ומה קורה אם משהו כותב:
ונפק"מ אם זה בדיני 'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.
אז יהי' כתוב לו: ונפק"מ אם זה בדיני'מלאכה' דשבת, או דין בדיני מעשה גברא, וכו'.אז צריך לחפש את " ' " ולהחליף ב "' "
@שלמה11 ואם זה רווח לפני הגרש האחרון בטעות?
-
@שלמה11 ואם זה רווח לפני הגרש האחרון בטעות?
@יום-חדש-מתחיל
זוהי דוגמא מצויינת למגבלות של חיפוש והחלפה בוורד ובדיוק בשביל מקרים כאלו פיתחתי את התוסף חיפוש רגקס בוורד ברגקס יש אפשרויות מגוונות לפתור זאת. -
@שלמה11
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].
אבל לכל אחד יש את ההעדפות האישיות שלו, לכן יהיה טוב לתת לכל אחד את האפשרות לבנות רשימה פרטית שבמקש אחד תחליף את כולם.שדרוג נוסף להצעה הנ"ל - לתת אפשרות שההחלפה הנ"ל תחליף גם את הגופן [כלומר: אפי' בגופן אריאל, יהפוך ל- אפילו בגופן דוד], כדי לתת אפשרות למעקב לדעת מה הוחלף.
@106 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].לעניות דעתי העניה כל עורך צריך לדעת איך להקליט מאקרו. הנושא פה הוא לתת מענה כללי יותר. יש בזה גם טובה גדולה לעורך שיידע איך להקליט ולהסתדר עם מקרים אחרים ומגוונים.
-
@106 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
ועוד הצעה מומלצת, קצת יותר מורכבת.
לתת אפשרות לכל אחד להכניס רשימה פרטית של החלפות אוטומטיות.
הענין הוא, שיש עורכים שבאופן קבוע עושים החלפות קבועות לכל הקבצים בפתיחת ראשי תיבות וקיצורים [לדוגמא: אפי'-אפילו, אע"פ-אף על פי, מו"ק-מועד קטן, שפ"א-שפת אמת וכו' וכו'].לעניות דעתי העניה כל עורך צריך לדעת איך להקליט מאקרו. הנושא פה הוא לתת מענה כללי יותר. יש בזה גם טובה גדולה לעורך שיידע איך להקליט ולהסתדר עם מקרים אחרים ומגוונים.
-
עשיתי מאקרו כזה - עיין כאן
הנה התיקונים שביצעתי:
רווח כפול
פסיק כפול
נקודה כפולה
מרכאות כפולות
רווח ולאחמ"כ פסיק
רווח ולאחמ"כ נקודה
רווח ולאחמ"כ מרכאותשלושה יודי"ם - מחליף ל שתיים
הוא מסמן את אותיות מנצפך (מ,ן,ץ,ף,ך) שיש רווח לפניהם, או שהם באמצע מילה - בצבע אדום.
מסמן אותיות שעומדות בפנ"ע (-כלומר עם רווח לפניהם ואחריהם) באדום.
הופך פיסקה 2 פיסקאות ריקות - לפיסקה 1
מסיר אותיות מנצפכ כפולות.
(לדוגמא: "םם" - מחליף ב "ם")הופך סוגריים הפוכים.
(לדוגמא: ")שלום(" מחליף ב"(שלום)"). [מצוי בייבוא מאנגלית לעברית (יש לבעיה זו כבר מאקרו מובנה בווינודס)]מוסיף רווח לפני ואחרי סוגריים - איפה שחסר.
(לדוגמא: "שלום(וברכה)" \ "(שלום)וברכה". מחליף ב "שלום (וברכה)" \ "(שלום) וברכה")מעביר נקודה, פסיק, וגרש למקומם הראוי, במקרה של הקלדה אחרי הרווח במקום לפני.
(לדוגמא: "שלום ,וברכה" \ "שלום .וברכה" מחליף ב"שלום, וברכה" \ "שלום. וברכה")[במקומות שאנחנו לא רוצים שהמאקרו יסמן אות בודדת באדום, לדוגמא: סי' א, חלק ב, שורש ז -
המאקרו מחזיר אותם לצבע המקורי.
במקרים דלהלהן המאקרו מחזיר לצבע המקורי: סימן, שורש, סעיף, אות, סוג, דף, חלק.]
(משום מה לא הצלחתי להגדיר שגם אם האות הצריכה תיקון נמצאת לפני מעבר פיסקה, שגם היא תתוקן ותחזור לצבעה המקורי. כשניסיתי לעשות זאת (ע"י הגדרה שכל אות אחר המילים הנ"ל תחזור לצבעה המקורי, גם אם אין אחריה ריווח), זה גרם שגם שאר האותיות = שלא אחרי המילים הנ"ל, יחזרו לצבעם המקורי. אשמח אם מישהו יוכל לפתור חידה זו, תודה).נ.ב. מי שנוהג לכתוב כך: סימן א' או שורש ח' לא נצרך לתיקון זה.
-
בעז"ה מעוניין להכניס לתוסף שולחן העורך מאקרו לתיקון שגיאות נפוצות.
מי שיכול לכתוב לי כאן את השגיאות הנפוצות שניתן לשנות באמצעות חיפוש והחלפה (שלא מופיעות ברשימה למטה) - אשמח מאוד... ובנוסף מי שיכול להגיב על השגיאות שנכתבות כאן אולי זה יכול לשבש דברים אחרים.
אין צורך (וזה גם קצת מכביד) לכתוב את כל הלוגיקה של החיפוש, אלא רק את הטעות.Sub Repair() Dim searchText(1 To 14) As String Dim replaceText(1 To 14) As String Dim msg(1 To 14) As String Dim i As Integer ' רווחים עודפים ופיסקאות ריקות searchText(1) = " {2,}": replaceText(1) = " " searchText(2) = "^13{2,}": replaceText(2) = "^13" ' רווח לפני תוי פיסוק searchText(3) = "( )([.,:\?\!])([! ])": replaceText(3) = "\2\1\3" searchText(4) = "( )([.,:\?\!])([ ])": replaceText(4) = "\2\3" ' סימני פיסוק כפולים searchText(5) = "([,:\!\?]){2,}": replaceText(5) = "\1" searchText(6) = "..": replaceText(6) = "." ' מעל 3 נקודות searchText(7) = ".{4,}": replaceText(7) = "..." ' רווח לפני סוגר סוגריים searchText(8) = "( )([\)\]])([! ])": replaceText(8) = "\2\1\3" searchText(9) = "( )([\)\]])( )": replaceText(9) = "\2\3" ' רווח אחרי פותח סוגריים searchText(10) = "([! ])([\(\[])( )": replaceText(10) = "\1\3\2" searchText(11) = "( )([\(\[])( )": replaceText(11) = "\1\2" ' רווח לפני ואחרי פיסקה searchText(12) = "^13 ": replaceText(12) = "^13" searchText(13) = " ^13": replaceText(13) = "^13" ' זוג גרשיים בודדים לגרשיים אחד searchText(14) = "''": replaceText(14) = """" For i = LBound(searchText) To UBound(searchText) Call SearchAndReplace(searchText(i), replaceText(i)) Next i End Sub Function SearchAndReplace(searchText As String, Optional replaceText As Variant = Nothing, Optional rng As Range = Nothing, Optional searchForward As Boolean = True, Optional searchMatchWildcards = True) As Range If rng Is Nothing Then Set rng = ActiveDocument.Range On Error Resume Next If IsEmpty(replaceText) Then replaceText = "False" On Error GoTo 0 With rng.Find .ClearFormatting .Replacement.ClearFormatting .text = searchText .Replacement.text = replaceText .Forward = searchForward .Wrap = wdFindStop .Format = True .MatchKashida = True .MatchWildcards = searchMatchWildcards If replaceText = "False" Then If .Execute Then Set SearchAndReplace = rng.Duplicate Else .Execute Replace:=wdReplaceAll End If End With End Functionזה הקוד בינתיים - מי שרוצה להוסיף או להעיר מוזמן.
@איש-גמזו @יאיר-דניאל @יאיר-הבהיר @pcinfogmach @לשכת-הרב וכל העוסקים בעימוד ועריכה...@שלמה11 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
נקודות מעל 3.
למה לא גם שתי נקודות ברצף?
-
@pcinfogmach @שלמה11 באופן כללי, אין אפשרות להגדיר שאחרי ההחלפה המשתמש יוכל לראות מה בדיוק הוחלף? כך יהיה אפשר לבטל את כל מה שלא צריך.
[בעבר היתה אפשרות בתיבת ההחלף לסמן את הטקסט המוחלף, לא?]@יאיר-הבהיר כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
באופן כללי, אין אפשרות להגדיר שאחרי ההחלפה המשתמש יוכל לראות מה בדיוק הוחלף? כך יהיה אפשר לבטל את כל מה שלא צריך.
תראה פה -@מניין הוא זה שעשה לי את זה ,אולי הוא יתגייס גם פה לטובת העניין
-
@106 אני אנסה...
לגבי לדעת מה הוחלף כבר העירו פה שאפשר לסמן לפני ההחלפה עקוב אחר שינויים (לשונית סקירה) ואין צורך במאקרו מיוחד@שלמה11 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
לגבי לדעת מה הוחלף כבר העירו פה שאפשר לסמן לפני ההחלפה עקוב אחר שינויים (לשונית סקירה)
אולי תוכל לאפשר אופציה כזו למי שלא מעוניין בעקוב אחרי שינויים (אני למשל, בגלל שזה שיבש לי את העריכה)
-
@שלמה11 כתב בבקשה | מאקרו תיקון שגיאות נפוצות בוורד - שולחן העורך:
לגבי לדעת מה הוחלף כבר העירו פה שאפשר לסמן לפני ההחלפה עקוב אחר שינויים (לשונית סקירה)
אולי תוכל לאפשר אופציה כזו למי שלא מעוניין בעקוב אחרי שינויים (אני למשל, בגלל שזה שיבש לי את העריכה)
@יאיר-דניאל
אפשר לעשות שכל ההחלפות יהיו צבועים או במרקר =- ואז להסיר את הצבע. -
@שלמה11 החלפת אות אחרונה של ראשי תיבות שהוקלדה באנגלית בגלל השיפט חזרה לעברית,
דוגמא: רש"H מהרש"T -
@שלמה11 החלפת אות אחרונה של ראשי תיבות שהוקלדה באנגלית בגלל השיפט חזרה לעברית,
דוגמא: רש"H מהרש"Tהאמת שבדקתי ובאמצעות "המרה של הקלדה שגויה מאנגלית לעברית" שנמצאת כבר בעיצוב תורני זה מחליף גם את זה,
אבל כאן מדובר על משהו מצומצם רק לסוף מילה ואי"צ בהחלפה של מילים שלימות,
בנוסף, ההחלפה הקיימת לא מכסה הכל, כי למשל האות "ת" כשהיא במצב אנגלית זה "," ואילו עם שיפט זה ">" כך שזה צריך התאמה ספציפית
 { 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}