В Excel, как преобразовать текст HTML в обычный текст в несколько ячеек

Question

У меня есть книга Excel с несколькими листами, каждая из которых имеет несколько ячеек, содержащих HTML-текст. Как преобразовать этот текст непосредственно в обычный текст со всем форматированием, определенным в тегах HTML. Возможно ли иметь макрос, который может сканировать все такие ячейки и преобразовывать их сразу?

Answer 1

Попробуйте использовать функцию ниже, чтобы удалить все теги html (кроме полужирного и перерыв) и получить обычный текст, проанализировав текст html этой функции, например striphtml (ваш html-текст).

Function StripHTML(sInput As String) As String 
    Dim RegEx As Object 
    Set RegEx = CreateObject("vbscript.regexp") 
    Dim sOut As String 
    With RegEx 
     .Global = True 
     .IgnoreCase = True 
     .MultiLine = True 
     .Pattern = "<(?!/?(?:br|b)\b)[^>]*>" 'Regular Expression for HTML Tags. 
    End With 
    sOut = RegEx.Replace(sInput, "") 
    StripHTML = sOut 
    Set RegEx = Nothing 
End Function