איך להוסיף שאילה בפקודה בוורד ,ועוד.
-
@מלאכת-מחשבת ואם כבר איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
@מלאכת-מחשבת ואם כבר איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?תצוגה > פקודות מאקרו (או Alt+F8)
שם מופיעים כל המקרואים -
פוצל מ"עזרה | פתרונות לוורד"
@מגדלים אמר בעזרה | פתרונות בוורד:
להוסיף שאילת פתיחה
איך אני עושה כזה דבר ?
והאם יש מצב שיבצע איזשהוא פקודה ואז הוא ישאל אותי אם לעשות עוד מהפקודה ואם לא יעשה רק מה שעד השאילה?
והאם יש מצב שאם התשובה היא לא הוא ימשיך על חלק מסוים מההמשך חוץ מקטע זו שציינתי?
@dmp@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
האם יש מצב שיבצע איזשהוא פקודה ואז הוא ישאל אותי אם לעשות עוד מהפקודה ואם לא יעשה רק מה שעד השאילה?
והאם יש מצב שאם התשובה היא לא הוא ימשיך על חלק מסוים מההמשך חוץ מקטע זו שציינתי?כמובן ששייך וזה על ידי פונקציית msgbox, אולי פעם אחרת אוכל להרחיב בנושא.
-
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
@מלאכת-מחשבת ואם כבר איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?תצוגה > פקודות מאקרו (או Alt+F8)
שם מופיעים כל המקרואים@dmp הוא כמובן לא התכוון לזה.. הוא התכוון למיטב הבנתי שבתוך התצוגה בווארד לאחר שכבר בחר תמונה וקטוגריה באמצעות קובץ>אפשרויות>התאמה אישית של סרגל כלים>בפקודות מאקרו ושם הוסיף כבר את המקרו... (בכונה הסברתי במצב שמלאכת מחשבת לא יודע שיראה את זה וכן לכל צופה אחר) ואז הוא רוצה בעצם גם אני רוצה שבלחיצה עליו יפתח מתחתיו כמה אופציות והוא יוכל לבחור איזה שרוצה כמו שיש בבחירת גופן ומשהו כזה בווארד.... וששם יהיו כתובים הפקודות האחרים.
-
@dmp הוא כמובן לא התכוון לזה.. הוא התכוון למיטב הבנתי שבתוך התצוגה בווארד לאחר שכבר בחר תמונה וקטוגריה באמצעות קובץ>אפשרויות>התאמה אישית של סרגל כלים>בפקודות מאקרו ושם הוסיף כבר את המקרו... (בכונה הסברתי במצב שמלאכת מחשבת לא יודע שיראה את זה וכן לכל צופה אחר) ואז הוא רוצה בעצם גם אני רוצה שבלחיצה עליו יפתח מתחתיו כמה אופציות והוא יוכל לבחור איזה שרוצה כמו שיש בבחירת גופן ומשהו כזה בווארד.... וששם יהיו כתובים הפקודות האחרים.
-
@dmp הוא כמובן לא התכוון לזה.. הוא התכוון למיטב הבנתי שבתוך התצוגה בווארד לאחר שכבר בחר תמונה וקטוגריה באמצעות קובץ>אפשרויות>התאמה אישית של סרגל כלים>בפקודות מאקרו ושם הוסיף כבר את המקרו... (בכונה הסברתי במצב שמלאכת מחשבת לא יודע שיראה את זה וכן לכל צופה אחר) ואז הוא רוצה בעצם גם אני רוצה שבלחיצה עליו יפתח מתחתיו כמה אופציות והוא יוכל לבחור איזה שרוצה כמו שיש בבחירת גופן ומשהו כזה בווארד.... וששם יהיו כתובים הפקודות האחרים.
@מגדלים "ברוך שכיוונתי/תָ"
@מגדלים אמר בעזרה | פתרונות בוורד:
הוא התכוון למיטב הבנתי
הבנתך מוטבת ביותר
!!! -
@dmp אמר בעזרה | פתרונות בוורד:
@מגדלים מה ההבדל??
של מה ?
לשאר מאקרוים ?שכך חוסך הרבה מקום וכן שתחת הגדרה מסוימת יהיו כמה אופציות, ודו'ק. -
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
האם יש מצב שיבצע איזשהוא פקודה ואז הוא ישאל אותי אם לעשות עוד מהפקודה ואם לא יעשה רק מה שעד השאילה?
והאם יש מצב שאם התשובה היא לא הוא ימשיך על חלק מסוים מההמשך חוץ מקטע זו שציינתי?כמובן ששייך וזה על ידי פונקציית msgbox, אולי פעם אחרת אוכל להרחיב בנושא.
@dmp אמר בעזרה | פתרונות בוורד:
כמובן ששייך וזה על ידי פונקציית msgbox
אולי תביא כמה דוגמאות ונוכל להפיק לקחים מזה?...
-
@dmp אמר בעזרה | פתרונות בוורד:
כמובן ששייך וזה על ידי פונקציית msgbox
אולי תביא כמה דוגמאות ונוכל להפיק לקחים מזה?...
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
אולי תביא כמה דוגמאות ונוכל להפיק לקחים מזה?...
הנה
Sub úéáú_äåãòä_åãéìåâ_ìîé÷åí_á÷åã() 1 a = MsgBox("האם ברצונך לחזור על הפעולה?", vbQuestion + vbYesNo, "מתמחים טופ:-)") If a = vbYes Then GoTo 1 End Sub -
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
אולי תביא כמה דוגמאות ונוכל להפיק לקחים מזה?...
הנה
Sub úéáú_äåãòä_åãéìåâ_ìîé÷åí_á÷åã() 1 a = MsgBox("האם ברצונך לחזור על הפעולה?", vbQuestion + vbYesNo, "מתמחים טופ:-)") If a = vbYes Then GoTo 1 End Sub@dmp מה זה יעשה?
ואיפה להכניס?
זה דוגמא של נשלפים? במובן כמו התמונה למטה , או רעיון להכנסת שאילות .וא"כ איפה אני אמור להכניס.
בתודה רבה...
-
@מלאכת-מחשבת ואם כבר איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים, אבל זה מסבך קצת את העבודה עם הוורד, וגם אפשר בקלות ליצור כרטיסיה מותאמת אישית בוורד שתכיל את הפקודות שאתם אוהבים.
-
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים, אבל זה מסבך קצת את העבודה עם הוורד, וגם אפשר בקלות ליצור כרטיסיה מותאמת אישית בוורד שתכיל את הפקודות שאתם אוהבים.
@dmp איך?
הוספתי משהו לפוסט הקודם .
דהיינו איפה להכניס את הקוד הנ"ל? -
@dmp מה זה יעשה?
ואיפה להכניס?
זה דוגמא של נשלפים? במובן כמו התמונה למטה , או רעיון להכנסת שאילות .וא"כ איפה אני אמור להכניס.
בתודה רבה... -
-
@dmp מה זה עוזר לי לגבי מאקרוים אחרים שיש לי?
-
@dmp ביצוע טובה!!!
אסביר איך להשתמש בזה את המס' 1 להכניס לפני הפקודה שברצונך לבצע, ואז הוא שואל אותך אם להמשיך עם הפקודה במידה והתשובה כן הוא שולח אותך למס' 1 שזה בעצם הפקודה הנ"ל.אבל במקרו שכתבתי את הפקודה הנ"ל שהבאתם לי שזה בעצם רק כשאני בוחר במילים-
If Selection.Start = Selection.End Then Exit Subהוא לא יתן לי להמשיך עם הפעולה, וגם בלאו הכי כשאני רוצה לחבר שתי מאקרוים זה לא יעבוד לי מאחר שהוא כבר הלך ממה שבחרתי עם העכבר (גם בלי הפקודה הנ"ל, דהיינו צריך פיתרון לזה שכאילו יחזור המצב לקדמותו לגבי הבחירה עם העכבר. ואין לי מושג איך.
וכן איך נוכל לעשות כשיש לי מאקרו עם הרבה שאילות אופציה שבתשובה לא הוא ידלג לפקודה הבאה למשל שאילה, עניתי "כן" הוא מביא אותי ל 1 = שזה בעצם הפקודה, עניתי "לא" מעביר אותי ל 2 = שזה בעצם שאילה הבאה, בשאילה הבאה אני עונה "כן" מעביר אותי ל 3= פקודה שניה , "לא" מעביר אותי ל 4= שאיחה הבאה וכו' עד גמר הפקודות?
וכן איך אוכל באמצעות שאילה כזאת להקפיץ אותו למאקרו אחרת?
אשמח לשיתוף פעולה ותודה על עזרתכם. -
@dmp למעשה מאחר שהפקודה מסתיימת במילים אלו "End Sub" אז על פקודה שכתובה לאחר השאילה , גם אם התשובה "לא" הוא יבצע וזה רק על פקודה שכבר בוצע ואני רוצה לבצע עוד פעם שאין בעצם הרבה מיקרים כאלו צריך לעשות מצב שאוכל לבחור בלא וזה יצא לגמרי על אף שיש עוד פקודות לאחריו.
וכן כנ"ל שכתב @מלאכת-מחשבת להוסיף פונקציה שידלג על פקודה וימשיך רק עם תגובה לאחריו, מצד שני צריך גם אופציה שיצא לגמרי דהיינו במצב כזה יהיה שלוש כפתורים כן /לא/ צא וכדו' מקוה שהובנתי...
ותודה על ההיענות למעני!!! -
@dmp יש את הרעיון של זה :
שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...' שאלת פתיחה If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute ' הודעת סיום MsgBox "!הפקודה הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight Selection.Find.Execute Replace:=wdReplaceAll Else End If End Subאשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.
-
@dmp יש את הרעיון של זה :
שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...' שאלת פתיחה If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute ' הודעת סיום MsgBox "!הפקודה הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight Selection.Find.Execute Replace:=wdReplaceAll Else End If End Subאשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.
-
@dmp יש את הרעיון של זה :
שמשהו אפשר להוציא משם ולסדרו לעניננו, אשמח אם תוכל (אתה או כל מישהו אחר...) להסביר איך להשתמש אם זה בכל מאקרו שהיא, מה ואיפה להוסיף וכדו'...' שאלת פתיחה If MsgBox("?האם לתקן שגיאות במסמך זה", vbYesNo) = vbYes Then Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute ' הודעת סיום MsgBox "!הפקודה הסתיימה" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "" & Chr(13) & "מתמחים טופ" & Chr(13) & "", vbMsgBoxRight Selection.Find.Execute Replace:=wdReplaceAll Else End If End Subאשמח אם מישהו יגשר ויכשיר אותה לעניננו ויסביר איך להכניס את השאילות בשאר פקודות וכו'.
-
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
איך אוכל במאקרו לעשות בוורד שכאני לוחץ עליו נפתח כזה מגירה (לא יודע איך להגדיר
), ושם מביא לי כמה מאקרוים ואני בוחר איזה אני רוצה?אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים, אבל זה מסבך קצת את העבודה עם הוורד, וגם אפשר בקלות ליצור כרטיסיה מותאמת אישית בוורד שתכיל את הפקודות שאתם אוהבים.
@dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:
אפשר ליצור טופס (כמו תיבת דו שיח של וורד) ולהוסיף לו לחצנים שיבצעו את המקרואים הרצויים,
איך???
בדיוק זה מה שאני מחפש.@dmp אמר באיך להוסיף שאילה בפקודה בוורד ,ועוד.:
אם תוכל עכ"ז לעזור לי יהיה לי לתועלת , בינתיים (אולי לאחר שתעזור לי תרוויח שכבר אסתדר בעצמי. אולי?) אני לא מבין מה כתוב שמה..
תודה!
 { 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}