Microsoft Access 掲示板

mayuさんから回答があるようにユーザー定義関数を作成することになると思います。

MSはVBScriptは将来的に廃止にする意向のようですのでVBScriptに依存しないものを作成してみました。

Public Function minifizeTags(s As Variant) As Variant
    minifizeTags = s
    If Nz(s) = "" Then Exit Function
    
    Dim ary As Variant
    ary = Split(s, "<")
    
    Dim i As Long, buf As String, p1 As Long, p2 As Long
    For i = 1 To UBound(ary)
        buf = ary(i)
        p1 = InStr(buf, " ")
        p2 = InStr(buf, ">")
        If p1 > 0 And p2 > 0 And p1 < p2 Then
            ary(i) = Left(buf, p1 - 1) & Mid(buf, p2)
        End If
    Next
    minifizeTags = Join(ary, "<")
End Function