עזרה | החלפת סוגריים בוורד
-
@dmp תודה על העזרה!
ואדרבה תתחיל עם המילים הנ"ל וסך הכל אני אוסיף לאחמ"כ במאקרו, קודם שיהיה איזשהו צורה למאקרו הנ"ל אין לי בינתיים אפי' כיוון איך , לאחר שיהיה כיוון אני כבר אסדר את המילים הנדרשות.
זה מה שאני בעצם צריך...@מלאכת-מחשבת תנסה את זה
ArrayString = Array("בראשית", "שמות") For Each s In ArrayString Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\((" & s & ")(*)\)" .Replacement.Text = "{\1\2}" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchDiacritics = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Nextהקוד מבוסס על ההחלפה שהבאת לעיל, אפשר להוסיף רשימת מילים בשורה 1 (כמובן שאת כל הקוד הזה צריך להכניס לתוך פקודת מאקרו.)
בהצלחה!!!
-
@מלאכת-מחשבת תנסה את זה
ArrayString = Array("בראשית", "שמות") For Each s In ArrayString Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\((" & s & ")(*)\)" .Replacement.Text = "{\1\2}" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchDiacritics = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Nextהקוד מבוסס על ההחלפה שהבאת לעיל, אפשר להוסיף רשימת מילים בשורה 1 (כמובן שאת כל הקוד הזה צריך להכניס לתוך פקודת מאקרו.)
בהצלחה!!!@dmp עובד!
מעולה!!!
אם תוכל גם לפנות ל"איך להוסיף שאילה בפקודה בוורד, ועוד." -
@מלאכת-מחשבת תנסה את זה
ArrayString = Array("בראשית", "שמות") For Each s In ArrayString Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\((" & s & ")(*)\)" .Replacement.Text = "{\1\2}" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchDiacritics = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Nextהקוד מבוסס על ההחלפה שהבאת לעיל, אפשר להוסיף רשימת מילים בשורה 1 (כמובן שאת כל הקוד הזה צריך להכניס לתוך פקודת מאקרו.)
בהצלחה!!! -
@מלאכת-מחשבת תנסה את זה
ArrayString = Array("בראשית", "שמות") For Each s In ArrayString Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\((" & s & ")(*)\)" .Replacement.Text = "{\1\2}" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchDiacritics = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Nextהקוד מבוסס על ההחלפה שהבאת לעיל, אפשר להוסיף רשימת מילים בשורה 1 (כמובן שאת כל הקוד הזה צריך להכניס לתוך פקודת מאקרו.)
בהצלחה!!!@dmp האם תוכלו לקצר את הקוד הנ"ל לקוד זה
שכרגע זה עובד לי רק על המילים שמופיעות בלולאה בשורה מס' 1 למעלה בלי תוספת מילים ואני רוצה שזה כן יתאים לקוד הנ"ל של @מלאכת-מחשבת :arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים") For f = 0 To UBound(arrFind) Selection.Find.Text = "(" & arrFind(f) & ")" Selection.Find.Replacement.Text = "{" & arrFind(f) & "}" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute Replace:=wdReplaceAll Nextכמובן להכניס בתוך המאקרו וכנ"ל.
-
@dmp האם תוכלו לקצר את הקוד הנ"ל לקוד זה
שכרגע זה עובד לי רק על המילים שמופיעות בלולאה בשורה מס' 1 למעלה בלי תוספת מילים ואני רוצה שזה כן יתאים לקוד הנ"ל של @מלאכת-מחשבת :arrFind = Array("בראשית", "שמות", "ויקרא", "במדבר", "דברים") For f = 0 To UBound(arrFind) Selection.Find.Text = "(" & arrFind(f) & ")" Selection.Find.Replacement.Text = "{" & arrFind(f) & "}" Selection.Find.Wrap = wdFindContinue Selection.Find.Execute Replace:=wdReplaceAll Nextכמובן להכניס בתוך המאקרו וכנ"ל.
-
@dmp בטח שאפשר אני רוצה שתתאים את זה למצב הנ"ל , שבינתיים זה מחליף סוגריים רק אם בסוגריים יש רק את המילים בראשית וכו' בלי תוספת של עוד מילים ואני רוצה לדעת מה אני אמור לשנות בפקודה שהבאתי שישמש אותי כפקודה שהבאת שכן משנה סוגריים כל זמן שיש בהם מילים הנ"ל על אף שיש עוד מילים ...
תודה. -
@dmp בטח שאפשר אני רוצה שתתאים את זה למצב הנ"ל , שבינתיים זה מחליף סוגריים רק אם בסוגריים יש רק את המילים בראשית וכו' בלי תוספת של עוד מילים ואני רוצה לדעת מה אני אמור לשנות בפקודה שהבאתי שישמש אותי כפקודה שהבאת שכן משנה סוגריים כל זמן שיש בהם מילים הנ"ל על אף שיש עוד מילים ...
תודה.@מגדלים
מבחינת הקוד זה זהה לקוד שהבאתי לעיל, חוץ משני הבדלים:
א. הטקסט של החיפוש והחלפה, תנסה להוסיף * לפני הסוגר השני, שהמשמעות היא לחפש "בראשית" שאחריו כל תו שהוא (או יותר מתו אחד) ואחר כך סוגר. וכן תעשה בטקסט של ההחלפה.
ב. עליך להגדיר שהחיפוש יתבצע עם תוים כלליים, ולכן תוסיף את השורה הבאה (בין שורה 5 ל-7):Selection.Find.MatchWildcards = Trueכמו כן מומלץ להוסיף את השורות של ClearFormatting (שורות 2-3 בקוד שהבאתי למעלה) על מנת שהחיפוש לא יתבסס על עיצוב שהגדרת בעת חיפוש קודם, פעולה זו מוחקת את הגדרת העיצוב הנוכחית ומגדירה חיפוש ללא עיצוב.
אם זה עדיין לא עובד, פשוט תשתמש בקוד הנ"ל עם טקסט החיפוש של @מלאכת-מחשבת
בהצלחה!!! -
@מגדלים
מבחינת הקוד זה זהה לקוד שהבאתי לעיל, חוץ משני הבדלים:
א. הטקסט של החיפוש והחלפה, תנסה להוסיף * לפני הסוגר השני, שהמשמעות היא לחפש "בראשית" שאחריו כל תו שהוא (או יותר מתו אחד) ואחר כך סוגר. וכן תעשה בטקסט של ההחלפה.
ב. עליך להגדיר שהחיפוש יתבצע עם תוים כלליים, ולכן תוסיף את השורה הבאה (בין שורה 5 ל-7):Selection.Find.MatchWildcards = Trueכמו כן מומלץ להוסיף את השורות של ClearFormatting (שורות 2-3 בקוד שהבאתי למעלה) על מנת שהחיפוש לא יתבסס על עיצוב שהגדרת בעת חיפוש קודם, פעולה זו מוחקת את הגדרת העיצוב הנוכחית ומגדירה חיפוש ללא עיצוב.
אם זה עדיין לא עובד, פשוט תשתמש בקוד הנ"ל עם טקסט החיפוש של @מלאכת-מחשבת
בהצלחה!!! -
@מלאכת-מחשבת תנסה את זה
ArrayString = Array("בראשית", "שמות") For Each s In ArrayString Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\((" & s & ")(*)\)" .Replacement.Text = "{\1\2}" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchDiacritics = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Nextהקוד מבוסס על ההחלפה שהבאת לעיל, אפשר להוסיף רשימת מילים בשורה 1 (כמובן שאת כל הקוד הזה צריך להכניס לתוך פקודת מאקרו.)
בהצלחה!!! -
פוסט זה נמחק!
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - תוכנות ב-
-
מ מגדלים העביר נושא זה מ-עזרה הדדית - וורד ב-
 { 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}