עזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות
-
כתבתי קוד למאקרו לתיקון שגיאות אוטומטי שמוסיף אוטומטי את כל ההטיות.
עריכה: תעברו לכאן, הקוד שודרג משמעותית על ידי @I-believe !!אני לא יודע אנגלית, ולעולם לא כתבתי קודים, כך שלכאו' ניתן לשפר את הקוד הרבה יותר.
אשמח מאוד אם תוכלו לשפר את הקוד שיהיה נח יותר ונגיש יותר, נראה לי שזה דבר מאוד נצרך.
הקוד:Sub תיקון_שגיאות_אוטומטי() Dim mila Dim tikun mila = InputBox("רשום מילה לתיקון שגיאות אוטומטי:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If mila = "רשום כאן את המילה שלך" Or mila = "" Then MsgBox ("לא נבחרה מילה") Else tikun = InputBox("רשום את המילה המתוקנת:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If tikun = "" Or tikun = "רשום כאן את המילה שלך" Then MsgBox ("לא נבחרה מילה") Else AutoCorrect.Entries.Add Name:=(mila), Value:=(tikun) AutoCorrect.Entries.Add Name:=("ש" & mila), Value:=("ש" & tikun) AutoCorrect.Entries.Add Name:=("ו" & mila), Value:=("ו" & tikun) AutoCorrect.Entries.Add Name:=("ה" & mila), Value:=("ה" & tikun) AutoCorrect.Entries.Add Name:=("שה" & mila), Value:=("שה" & tikun) AutoCorrect.Entries.Add Name:=("כשה" & mila), Value:=("כשה" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("ד" & mila), Value:=("ד" & tikun) AutoCorrect.Entries.Add Name:=("ל" & mila), Value:=("ל" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("כ" & mila), Value:=("כ" & tikun) End If End If End Subתודה רבה לכל מי שיכול לעזור!
-
כתבתי קוד למאקרו לתיקון שגיאות אוטומטי שמוסיף אוטומטי את כל ההטיות.
עריכה: תעברו לכאן, הקוד שודרג משמעותית על ידי @I-believe !!אני לא יודע אנגלית, ולעולם לא כתבתי קודים, כך שלכאו' ניתן לשפר את הקוד הרבה יותר.
אשמח מאוד אם תוכלו לשפר את הקוד שיהיה נח יותר ונגיש יותר, נראה לי שזה דבר מאוד נצרך.
הקוד:Sub תיקון_שגיאות_אוטומטי() Dim mila Dim tikun mila = InputBox("רשום מילה לתיקון שגיאות אוטומטי:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If mila = "רשום כאן את המילה שלך" Or mila = "" Then MsgBox ("לא נבחרה מילה") Else tikun = InputBox("רשום את המילה המתוקנת:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If tikun = "" Or tikun = "רשום כאן את המילה שלך" Then MsgBox ("לא נבחרה מילה") Else AutoCorrect.Entries.Add Name:=(mila), Value:=(tikun) AutoCorrect.Entries.Add Name:=("ש" & mila), Value:=("ש" & tikun) AutoCorrect.Entries.Add Name:=("ו" & mila), Value:=("ו" & tikun) AutoCorrect.Entries.Add Name:=("ה" & mila), Value:=("ה" & tikun) AutoCorrect.Entries.Add Name:=("שה" & mila), Value:=("שה" & tikun) AutoCorrect.Entries.Add Name:=("כשה" & mila), Value:=("כשה" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("ד" & mila), Value:=("ד" & tikun) AutoCorrect.Entries.Add Name:=("ל" & mila), Value:=("ל" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("כ" & mila), Value:=("כ" & tikun) End If End If End Subתודה רבה לכל מי שיכול לעזור!
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
כדאי לשים לב ששימוש נרחב מדי בגישה זו יכול לגרום לאיטיות בוורד.
-
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
כדאי לשים לב ששימוש נרחב מדי בגישה זו יכול לגרום לאיטיות בוורד.
@pcinfogmach
תוכל לעבור עליו ולשפר אותו?
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
ממש יש''כ.
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה... -
@pcinfogmach
תוכל לעבור עליו ולשפר אותו?
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
ממש יש''כ.
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה...@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
https://mitmachim.top/topic/55626/מדריך-איך-ליצור-יוזרפורם-userform-ממשק-משתמש-ב-vba
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה...
לוקח יותר זמן אולי אבל לא גורם לאיטיות במסמך.
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.גמ"ח עזרה וייעוץ בנושאי מחשבים
-
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
https://mitmachim.top/topic/55626/מדריך-איך-ליצור-יוזרפורם-userform-ממשק-משתמש-ב-vba
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה...
לוקח יותר זמן אולי אבל לא גורם לאיטיות במסמך.
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.@pcinfogmach
תודה.
רשמת שם במדריך שהוא מיועד למי שכבר מכיר VBA, לא נראה לי שאני ממש מאלה אבל אני ינסה.
ממש יש''כ. -
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
https://mitmachim.top/topic/55626/מדריך-איך-ליצור-יוזרפורם-userform-ממשק-משתמש-ב-vba
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה...
לוקח יותר זמן אולי אבל לא גורם לאיטיות במסמך.
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.@pcinfogmach
לא הבנתי מה זה המילון התורני.
התקנתי אותו ולא השתנה כלום בוורד.
זה מוסיף בתיקון שגיאות אוטומטי את כל ההטיות? -
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
יש אפשרות שיפתח חלון שבו יבחרו איזה הטיות לתקן ואיזה לא?
https://mitmachim.top/topic/55626/מדריך-איך-ליצור-יוזרפורם-userform-ממשק-משתמש-ב-vba
בנוגע לאיטיות - יותר איטי לתקן טעויות הקלדה...
לוקח יותר זמן אולי אבל לא גורם לאיטיות במסמך.
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.@pcinfogmach כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.
זה לא קשור.
הוא דיבר על תיקון אוטומטי של שגיאות, והמילון התורני מיועד למילון המובנה של וורד שלא יציג את המילה כשגיאה אם היא תקנית בשפה תורנית.
עריכה:
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:@pcinfogmach
לא הבנתי מה זה המילון התורני.
התקנתי אותו ולא השתנה כלום בוורד.
זה מוסיף בתיקון שגיאות אוטומטי את כל ההטיות?זה התשובה לשאלה שלך
-
@pcinfogmach כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
אדב ישנו פרוייקט בשם המילון התורני שכבר עשה את רוב העבודה.
זה לא קשור.
הוא דיבר על תיקון אוטומטי של שגיאות, והמילון התורני מיועד למילון המובנה של וורד שלא יציג את המילה כשגיאה אם היא תקנית בשפה תורנית.
עריכה:
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:@pcinfogmach
לא הבנתי מה זה המילון התורני.
התקנתי אותו ולא השתנה כלום בוורד.
זה מוסיף בתיקון שגיאות אוטומטי את כל ההטיות?זה התשובה לשאלה שלך
@ע-ה-דכו-ע
צודק!
אם כי ברגע שהוא נמצא במילון זה די פשוט לעבור על כל השגיאות במסמך, לא באמת צריך את תיקון שגיאות אוטומטי לזה.גמ"ח עזרה וייעוץ בנושאי מחשבים
-
@ע-ה-דכו-ע
צודק!
אם כי ברגע שהוא נמצא במילון זה די פשוט לעבור על כל השגיאות במסמך, לא באמת צריך את תיקון שגיאות אוטומטי לזה.@pcinfogmach כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
@ע-ה-דכו-ע
צודק!
אם כי ברגע שהוא נמצא במילון זה די פשוט לעבור על כל השגיאות במסמך, לא באמת צריך את תיקון שגיאות אוטומטי לזה.תיקון שגיאות אוטומטי נועד לתוך כדי הקלדה, במקום לשלוח את האצבע מידי הרבה פעמים למקש המחיקה, מעבר אח"כ על השגיאות זה משהו אחר לגמרי.
-
כתבתי קוד למאקרו לתיקון שגיאות אוטומטי שמוסיף אוטומטי את כל ההטיות.
עריכה: תעברו לכאן, הקוד שודרג משמעותית על ידי @I-believe !!אני לא יודע אנגלית, ולעולם לא כתבתי קודים, כך שלכאו' ניתן לשפר את הקוד הרבה יותר.
אשמח מאוד אם תוכלו לשפר את הקוד שיהיה נח יותר ונגיש יותר, נראה לי שזה דבר מאוד נצרך.
הקוד:Sub תיקון_שגיאות_אוטומטי() Dim mila Dim tikun mila = InputBox("רשום מילה לתיקון שגיאות אוטומטי:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If mila = "רשום כאן את המילה שלך" Or mila = "" Then MsgBox ("לא נבחרה מילה") Else tikun = InputBox("רשום את המילה המתוקנת:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If tikun = "" Or tikun = "רשום כאן את המילה שלך" Then MsgBox ("לא נבחרה מילה") Else AutoCorrect.Entries.Add Name:=(mila), Value:=(tikun) AutoCorrect.Entries.Add Name:=("ש" & mila), Value:=("ש" & tikun) AutoCorrect.Entries.Add Name:=("ו" & mila), Value:=("ו" & tikun) AutoCorrect.Entries.Add Name:=("ה" & mila), Value:=("ה" & tikun) AutoCorrect.Entries.Add Name:=("שה" & mila), Value:=("שה" & tikun) AutoCorrect.Entries.Add Name:=("כשה" & mila), Value:=("כשה" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("ד" & mila), Value:=("ד" & tikun) AutoCorrect.Entries.Add Name:=("ל" & mila), Value:=("ל" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("כ" & mila), Value:=("כ" & tikun) End If End If End Subתודה רבה לכל מי שיכול לעזור!
@מענין-לשמוע כתב בעזרה | מאקרו לתיקון שגיאות אוטומטי עם הטיות:
כתבתי קוד למאקרו לתיקון שגיאות אוטומטי שמוסיף אוטומטי את כל ההטיות.
אשמח להסבר, מה המאקרו עושה?
-
I I believe התייחס לנושא זה
-
כתבתי קוד למאקרו לתיקון שגיאות אוטומטי שמוסיף אוטומטי את כל ההטיות.
עריכה: תעברו לכאן, הקוד שודרג משמעותית על ידי @I-believe !!אני לא יודע אנגלית, ולעולם לא כתבתי קודים, כך שלכאו' ניתן לשפר את הקוד הרבה יותר.
אשמח מאוד אם תוכלו לשפר את הקוד שיהיה נח יותר ונגיש יותר, נראה לי שזה דבר מאוד נצרך.
הקוד:Sub תיקון_שגיאות_אוטומטי() Dim mila Dim tikun mila = InputBox("רשום מילה לתיקון שגיאות אוטומטי:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If mila = "רשום כאן את המילה שלך" Or mila = "" Then MsgBox ("לא נבחרה מילה") Else tikun = InputBox("רשום את המילה המתוקנת:", "תיקון שגיאות מתקדם", "רשום כאן את המילה שלך") If tikun = "" Or tikun = "רשום כאן את המילה שלך" Then MsgBox ("לא נבחרה מילה") Else AutoCorrect.Entries.Add Name:=(mila), Value:=(tikun) AutoCorrect.Entries.Add Name:=("ש" & mila), Value:=("ש" & tikun) AutoCorrect.Entries.Add Name:=("ו" & mila), Value:=("ו" & tikun) AutoCorrect.Entries.Add Name:=("ה" & mila), Value:=("ה" & tikun) AutoCorrect.Entries.Add Name:=("שה" & mila), Value:=("שה" & tikun) AutoCorrect.Entries.Add Name:=("כשה" & mila), Value:=("כשה" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("ד" & mila), Value:=("ד" & tikun) AutoCorrect.Entries.Add Name:=("ל" & mila), Value:=("ל" & tikun) AutoCorrect.Entries.Add Name:=("מ" & mila), Value:=("מ" & tikun) AutoCorrect.Entries.Add Name:=("כ" & mila), Value:=("כ" & tikun) End If End If End Subתודה רבה לכל מי שיכול לעזור!
@מענין-לשמוע @יאיר-דניאל
בקישור הזה שיפרתי את הקוד, הוספתי קוד משלים, וערכתי הדרכה מפורטת.
 { 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}