בקשת מידע | חיפוש והחלפה

[אברהם 0]

איך מוצאים בוורד שורה שהיא כולה מודגשת [לצורך עשיית סגנון כותרת] דהיינו שלא ימצא שורות שיש בהם גם מילים לא מודגשות?
תודה.

[ע"ה דכו"ע]

@אברהם-0 כתב בבקשת מידע | חיפוש והחלפה:

איך מוצאים בוורד שורה שהיא כולה מודגשת [לצורך עשיית סגנון כותרת] דהיינו שלא ימצא שורות שיש בהם גם מילים לא מודגשות?
תודה.

קרדיט GPT

Sub ConvertBoldToHeading()
    Dim doc As Document                        ' משתנה לאחסון המסמך הפעיל
    Dim rngFind As Range                       ' טווח לחיפוש
    Dim rngText As Range                       ' טווח לטקסט בין סימני הפיסקה
    
    Set doc = ActiveDocument                    ' הגדרת המסמך הפעיל
    Set rngFind = doc.Content                   ' הגדרת טווח החיפוש לכל תוכן המסמך
    
    With rngFind.Find                          ' התחלת הגדרת פרמטרי החיפוש
        .ClearFormatting                       ' ניקוי פורמט מהגדרות קודמות
        .Text = "^13([!^13]@)^13"               ' חיפוש מחרוזת שמתחילה ומסתיימת בסימן פיסקה עם תווים ביניהם
        .MatchWildcards = True                  ' הפעלת חיפוש עם תבניות (wildcards)
        .Forward = True                         ' חיפוש לכיוון ההתקדמות במסמך
    End With
    
    Do While rngFind.Find.Execute             ' לולאה עד שלא יימצאו עוד התאמות
        Set rngText = doc.Range(rngFind.Start + 1, rngFind.End - 1)  ' הגדרת טווח הטקסט בין שני סימני הפיסקה
        If rngText.Font.Bold = True Or rngText.Font.BoldBi = True Then        ' בדיקה אם כל הטקסט בתחום מודגש
            rngText.Style = "הזן סגנון כותרת"    ' המרת עיצוב הטקסט לסגנון כותרת 1
        End If
        rngFind.Start = rngFind.End            ' הזזת נקודת ההתחלה של החיפוש לאחר ההתאמה הנוכחית
        rngFind.End = doc.Content.End          ' עדכון נקודת הסיום לתוכן המסמך
    Loop                                       ' חזרה להתחלת הלולאה
End Sub