בירור | מאקרו להקטנת סוגריים

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

@ע-ה-דכו-ע אני יודע אבל אני מחפש שיהיה לי משהוא מתומצת במחשב ללא צורך בכל התוסף המלא
ובכו"ז תודה רבה

תעשה מאקרו רגיל של חיפוש והחלפה, ואח"כ תחליף את הקודים לחיפוש בקודים ש @pcinfogmach כתב כאן

[u88]

@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגריים

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

@ע-ה-דכו-ע זה מה שכתבתי למעלה
את הקוד אני יודע רק בחיפוש והחלפה כשאתה עושה הקלטת מאקרו הוא מוחק את הסוגריים

תכניס במאקרו בטקסט של החלף ב:

^&

[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

[דאנציג]

@u88
בהקלטת מאקרו מתפספס הגודל והעיצוב בדרך כלל, צריך לכתוב לבד:

.Font.Size = 10

כאשר הספרה מציינת את הגודל של הפונט.

עריכה: https://mitmachim.top/post/613032

[u88]

@דאנציג אשמח שתראה לי את זה בקוד
תודה רבה

[דאנציג]

@u88

משהו בסגנון הזה:

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 לגודל שרוצים.

[pcinfogmach]

@דאנציג כתב בבירור | מאקרו להקטנת סוגריים:

אבל צריך שיהיה מוגדר חיפוש בתווים כללים (חיפוש אחרון בחיפוש), ואני לא יודע איך עושים את זה במאקרו,

יהיה לך הרבה תועלת במקרים כאלו להתשמש בהקלטת מאקרו

[u88]

@ע-ה-דכו-ע @דאנציג רק אשמח איך אני עושה החלף הכל ולא אחד אחד
בכו"ז תודה רבה ועצומה לכל הטורחים במלאכה

[דאנציג]

@pcinfogmach

@דאנציג כתב בבירור | מאקרו להקטנת סוגריים:

בהקלטת מאקרו מתפספס הגודל והעיצוב בדרך כלל,

[ע"ה דכו"ע]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

@ע-ה-דכו-ע @דאנציג רק אשמח איך אני עושה החלף הכל ולא אחד אחד
בכו"ז תודה רבה ועצומה לכל הטורחים במלאכה

תנסה את זה

Sub החלפת_גודל_גופן()
    Dim rng As Range 
    Set rng = ActiveDocument.Content 
 With rng.Find
        .ClearFormatting 
        .Text = "\(*\)"
        .Replacement.Text = "^&"
        .Forward = True
        .MatchWildcards = True
    End With
        Do While rng.Find.Execute 
            rng.Font.SizeBi = 10 
            rng.Collapse wdCollapseEnd 
        Loop b
end sub

[דאנציג]

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

רק אשמח איך אני עושה החלף הכל ולא אחד אחד

ניסית?
וזה החליף לך רק אחד???

@ע-ה-דכו-ע כתב בבירור | מאקרו להקטנת סוגריים:

תנסה את זה

למה?

@ע-ה-דכו-ע כתב בבירור | מאקרו להקטנת סוגריים:

Selection.Find.Execute Replace:=wdReplaceAll

מחליף את כל המופעים!!!

[ע"ה דכו"ע]

@דאנציג כתב בבירור | מאקרו להקטנת סוגריים:

@u88 כתב בבירור | מאקרו להקטנת סוגריים:

רק אשמח איך אני עושה החלף הכל ולא אחד אחד

ניסית?
וזה החליף לך רק אחד???

@ע-ה-דכו-ע כתב בבירור | מאקרו להקטנת סוגריים:

תנסה את זה

למה?

@ע-ה-דכו-ע כתב בבירור | מאקרו להקטנת סוגריים:

Selection.Find.Execute Replace:=wdReplaceAll

מחליף את כל המופעים!!!

אני לא בדקתי את זה, כיון שהוא אמר שלא עבד לו אז עשיתי לו לולאה.
אגב הקוד הקודם היה רק לבחירה הנוכחית ולא לכל המסמך, אולי בזה היתה הבעיה

[דאנציג]

@ע-ה-דכו-ע כתב בבירור | מאקרו להקטנת סוגריים:

אגב הקוד הקודם היה רק לבחירה הנוכחית ולא לכל המסמך, אולי בזה היתה הבעיה

לא יודע, אני לא בחרתי כלום, והפעלתי את הקוד הקודם שהבאת, והוא החליף את כל המופעים במסמך.

[u88]

@דאנציג אצלי זה החליף כל פעם אחד ולא יותר

[דאנציג]

@u88
מוזר
@pcinfogmach איך יכול להיות שהקוד הזה:

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

אצלי מחליף את כל המופעיל, ואילו אצל @u88 רק אחד?