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

ש. ברגר

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

ש. ברגר

מרצה בקורס עימוד פרוג
מנוי פרימיום
מנוי פרימיום
מרצה בבית פרוג
בוגר/תלמיד פרוג
עימוד ספרים
איזה מאקרו?
 

צורת הדף

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

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

חיוכון

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

אלחנן אריאל

משתמש צעיר
עימוד ספרים
פשוט מאוד.
חיפוש: עיצוב'/סימון.
1677700713105.png
 
נערך לאחרונה ע"י מנהל:

FullTime

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

ישורון קובי

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

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

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

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

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


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

כל חמירא

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

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ש'

קסא שָׂרִים רְדָפוּנִי חִנָּם (ומדבריך) וּמִדְּבָרְךָ פָּחַד לִבִּי:קסב שָׂשׂ אָנֹכִי עַל אִמְרָתֶךָ כְּמוֹצֵא שָׁלָל רָב:קסג שֶׁקֶר שָׂנֵאתִי וַאֲתַעֵבָה תּוֹרָתְךָ אָהָבְתִּי:קסד שֶׁבַע בַּיּוֹם הִלַּלְתִּיךָ עַל מִשְׁפְּטֵי צִדְקֶךָ:קסה שָׁלוֹם רָב לְאֹהֲבֵי תוֹרָתֶךָ וְאֵין לָמוֹ מִכְשׁוֹל:קסו שִׂבַּרְתִּי לִישׁוּעָתְךָ יְהוָה וּמִצְוֹתֶיךָ עָשִׂיתִי:קסז שָׁמְרָה נַפְשִׁי עֵדֹתֶיךָ וָאֹהֲבֵם מְאֹד:קסח שָׁמַרְתִּי פִקּוּדֶיךָ וְעֵדֹתֶיךָ כִּי כָל דְּרָכַי נֶגְדֶּךָ:
נקרא  17  פעמים

לוח מודעות

למעלה