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

[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]

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