VBA : CONVERTING HTML TO TEXT

on

CONVERTING HTML TO TEXT


Function HtmlToText(sHTML) As Variant
  Dim oDoc As HTMLDocument
  Set oDoc = New HTMLDocument
  oDoc.Body.innerHTML = sHTML
  HtmlToText = oDoc.Body.innerText
End Function

Comments

Post a Comment