אפשר למצוא בחיפוש - טקסט המסומן בצבע?

[יוסי אדל]

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

 

[יהלומי]

כעקרון אפשרי, בחלונית החיפוש/ניווט (ctrl+f)
יש חץ בצד שמאל, ליד הזכוכית מגדלת, וללחוץ 'חיפוש מתקדם'.
בחלונית שנפתחת ללחוץ על 'עוד'
ואז 'עיצוב' ו- 'גופן'.

 

[יוסי אדל]

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

 

[efrat1]

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

נראה לי שזה נקרא סימון

חיפוש מתקדם- עיצוב-סימון

 

[יוסי אדל]

בדיוק! אבל אי אפשר לבחור שם איזה צבע הסימון!

 

[שיקול דעת]

עם מאקרו מאתר הזה: (אגב אתר נהדר עם כל מיני טיפים נהדרים לוורד)

Sub FindNextYellow()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .MatchWildcards = False
        .Forward = True
        .Wrap = wdFindContinue
        .Highlight = True
        Do
            .Execute
        Loop Until Selection.Range.HighlightColorIndex = wdYellow _
          Or Not .Found
        Selection.Range.Select
    End With
End Sub

אח"כ כשרוצים למצוא צבע אחר צריך לשנות המלה wdYellow לצבע אחר.

 

[יענקי R]

יש כאן אשכול ישן בעניין, יכול לעזור.
בהצלחה

 

[יוסי אדל]

עם מאקרו מאתר הזה: (אגב אתר נהדר עם כל מיני טיפים נהדרים לוורד)
Sub FindNextYellow()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.MatchWildcards = False
.Forward = True
.Wrap = wdFindContinue
.Highlight = True
Do
.Execute
Loop Until Selection.Range.HighlightColorIndex = wdYellow _
Or Not .Found
Selection.Range.Select
End With
End Sub
אח"כ כשרוצים למצוא צבע אחר צריך לשנות המלה wdYellow לצבע אחר.

תודה!
מאקרו מדהים!

יש כאן אשכול ישן בעניין, יכול לעזור.

הצצתי באשכול ומצאתי את זה (קרדיט ל- "צורת הדף"):

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

ניסיתי את המאקרו האחרון, עובד מצויין!
תודה לכולם!