בירור | מאקרו להקטנת סוגריים
-
איך ניתן לכתוב פקודת מאקרו שתקטין סוגריים
מכיון שכל פעם שעושים את זה בהקלטת מאקרו הוא מוחק את כל הסוגרייםתודה רבה
-
@u88 כתב בבירור | מאקרו להקטנת סוגריים:
איך ניתן לכתוב פקודת מאקרו שתקטין סוגריים
מכיון שכל פעם שעושים את זה בהקלטת מאקרו הוא מוחק את כל הסוגרייםתודה רבה
יש לך בתוסף עיצוב תורני.
@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבה -
@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבה@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבהתעשה מאקרו רגיל של חיפוש והחלפה, ואח"כ תחליף את הקודים לחיפוש בקודים ש @pcinfogmach כתב כאן
-
@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבהתעשה מאקרו רגיל של חיפוש והחלפה, ואח"כ תחליף את הקודים לחיפוש בקודים ש @pcinfogmach כתב כאן
@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגריים -
@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגריים@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגרייםתכניס במאקרו בטקסט של החלף ב:
^& -
@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגרייםתכניס במאקרו בטקסט של החלף ב:
^&@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?
-
@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?
@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?
ב"חפש את" תכתוב את הקוד של ההחלפה, וב"החלף ב" תכתוב חוץ מהעיצוב גם את הקוד "^&" שהמשמעות שלו היא "הטקסט שבתיבת "חפש את"
-
@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבה -
@u88 כתב בבירור | מאקרו להקטנת סוגריים:
@ע-ה-דכו-ע לא לכתוב את הקוד של ההחלפה?
ב"חפש את" תכתוב את הקוד של ההחלפה, וב"החלף ב" תכתוב חוץ מהעיצוב גם את הקוד "^&" שהמשמעות שלו היא "הטקסט שבתיבת "חפש את"
@ע-ה-דכו-ע אשמח שתתקן את מה שעשיתי מכיון שהוא לא עשה כלום הנה הקוד שנעשה בהקלטת מאקרו
' ' Macro2 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .Format = True .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 -
@ע-ה-דכו-ע אשמח שתתקן את מה שעשיתי מכיון שהוא לא עשה כלום הנה הקוד שנעשה בהקלטת מאקרו
' ' Macro2 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .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 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .Format = True .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 -
@u88
בהקלטת מאקרו מתפספס הגודל והעיצוב בדרך כלל, צריך לכתוב לבד:.Font.Size = 10כאשר הספרה מציינת את הגודל של הפונט.
-
משהו בסגנון הזה:
Sub החלפת_גודל_גופן() With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True End With Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.SizeBi = "12" Selection.Find.Execute Replace:=wdReplaceAll End Subאבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו, אולי @pcinfogmach יוכל לתת את הפקודה להפעלת תווים כללים במאקרו... או שיש לו דרך יותר טובה.
-
משהו בסגנון הזה:
Sub החלפת_גודל_גופן() With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True End With Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.SizeBi = "12" Selection.Find.Execute Replace:=wdReplaceAll End Subאבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו, אולי @pcinfogmach יוכל לתת את הפקודה להפעלת תווים כללים במאקרו... או שיש לו דרך יותר טובה.
@דאנציג כתב בבירור | מאקרו להקטנת סוגריים:
אבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו, אולי @pcinfogmach יוכל לתת את הפקודה להפעלת תווים כללים במאקרו... או שיש לו דרך יותר טובה.
הפקודה היא
.MatchWildcards = Trueכלומר הקוד שהבאת צריך להיות כך:
Sub החלפת_גודל_גופן() With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True .MatchWildcards = True End With Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.SizeBi = "12" Selection.Find.Execute Replace:=wdReplaceAll End Subולשנות את המספר בשורה 10 לגודל שרוצים.
-
משהו בסגנון הזה:
Sub החלפת_גודל_גופן() With Selection.Find .Text = "\(*\)" .Replacement.Text = "^&" .Forward = True End With Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.SizeBi = "12" Selection.Find.Execute Replace:=wdReplaceAll End Subאבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו, אולי @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}