VBA to read text of RTF file

[ROBERT CHEN]

Please kindly advise me the EXCEL VBA HOW TO Read an RTF file line by line without format code "only the text"?

 

[Logit]

Rich text format (with formatting tags) in Excel to unformatted text

Another resource ... suggested macro from Jindon :

Sub test()
    Dim a, i As Long, m As Object, temp As String
    With Range("a1").CurrentRegion
        a = .Value
        With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "{\S+ ([^};]+(?!\;))\}"
            For i = 1 To UBound(a, 1)
                temp = a(i, 1): a(i, 1) = Empty
                For Each m In .Execute(temp)
                    a(i, 1) = a(i, 1) & m.submatches(0)
                Next
            Next
        End With
        .Value = a
    End With
End Sub