Microsoft Access 掲示板

複数検索文字がハイライトできました！ありがとうございます。

ですが、検索文字が増えるたび、スペースが一つ空くと1行改行されてしまいます。
おそらく検索文字列にスペースが入ってしまっているからだと思うのですが、
検索文字が3つあれば、2行改行されてしまうのですがそれはどうしたらいいでしょう？

検索文字が増えても改行せずにしたいです。

あっ、またまたすみません。
SearchHighlight関数を下記に修正してください。

Public Function SearchHighlight(フィールド, 検索文字列, Optional 色 As String = "#ffff00") As String
    Dim s As String
    s = Nz(フィールド)
    If s = "" Then Exit Function
    If Nz(検索文字列) = "" Then
        SearchHighlight = s
        Exit Function
    End If
    Dim color As String
    Dim i
    s = Replace("<p>" & s & "</p>", Chr(13), "</p><p>")
    For Each i In Split(検索文字列)
        s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>")
    Next
    SearchHighlight = s
End Function