עזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים
-
@מאקרו אשמח למאקרו בוורד שימצא רצף של פיסקאות מודגשות בנות שורה אחת, הראשון עם סימון שיחיל עליו את סגנון כותרות 1, השני בלי סימון כותרת 2 השלישי 3 הרביעי 4.
תודה רבה
@רק-מה
להלן מאקרו כמו שבקשת אלא רק לא מתייחס לסימון בשורה 1
המאקרו עושה שורה ראשונה כותרת 1 שניה 2 וכו' ואם יש הפסק באמצא מתחיל שוב ראשונה 1 שניה 2 וכו' וכו'Sub החלת_סגנון() ActiveDocument.Paragraphs(1).Range.Select For P = 1 To ActiveDocument.Paragraphs.Count If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then I = I + 1 Selection.Style = ActiveDocument.Styles("כותרת " & I) Selection.MoveDown wdParagraph, 1 Else Selection.MoveDown wdParagraph, 1 I = 0 End If Next P End Subבהצלחה בתקווה שהועלתי
-
@רק-מה
להלן מאקרו כמו שבקשת אלא רק לא מתייחס לסימון בשורה 1
המאקרו עושה שורה ראשונה כותרת 1 שניה 2 וכו' ואם יש הפסק באמצא מתחיל שוב ראשונה 1 שניה 2 וכו' וכו'Sub החלת_סגנון() ActiveDocument.Paragraphs(1).Range.Select For P = 1 To ActiveDocument.Paragraphs.Count If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then I = I + 1 Selection.Style = ActiveDocument.Styles("כותרת " & I) Selection.MoveDown wdParagraph, 1 Else Selection.MoveDown wdParagraph, 1 I = 0 End If Next P End Subבהצלחה בתקווה שהועלתי
@רפרם-ב-ר-פפא רגע אחד!
הוא מחפש רק לא סימון?
א"כ זה יכול להועיל לי מאוד.
תודה רבה על העזרה -
@רפרם-ב-ר-פפא רגע אחד!
הוא מחפש רק לא סימון?
א"כ זה יכול להועיל לי מאוד.
תודה רבה על העזרה@רק-מה
מחפש כל מה שתואם ל טור 1 ומודגש
בהצלחה -
@רק-מה
מחפש כל מה שתואם ל טור 1 ומודגש
בהצלחה@רפרם-ב-ר-פפא אין לי מילים אנסה ואעדכן את התוצאות בס"ד
-
@רק-מה
מחפש כל מה שתואם ל טור 1 ומודגש
בהצלחה@רפרם-ב-ר-פפא בדקתי.
עושה רושם שזה מוגבל לכמות התווים.
פשוט באמצע הקובץ הוא עצר -
@רפרם-ב-ר-פפא בדקתי.
עושה רושם שזה מוגבל לכמות התווים.
פשוט באמצע הקובץ הוא עצר@רק-מה
הוא עובר בלולאה כפול כמות פסקאות
כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה -
@רק-מה
הוא עובר בלולאה כפול כמות פסקאות
כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה@רפרם-ב-ר-פפא
הוורד הולך כמה פיסקאות של שורה מודגשות ואח"כ פיסקאות של יותר משורה לא מודגש.
ומידי פעם יש רצף של פיסקאות מודגשות שהם כותרות
אנחנו צריכים למצוא רק את השורה מודגשת ולהתעלם מהפיקאות הלא מודגשות -
@רפרם-ב-ר-פפא
הוורד הולך כמה פיסקאות של שורה מודגשות ואח"כ פיסקאות של יותר משורה לא מודגש.
ומידי פעם יש רצף של פיסקאות מודגשות שהם כותרות
אנחנו צריכים למצוא רק את השורה מודגשת ולהתעלם מהפיקאות הלא מודגשות@רק-מה
המאקרו עובד שאם מתקיימים שני התנאים א. פסקה על טור אחד ב. הטקסט מודגש
אחרת אם לא מתקיימים אחד מהתנאים הנ"ל לא משנה לכותרת
אם אתה צריך משהו אחר תסביר בדיוק מה אתה רוצה -
@רק-מה
המאקרו עובד שאם מתקיימים שני התנאים א. פסקה על טור אחד ב. הטקסט מודגש
אחרת אם לא מתקיימים אחד מהתנאים הנ"ל לא משנה לכותרת
אם אתה צריך משהו אחר תסביר בדיוק מה אתה רוצה -
@רפרם-ב-ר-פפא אני אעלה לך דוגמא של קקובץ בשביל שתביןב.docx
יש שם כותרות רצופות. ואח"כ קטעים רגילים.
. צריך שהמאקרו ימצא רק שורה בודדת שכולה מודגשת [שזה בעצם הכותרות, בד"כ כותרת ראשונה עם סמן] למעט אם רק תחילת הפיסקה מודגש.תודה רבה
@רק-מה
הנהSub החלת_סגנון() Dim B, I As Double ActiveDocument.Paragraphs(1).Range.Select For P = 1 To ActiveDocument.Paragraphs.Count For B = 1 To Selection.Paragraphs.Count Selection.Paragraphs(B).Range.Select Next B If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then I = I + 1 Selection.Style = ActiveDocument.Styles("כותרת " & I) Selection.MoveDown wdParagraph, 1 Else Selection.MoveDown wdParagraph, 1 I = 0 End If Next P End Subבהצלחה!!!!!
-
@רק-מה
הנהSub החלת_סגנון() Dim B, I As Double ActiveDocument.Paragraphs(1).Range.Select For P = 1 To ActiveDocument.Paragraphs.Count For B = 1 To Selection.Paragraphs.Count Selection.Paragraphs(B).Range.Select Next B If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then I = I + 1 Selection.Style = ActiveDocument.Styles("כותרת " & I) Selection.MoveDown wdParagraph, 1 Else Selection.MoveDown wdParagraph, 1 I = 0 End If Next P End Subבהצלחה!!!!!
@רפרם-ב-ר-פפא
אין ספק שאתה אלוף!
זה כמעט הצליח.
הוא ביצע את הפעולה גם על רצף של שורות לא מודגשות, וגם הוא העיז לבצע על פיסקאות של 2 שורות לא מודגשות -
@רפרם-ב-ר-פפא
אין ספק שאתה אלוף!
זה כמעט הצליח.
הוא ביצע את הפעולה גם על רצף של שורות לא מודגשות, וגם הוא העיז לבצע על פיסקאות של 2 שורות לא מודגשות -
@רפרם-ב-ר-פפא בסיס לעלון בהר-בחוקותי תשפג - חלק א 860 - אחרי אילה.docx
העלתי לך קובץ שם בשביל שתראה מה קורה באמצע.
בנוסף לפעמים יש מדורים שמשלימים אח"כ לכן אין את החומר - תראה מה הוא עושה -
@רפרם-ב-ר-פפא בסיס לעלון בהר-בחוקותי תשפג - חלק א 860 - אחרי אילה.docx
העלתי לך קובץ שם בשביל שתראה מה קורה באמצע.
בנוסף לפעמים יש מדורים שמשלימים אח"כ לכן אין את החומר - תראה מה הוא עושה@רק-מה
הוא נתקע ועוצר באמצע כי יש יותר מ9 כותרות רצופות
וורד מוגבל לסדרה של 9 כותרות
ולא ניתן לעשות יותר מ9 סדרות של כותרות@רפרם-ב-ר-פפא כתב בעזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים:
כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה -
@רק-מה
הוא נתקע ועוצר באמצע כי יש יותר מ9 כותרות רצופות
וורד מוגבל לסדרה של 9 כותרות
ולא ניתן לעשות יותר מ9 סדרות של כותרות@רפרם-ב-ר-פפא כתב בעזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים:
כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה@רפרם-ב-ר-פפא
שבוע טוב!
בקובץ שהעלתי לך בהתחלה.
היו שאלות בכתב לא מודגש שהוא זיהה אותם ככתורות, מה הסיבה? -
@רפרם-ב-ר-פפא שלום רב!
רק בגלל שאתה הוכחת אליפות במאקרו שיצרת אבקש ממש לשדרג לי אותו, שיהיה מוגבל לכמות תוווים מסויימים כי כעת הוא יכול להחיל סגנון גם על כמה שורות.
אולי אם נגדיר לו כמות של תויין או מילים זה יעבוד יותר טוב.
מה אתה אומר?אשמח לעזרתך
תודה -
@רפרם-ב-ר-פפא שלום רב!
רק בגלל שאתה הוכחת אליפות במאקרו שיצרת אבקש ממש לשדרג לי אותו, שיהיה מוגבל לכמות תוווים מסויימים כי כעת הוא יכול להחיל סגנון גם על כמה שורות.
אולי אם נגדיר לו כמות של תויין או מילים זה יעבוד יותר טוב.
מה אתה אומר?אשמח לעזרתך
תודה
 { 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}