עזרה | פתרונות בוורד
-
@dmp לי יש מאקרו מוכן וכנ"ל אבל עובד רק על מילים בלי מרכאות וכדו':
Sub להוספה_לפני_ואחרי_האות_הראשונה() ' ' נערך ע"י מגדלים ' If Selection.Start = Selection.End Then Exit Sub Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "<[א-ת]" .Replacement.Text = "לפני האות^&לאחרי האות" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Subזה עדיין בלי לסדר על המרכאות , ונחכה שמישהו יתרום ידע איך לסדר שיחול גם על מרכאות וכדו'.
עריכה: "תיקנתי "@מגדלים תחליף את השורה הבאה:
.Wrap = wdFindAskלקוד זה:
.Wrap = wdFindStopשים לב שאם לא נבחר שום טקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך), ולכן צריך להוסיף את השורה הבאה בתחילת הקוד
If Selection.Start = Selection.End Then Exit Subוכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
-
@מגדלים תחליף את השורה הבאה:
.Wrap = wdFindAskלקוד זה:
.Wrap = wdFindStopשים לב שאם לא נבחר שום טקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך), ולכן צריך להוסיף את השורה הבאה בתחילת הקוד
If Selection.Start = Selection.End Then Exit Subוכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
-
@מגדלים תחליף את השורה הבאה:
.Wrap = wdFindAskלקוד זה:
.Wrap = wdFindStopשים לב שאם לא נבחר שום טקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך), ולכן צריך להוסיף את השורה הבאה בתחילת הקוד
If Selection.Start = Selection.End Then Exit Subוכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
@dmp אמר בעזרה | פתרונות בוורד:
שים לב שאם לא נבחר שום שקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך),
אכן וידעתי מזה ולא היה לי פתרון לזה, ולגבי זה רציתי להוסיף שאילת פתיחה ששואלת אם בחרתי במסמך כלשהוא,
ומה הקוד הנ"ל בעצם עושה? -
@מלאכת-מחשבת תוסיף בשורה 5 בקוד הנ"ל ותמחוק את הגרש שבהתחלה.
הקוד אומר שאם לא נבחר טקסט תתבצע יציאה מהשגרה.
יעיל לכל פקודה שהיא. -
@מלאכת-מחשבת תוסיף בשורה 5 בקוד הנ"ל ותמחוק את הגרש שבהתחלה.
הקוד אומר שאם לא נבחר טקסט תתבצע יציאה מהשגרה.
יעיל לכל פקודה שהיא.@dmp מה זה "יציאה מהשיגרה"?
והשאילה אם יעיל לכל מקרו זה גם לגבי שאר הקודים שהבאת. -
@dmp מה זה "יציאה מהשיגרה"?
והשאילה אם יעיל לכל מקרו זה גם לגבי שאר הקודים שהבאת.@מלאכת-מחשבת יציא מהמאקרו.
כן, בכל פקודה של החלפה. -
@מלאכת-מחשבת אמר בעזרה | פתרונות בוורד:
תודה רבה!!!
עושה אחלה של עבודה!!!זה מה שחיפשתי.
גם אני מצטרף!
ומחכים לשמוע תגובות על הנ"ל... -
שלום אני באמצע לערוך כל מיני ספרים וכו' בוורד, (כן כבר קראתי את הכל ושלא כדי לעמד בוורד וכו' אבל לצורך זה שאני עוסק בה הדבר היחיד שיעזור לי זה וורד!)
ואני צריך עזרה בכמה דברים. [לענין המשלימים למיניהם , חלק כבר ניסיתי וחלק עדיין אני רוצה להסתדר בעצמי...].-
באם יש למישהו מאקרו לחפש החלף במצב שאני צריך להחליף בתדירות בהרבה טקסטים כמה מילים מסוימים למילים אחרות דהיינו שאוכל בתוך פקודה אחת להכניס ולבצע כמה החלפות בו זמנית (לא להציע לי החלף הפשוטה של וורד...) דהיינו אני משתמש עם "מאקרו" ואני רוצה לדעת איך ואיזה מילה להכפיל , וכן איך להגדיר כמות של מילים לחיפוש להחלפה במילה אחת?
-
באם יש דרך שאוכל להוסיף מילים מסוימים או קידודים לפני ואחרי מילה ע"י בחירה במילה מסוימת ובחירת הפקודה. (-אסביר את עצמי אני רוצה להוסיף למשל לפני ואחרי מילים מסוימים שאבחר, איזשהו קידוד *** למשל וכדו' וע"י שאני בוחר באמצעות העכבר במילים מסוימים נוצר מה שבחרתי לפני ואחרי אותו המילה שבחרתי...)
-
כנ"ל רק דבמילים שאני בוחר יווצרו הקידוד שאבחר רק באות ראשונה של כל מילה שאני בוחר דהיינו בחרתי באמצעות העכבר כמה מילים אז בכל אלו המילים (גם במילה אחת) האות הראשונה מקבלת את הכיתוב שהכנתי לה, לפני האות ולאחריה, ושאר המילה ממשיכה כהרגלה...
תודה רבה.
חפש תוסף בשם משלים לוורד
מערכת עימוד תורני שאברך בנה
יתכן שפעם אחרונה ראיתי לפני עשורכאן
https://mitmachim.top/topic/6120/תוספת-עיצוב-ספרי-קודש-לוורד -
-
@dmp @מלאכת-מחשבת למען הסדר הטוב הנושא פוצל , וחלק מהדיונים הועברו ל"איך להוסיף שאילה בפקודה בוורד, ועוד."
בואו ונמשיך ביחד שם כדי למנוע שרשורים... -
@מגדלים תחליף את השורה הבאה:
.Wrap = wdFindAskלקוד זה:
.Wrap = wdFindStopשים לב שאם לא נבחר שום טקסט הפקודה כן תחול על כל המסמך (מנקודה זו ואילך), ולכן צריך להוסיף את השורה הבאה בתחילת הקוד
If Selection.Start = Selection.End Then Exit Subוכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
@dmp אמר בעזרה | פתרונות בוורד:
וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
כעת חשבתי שהפתרון לזה הוא פשוט, צריך לחפש את הנ"ל עם רווח לפני המילה ואז החיפוש לא מתייחס לר"ת באמצע מילה.
ככה:.Text = " <[א-ת]"וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:
.Replacement.Text = " $^&$"תעדכנו עם עבד...
לגבי תחילת פיסקה צריך לחפש
.Text = "^13<[א-ת]" -
@dmp אמר בעזרה | פתרונות בוורד:
וכבר כתבתי לעיל שבהחלפה זו מסתבכים עם מילים בר"ת...
כעת חשבתי שהפתרון לזה הוא פשוט, צריך לחפש את הנ"ל עם רווח לפני המילה ואז החיפוש לא מתייחס לר"ת באמצע מילה.
ככה:.Text = " <[א-ת]"וכן בהחלף ב: להוסיף רווח לפני הקידוד הראשון, לדוגמא:
.Replacement.Text = " $^&$"תעדכנו עם עבד...
לגבי תחילת פיסקה צריך לחפש
.Text = "^13<[א-ת]" -
@dmp חשבתי מיד בהתחלה כך אבל אני צריך את שתיהם בכל חיפוש דהיינו גם של תחילת שורה וגם של המשך ואז בפעם אחד לא הצלחתי להגדיר שתיהם...
@מגדלים זה לכאורה הקוד המלא והנכון
Sub קידוד_בתחילת_מילה() 'חיפוש רווח ותחילת מילה Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " (<[א-ת])" .Replacement.Text = " $\1$" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'חיפוש סוף פיסקה ותחילת מילה Selection.Find.Text = "^13(<[א-ת])" Selection.Find.Replacement.Text = "^13$\1$" Selection.Find.Execute Replace:=wdReplaceAll End Sub -
@מגדלים זה לכאורה הקוד המלא והנכון
Sub קידוד_בתחילת_מילה() 'חיפוש רווח ותחילת מילה Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " (<[א-ת])" .Replacement.Text = " $\1$" .Forward = True .Wrap = wdFindStop .Format = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll 'חיפוש סוף פיסקה ותחילת מילה Selection.Find.Text = "^13(<[א-ת])" Selection.Find.Replacement.Text = "^13$\1$" Selection.Find.Execute Replace:=wdReplaceAll End Sub -
@dmp ואיפה מכניסים את המילים לפני ואחרי שבהם אני רוצה להוסיף?
כמו הפקודה שהבאתי למעלה עם מילים לפני ואחרי.. -
@dmp הוא לא עובד בתחילת פיסקה רק אם התחלתי כבר מסוף הפיסקה הקודמת... צריך משהו שיחליף גם בתחילת שורה / פיסקה גם מבלי לבחור בסוף הפיסקה הקודמת.
@מגדלים הצלחתי!!!
Dim MyRange As Range Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.Start) If MyRange.Text = Chr(13) Or MyRange.Text = " " Then Set MyRange = ActiveDocument.Range(Selection.Start - 1, Selection.End) MyRange.Select End Ifלהוסיף ממש בהתחלה (בשורה 2)
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - וורד ב-
 { 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}