עזרה - מאקרו

[רפאל ברלב - ארכיון]

תאריך ההודעה המקורית: 09/07/2023 16:42

יצרתי מאקרו להקטנת כל הסוגריים במסמך
אבל במקום להחליף אותם הוא מוחק אותם לגמרי
[הסיבה לכך היא שבהקטנת הסוגריים לא ממלאים כלום בתיבת 'החלף ב:']
יש לזה פיתרון?

[יואל שילה - ארכיון]

תאריך ההודעה המקורית: 09/07/2023 16:44

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

Sub הקטנת_סוגרים()
'
' הקטנת_סוגרים Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 11
Selection.Find.Replacement.Font.SizeBi = "11"
.Color = wdColorDarkBlue
End With
With Selection.Find
.Text = "[]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.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
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 10
Selection.Find.Replacement.Font.SizeBi = "10"
.Color = wdColorDarkGreen
End With
With Selection.Find
.Text = "()"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.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
Selection.Find.ClearFormatting
With Selection.Find.Font
.Color = wdColorDarkGreen
End With
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 9
Selection.Find.Replacement.Font.SizeBi = "9"
.Color = wdColorDarkGreen
End With
With Selection.Find
.Text = "[*]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.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

------ Original Message ------
מאת: From "רפאל ברלב"
מאת: To "עריכה תורנית"
Date כ' תמוז תשפ"ג 16:42:15
Subject [הבית לעורך התורני] עזרה - מאקרו

[יהודה אבני - ארכיון]

תאריך ההודעה המקורית: 09/07/2023 18:10

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