Text.ShowHtmlTags.pq

let func =  
 (HTML as text) =>
let
// Use "Lines.FromBinary(Web.Contents("YourURL"))" to retrieve the HTML in text-form
    Source = Text.From(HTML),
    SplitAny = Text.SplitAny(Source,"><"),
    ListAlternate = List.Alternate(SplitAny,1,1,0)
in
    ListAlternate


, documentation = [
Documentation.Name =  " Text.ShowHtmlTags
", Documentation.Description = " Selects all Html tags from a text
" , Documentation.LongDescription = " Selects all Html tags from a text.
", Documentation.Category = " Text
", Documentation.Source = " Inspired by a solution from Bill Szysz
", Documentation.Author = " Imke Feldmann: www.TheBIccountant.com
", Documentation.Examples = {[Description =  " 
" , Code = " 
 ", Result = " 
"]}] 
 in 
  Value.ReplaceType(func, Value.ReplaceMetadata(Value.Type(func), documentation))