Dosyadaki, döngü içini alttaki gibi yaparsanız alt çizgi,kalın renk ve eğik yazı olur aranan kelime.

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Bold = True

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Underline = xlUnderlineStyleSingle

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.FontStyle = "İtalik"