שינוי גודל גופן בתא באקסס | טקסט עשיר

[אוריי]

יש לי את הקוד הבא ש@רחמים הביא לי כאן

Function FindAndHit(findWhat As Variant, text As Variant) As String
 
    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If
 
    Dim openTag As String
    openTag = "<font style=""BACKGROUND-COLOR:#FFFF00"">"
    Dim closeTag As String
    closeTag = "</font>"
    
    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)
 
End Function

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

[pcinfogmach]

@אוריי
נראה ברפרוף שסה"כ מדובר ב-html
אם אני צודק אזי ברור שאפשר

openTag = "<font style=""background-color:#FFFF00; font-size:80%"">"

[אוריי]

@pcinfogmach לא עובד כתבתי כך

openTag = "<font style=""font-size:50%"">"

[אוריי]

נעזרתי ב gpt וזה עובד כולל החלפת גופן

Function FindAndHit(findWhat As Variant, text As Variant) As String

    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If

    Dim openTag As String
    openTag = "<font face=FrankRuehl size=5>"
    Dim closeTag As String
    closeTag = "</font>"

    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

[dovid]

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