01
02
03
04
05
06
07
08
09
10
11 |
|
Sub Test()
Dim sTxt As String, sArr() As String, i As Long
sTxt = "Wer ist <font color=blue>blau</font>, grau und auch ganz <b>fett</b>."
sArr = Split(sTxt, "<")
For i = 0 To UBound(sArr)
sArr(i) = Mid$(sArr(i), InStr(sArr(i), ">") + 1)
Next i
sTxt = Join$(sArr, "")
MsgBox sTxt
End Sub
|