hDoc est un htmlDocument = "
<html>
<head/>
<body>
<h1></h1><div id="div">
<p>Texte1</p>
<p>Texte2</p>
</div><h3></h3>
</body>
</html>
"
hNoeud est un htmlNoeud <- HTMLChercheElémentParID(hDoc, "div")
hNoeudInsertion est un htmlNoeud
hNoeudInsertion..NomBalise = "h2"
HTMLEncadre(hNoeud, hNoeudInsertion)
Trace(hDoc)
hNoeudInsertion..NomBalise = "span"
HTMLEncadreTousLesFils(hNoeud, hNoeudInsertion)
Trace(hDoc)
HTMLDésencadreTousLesFils(hNoeud)
Trace(hDoc)