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

ש. ברגר · 22/12/11

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

צורת הדף · 22/12/11

ניתן, ע"י מאקרו.

ש. ברגר · 22/12/11

איזה מאקרו?

צורת הדף · 23/12/11

כל צבע יש לו מספר אינדקס.
המאקרו יהפך ההארות לסגנונות תו בשם "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

א לעכטיגן חנוכה

שי8080 · 24/12/11

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

חיוכון · 25/12/11

אפשר אולי לדעת איך מחפשים הארה (לא חשוב הצבע) ? זה יעזור לי מאד

אלחנן אריאל · 25/12/11

פשוט מאוד.
חיפוש: עיצוב'/סימון.

עימוד חן · 22/12/13

שלום וברכה איך אני מכניס מאקרו הזה לוורד

FullTime · 22/12/13

למה צריך מאקרו לזה?
ניתן לסמן את הצבע בתוך חלון החיפוש: עיצוב, גופן, צבע.
ואז הוא מחפש רק את הצבע שבחרו

למען דעת · 22/12/13

נכתב ע"י FullTime:
...ניתן לסמן את הצבע בתוך חלון החיפוש: עיצוב, גופן, צבע.

זה מוצא את צבע הגופן ולא את צבע הסימון (מרקר)

ישורון קובי · 1/3/23

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

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

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

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

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

א פריילעכן פורים!

כל חמירא · 18/6/23

נכתב ע"י צורת הדף:
כל צבע יש לו מספר אינדקס.
המאקרו יהפך ההארות לסגנונות תו בשם "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

א לעכטיגן חנוכה