בקשה | הוספת שורות אחרי סימן שאלה
-
יש לי דפי עבודה שעשיתי בהם מספור אוטומטי ואני רוצה שאחרי כל סימן שאלה לעשות שתי שורות לכתוב בהם תשובות
שאלתי אם משהוא יוכל ליצור איזה מאקרו נורמאלי שיחפש סימני שאלה ואחריהם ירד שורה ללא המשכת המספור ויצור 2 שורות למילוי הכתב רק שהשורות יהיו באופן
כזה ___________
ולא כזה -----
תודה רבה@u88 כתב בבקשה | הוספת שורות אחרי סימן שאלה:
ללא המשכת המספור
אחרי שתעשה את החיפוש והחלפה כמו שכתב @חובבן-מקצועי , תוכל לעשות חיפוש והחלפה נוסף של העיצוב של כל השורות שמכילות "___" בעיצוב ללא מיספור.
-
@u88 כתב בבקשה | הוספת שורות אחרי סימן שאלה:
ללא המשכת המספור
אחרי שתעשה את החיפוש והחלפה כמו שכתב @חובבן-מקצועי , תוכל לעשות חיפוש והחלפה נוסף של העיצוב של כל השורות שמכילות "___" בעיצוב ללא מיספור.
-
@ע-ה-דכו-ע
החיפוש והחלפה לא מסיר את המספור אוטומטי@pcinfogmach כתב בבקשה | הוספת שורות אחרי סימן שאלה:
@ע-ה-דכו-ע
החיפוש והחלפה לא מסיר את המספור אוטומטיהתכוונתי שיחליף לסגנון בלי מספור, לי זה עבד.
-
יש לי דפי עבודה שעשיתי בהם מספור אוטומטי ואני רוצה שאחרי כל סימן שאלה לעשות שתי שורות לכתוב בהם תשובות
שאלתי אם משהוא יוכל ליצור איזה מאקרו נורמאלי שיחפש סימני שאלה ואחריהם ירד שורה ללא המשכת המספור ויצור 2 שורות למילוי הכתב רק שהשורות יהיו באופן
כזה ___________
ולא כזה -----
תודה רבהרק הערת אגב כללית: אתה בטוח שעדיף לעשות את השורות האלו עם המון תווים כאלו _ _ _ _ ולא עם טאב אחד [בסגנון טאב קו תחתון כמובן] שמגיע עד סוף השורה??
-
יש לי דפי עבודה שעשיתי בהם מספור אוטומטי ואני רוצה שאחרי כל סימן שאלה לעשות שתי שורות לכתוב בהם תשובות
שאלתי אם משהוא יוכל ליצור איזה מאקרו נורמאלי שיחפש סימני שאלה ואחריהם ירד שורה ללא המשכת המספור ויצור 2 שורות למילוי הכתב רק שהשורות יהיו באופן
כזה ___________
ולא כזה -----
תודה רבה -
@u88
זה הפקודה שאתה צריך על השורה החדשה כדי לבטל את המספורRange.ListFormat.RemoveNumbersתנסה עם בינה מלאכותית לייצר משהו כרגע אין לי זמן איתכם הסליחה
התחלתי לעשות משהו על זה אבל פרח לי הזמן הנה משהו בשלבי התחלה
Sub AddAnswerLinesAfterQuestionMark() Dim Rng As Range Set Rng = ActiveDocument.Content With Rng.Find .Text = "?" Do While .Execute ' äææú äñîï ìñåó ñéîï äùàìä Rng.Collapse Direction:=wdCollapseEnd ' äëðñú ùåøä çãùä Rng.InsertParagraphAfter ' áéèåì äîñôåø äàåèåîèé ìùåøä äçãùä Rng.Next.ListFormat.RemoveNumbers ' äåñôú ùúé ùåøåú ìîòðä Set tbl = ActiveDocument.Tables.Add(Rng, 2, 1) With tbl .Borders.Enable = False need to llop over each row and add line .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle End With Rng.SetRange tbl.Range.End, tbl.Range.End ' äîùê äçéôåù îäîé÷åí äðåëçé Rng.Collapse Direction:=wdCollapseEnd Loop End With End Sub@pcinfogmach במאקרו אני לא יודע איך כותבים
ועם הבינה אכלתי קש!!!!
אם משהוא ידע לעשות מאקרו כמוך או כמו @שלמה11 @menajemmendel או מקצוענים אחרים אשמח מאוד -
@pcinfogmach במאקרו אני לא יודע איך כותבים
ועם הבינה אכלתי קש!!!!
אם משהוא ידע לעשות מאקרו כמוך או כמו @שלמה11 @menajemmendel או מקצוענים אחרים אשמח מאוד -
@u88 אין צורך במאקרו.
תבצע את הפעולות הבאות:- החלפה של "?" ב: "?^l^t^l^t"
- תוסיף טאב יישור לשמאל - עם עיצוב של קו תחתון.
- סיימנו את העבודה!!!
-
@שלמה11 קצת עברית לאנשים פשוטים
אני צריך 2 שורות זה יעזור ?@שלמה11 כתב בבקשה | הוספת שורות אחרי סימן שאלה:
תוסיף טאב יישור לשמאל - עם עיצוב של קו תחתון.
לא הבנתי מה כוונת המשורר
-
@u88 תפתח בלשונית בית>פיסקה>החץ הקטן למטה>יש למטה כפתור טאבים>תקבע טאב בסוף השורה עם מסלול מספר 4
-
@u88 אתה יכול לקבוע את הטאב קודם בסוף השורה באופן ידני ואחרי זה לשנות אותו כמו שהראתי למעלה (או שלפחות ככה תדע כמה לכתוב)
-
@u88 אפשר להוסיף על הסרגל מעל הדף טאבים, בצד ימין יש ריבוע קטן שבו ניתן להחליף בין סוגי הטאבים השונים, תלחץ עליו עד שתגיע לסוג המתאים ולאחמ"כ תוסיף בסוף השולים את הטאב כמו בתמונה:
אחרי זה תשנה כמו שכתבתי לעיל -
@u88 אין צורך במאקרו.
תבצע את הפעולות הבאות:- החלפה של "?" ב: "?^l^t^l^t"
- תוסיף טאב יישור לשמאל - עם עיצוב של קו תחתון.
- סיימנו את העבודה!!!
-
@שלמה11
וואלה שנים שאני עושה שורות למבחן עם טבלה עד שהגעת והצעת פתרון כה פשוט וטוב - יישר כח!@pcinfogmach מה שנכון נכון
 { 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}