עזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים
-
@רק-מה
הוא עובר בלולאה כפול כמות פסקאות
כנראה עשית יותר מ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
תקן אותי אם אני טועה@רפרם-ב-ר-פפא
שבוע טוב!
בקובץ שהעלתי לך בהתחלה.
היו שאלות בכתב לא מודגש שהוא זיהה אותם ככתורות, מה הסיבה? -
@רפרם-ב-ר-פפא שלום רב!
רק בגלל שאתה הוכחת אליפות במאקרו שיצרת אבקש ממש לשדרג לי אותו, שיהיה מוגבל לכמות תוווים מסויימים כי כעת הוא יכול להחיל סגנון גם על כמה שורות.
אולי אם נגדיר לו כמות של תויין או מילים זה יעבוד יותר טוב.
מה אתה אומר?אשמח לעזרתך
תודה -
@רפרם-ב-ר-פפא שלום רב!
רק בגלל שאתה הוכחת אליפות במאקרו שיצרת אבקש ממש לשדרג לי אותו, שיהיה מוגבל לכמות תוווים מסויימים כי כעת הוא יכול להחיל סגנון גם על כמה שורות.
אולי אם נגדיר לו כמות של תויין או מילים זה יעבוד יותר טוב.
מה אתה אומר?אשמח לעזרתך
תודה -
@רק-מה
הוא נתקע ועוצר באמצע כי יש יותר מ9 כותרות רצופות
וורד מוגבל לסדרה של 9 כותרות
ולא ניתן לעשות יותר מ9 סדרות של כותרות@רפרם-ב-ר-פפא כתב בעזרה | חיפוש שורה בודדת בוורד עם תנאים מסויים:
כנראה עשית יותר מ9 כותרות רצופות ואין לוורד הגדרה ליותר מכותרת 9
תקן אותי אם אני טועה@רפרם-ב-ר-פפא ?
אתה זמין? -
א אלישי העביר נושא זה מ-עזרה הדדית - VBA excel ב-
-
תודה רבה ל מומחה שהוציא מוצר מיוחד מתחת ידיו
@es0583292679 -
@רפרם-ב-ר-פפא ?
אתה זמין?@רק-מה
הסדרת?
אם לא תגדיר יותר את הבעיה שלך
כי במאקרו שהבאתי למעלה הוא בודק שהכותרת היא רק שורה אחת -
@רק-מה
הסדרת?
אם לא תגדיר יותר את הבעיה שלך
כי במאקרו שהבאתי למעלה הוא בודק שהכותרת היא רק שורה אחת@רפרם-ב-ר-פפא שילמתי קצת כסף וסידרו לי את הבעיה.
ואפילו קיבלתי אפשרות של כמות תווים
-
@רפרם-ב-ר-פפא שילמתי קצת כסף וסידרו לי את הבעיה.
ואפילו קיבלתי אפשרות של כמות תווים
@רק-מה
יפה
לשלם זה נחמד השאלה כמה ועל מה.
 { 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}