אופיס 365 חיפוש הארה ע"פ הצבע

  • הוסף לסימניות
  • #1
קיבלתי קובץ וורד המכיל הארות בצבעים שונים,
ניתן לחפש הארה בוורד, אך החיפוש לא מתייחס לצבע ההארה.
האם ניתן בכ"ז לחפש הארה בצבע מסויים, ע"מ להפוך לסגנונות.
תודה רבה
 
  • הוסף לסימניות
  • #3
איזה מאקרו?
 
  • הוסף לסימניות
  • #4
כל צבע יש לו מספר אינדקס.
המאקרו יהפך ההארות לסגנונות תו בשם "HighlightColorIndex", עם מספר האינדקס שלו.

קוד:
Sub Highlight()
With Selection.Find: .ClearFormatting: .Highlight = True
While .Execute(findText:="", MatchWildcards:=False, Wrap:=wdFindStop)
    WordBasic.FormatStyle Name:="HighlightColorIndex" & Selection.Range.HighlightColorIndex, _
    NewName:="HighlightColorIndex" & Selection.Range.HighlightColorIndex, Type:=1
Wend
End With
End Sub

א לעכטיגן חנוכה
 
  • הוסף לסימניות
  • #5
קרש, אני בהלם!
עבדתי שעות כדי להתגבר על הבעיה (ועדיין לא סיימתי) לאחר שמספר מומחים אמרו שאין מצב!
כעת ניסיתי וזה עובד יפה!
אין עליך! תודה רבה!
בהצלחה.
 
  • הוסף לסימניות
  • #6
אפשר אולי לדעת איך מחפשים הארה (לא חשוב הצבע) ? זה יעזור לי מאד
 
  • הוסף לסימניות
  • #7
פשוט מאוד.
חיפוש: עיצוב'/סימון.
1677700713105.png
 
נערך לאחרונה ע"י מנהל:
  • הוסף לסימניות
  • #9
למה צריך מאקרו לזה?
ניתן לסמן את הצבע בתוך חלון החיפוש: עיצוב, גופן, צבע.
ואז הוא מחפש רק את הצבע שבחרו
 
  • הוסף לסימניות
  • #11
כל צבע יש לו מספר אינדקס. המאקרו יהפך ההארות לסגנונות תו בשם "HighlightColorIndex", עם מספר האינדקס שלו.

סליחה על ההקפצה של אשכול ישן (אבל עם מאקרו שימושי).
יש להאיר, שהמאקרו הנ"ל לא מטפל במציאות של הארות סימון צמודות:
1677701558823.png

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

ולכן במציאות כזאת, שיש לנו רק 2 צבעים של הארות סימון, יתקבל גם סגנון נוסף עם המספר 9999999, שלמעשה יהיה מציין עבורנו את המקומות שי לנו "ערבוב" של צבעים:
1677701467954.png

ולכן כך תראה רשימת הסגנונות שלנו אחרי הפעלת המאקרו:
1677701619161.png


א פריילעכן פורים! :)
 
  • הוסף לסימניות
  • #12
כל צבע יש לו מספר אינדקס.
המאקרו יהפך ההארות לסגנונות תו בשם "HighlightColorIndex", עם מספר האינדקס שלו.

קוד:
Sub Highlight()
With Selection.Find: .ClearFormatting: .Highlight = True
While .Execute(findText:="", MatchWildcards:=False, Wrap:=wdFindStop)
    WordBasic.FormatStyle Name:="HighlightColorIndex" & Selection.Range.HighlightColorIndex, _
    NewName:="HighlightColorIndex" & Selection.Range.HighlightColorIndex, Type:=1
Wend
End With
End Sub

א לעכטיגן חנוכה
נסיתי ובהפעלה המקרו נכשל
1687039934722.png
 

פרוגבוט

תוכן שיווקי
פרסומת
למעלה