עזרה | איך לחפש בוורד כל טקסט שהוא יותר או פחות מגודל מסויים.

[pcinfogmach]

יש למישהו רעיון איך לחפש בוורד כל טקסט שהוא יותר או פחות מגודול מסויים - ולסמן אותו.
מדובר גם כאשר יש גם טקסט גדול וגם קטן ולפעמים הם מעורבבים.

נועד לצורך השלמת המלאכה עבור העורך של אוצריא כאן:
https://mitmachim.top/post/902180

כרגע עולה לי שני רעיונות בראש שניהם לא מושלמים:

1. לסמן את כל הטקסט בגודל המסויים ואז לחפש על ידי החרגה של הסימונים:
   חיסרון הוא שאי אפשר עדיין להבחין באמת בין גדול לקטן.
2. לעשות לולאת חיפוש בסדר עולה ובסדר יורד של גודל גופן - החיסרון הוא שזה ייקח המון זמן.

[איש שלו']

@pcinfogmach כתב בעזרה | איך לחפש בוורד כל טקסט שהוא יותר או פחות מגודל מסויים.:

כרגע עולה לי שני רעיונות בראש שניהם לא מושלמים:

1. לסמן את כל הטקסט בגודל המסויים ואז לחפש על ידי החרגה של הסימונים:
   חיסרון הוא שאי אפשר עדיין להבחין באמת בין גדול לקטן.
2. לעשות לולאת חיפוש בסדר עולה ובסדר יורד של גודל גופן - החיסרון הוא שזה ייקח המון זמן.

אינני יודע אם הבנתי דבריך לגמרי.
אבל נ"ל שזה לא כ"כ הרבה. בד"כ מדובר על גופנים בין 8 ל-15 נק' ~
[ואם תרצה להדר - גם בחצאים שביניהם: 8.5, 9.5 וכו']

אז נאמר שאתה רוצה לסמן כל מה שגדול מ-12:
אתה מסמן כל מה שהוא 12.5, 13, 13.5 וכו' עד 15 - בסוג סימון מסויים [נגיד כחול]
ואח"כ מסמן כל מה שפחות מ-12 עד"ז [באדום]

עריכה: כמובן אם יש בטקסט עיצובים בצבעים - לא כדאי להגדיר את ההבחנות הנ"ל בצבעים [כחול, אדום], כי אז יאבדו כל העיצובים...
אלא בהגדרות שאינן שימושיות [למשל בקו תחתון של נקודות, או קו חוצה או הגדרת צבע רקע, וכד'].

[יום חדש מתחיל]

@pcinfogmach
אולי עדיף שתשאל בפורום תחומים?

[pcinfogmach]

@יום-חדש-מתחיל
הם לא אוהבים ששואלים שאלות כאן וגם שם

[יום חדש מתחיל]

@pcinfogmach אז תמחק את הנושא כאן.........
ולגוף השאלה, לכאו' כמו שאתה עוטף בתגי <b> את הטקסט המודגש, כך אותו דבר תוכל להגדיר שכל טקסט בגודל 12.5, 13, 13.5, 14, וכו' ייעטף בתגי <big> וכן מתחת ל 12 ייעטף בתגי <small>. ולא צריך להגיע למה שכתב כאן הרב @איש-שלו לעשות את זה בשתי שלבים.
דרך אגב, כתבתי זאת לפי מה שאתה כתבת שהטקסט הרגיל הוא בגודל 12, אבל אצלי הטקסט הסטנדרט הוא גודל 11.

[pcinfogmach]

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

דרך אגב, כתבתי זאת לפי מה שאתה כתבת שהטקסט הרגיל הוא בגודל 12, אבל אצלי הטקסט הסטנדרט הוא גודל 11

עבדה זו זניחהלגמרי: למעישה אני לא מגדיר את הגודל סטנדרד בצורה קשוחה אלא שולף אותו מתוך הסגנון "רגיל"

[pcinfogmach]

עלה לי רעיון:
על ידי זיהוי גודל לא זהה מצו"ב

Private Sub SizeReplacements()
    Dim defaultSize As Integer, currentSize As Integer, diff As Integer, i As Integer
    Set normalStyle = ActiveDocument.Styles(wdStyleNormal)
    
    ' קבלת גודל הפונט ברירת המחדל
    defaultSize = normalStyle.Font.SizeBi
    
    ' שלב 1: סימון גודל הפונט ברירת המחדל
    With ActiveDocument.Content.Find
        .style = normalStyle
        .Format = True
        .Font.SizeBi = defaultSize
        .Replacement.text = "»^&«"
        .Execute Replace:=wdReplaceAll
    End With
    
    ' שלב 2: הוספת תגיות מותאמות לגודל
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1
     
    With Selection.Find
        .style = normalStyle
        .Format = True
        .ClearFormatting
        .text = "«[!»^13]{1,}"
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = True
        
        Do While .Execute
                Call Trim
            If Selection.style = normalStyle Then
            
                'זיהוי טווח עם גדלים שונים
                If Selection.Font.SizeBi = 9999999 Then
                    Call DivideTextByFontSize
                    GoTo nxt
                End If
                
                'זיהוי טקסט גדול\קטן
                currentSize = Selection.Font.SizeBi
                If currentSize > defaultSize Then
                'סימון טקסט גדול
                    diff = currentSize - defaultSize
                    For i = 1 To diff
                        Selection.InsertBefore "<big>"
                        Selection.InsertAfter "</big>"
                    Next i
                ElseIf currentSize < defaultSize Then
                'סימון טקסט קטן
                    diff = defaultSize - currentSize
                    For i = 1 To diff
                        Selection.InsertBefore "<small>"
                        Selection.InsertAfter "</small>"
                    Next i
                End If
            End If
            Selection.Collapse (wdCollapseEnd)
            
nxt:
            
        Loop
    End With
    
    ' שלב 3: הסרת המהדורים
    With ActiveDocument.Content.Find
        .text = "[»«]"
        .MatchWildcards = True
        .Replacement.text = ""
        .Execute Replace:=wdReplaceAll
    End With
End Sub
Private Sub DivideTextByFontSize()
With Selection
    Do While .Font.SizeBi = 9999999
         .MoveEnd wdCharacter, -1
    Loop
    .InsertAfter "»«"
    .MoveStart wdWord, -1
    .Collapse (wdCollapseStart)
End With
End Sub