Problema de llenado de la página web de VB

He depurado exitosamente, tenga en cuenta:

1. No coloque el script al final al llamar a una función o procedimiento, de lo contrario no se puede encontrar el objeto DIV

2. procedimiento Debe estar organizado en un script y tener un botón de llamada

3. Intenta no agregar objetos delante del Documento

4. !

============== Autor: daode1212, QQ: 1501488900 ================

lt;div class="edit_area js_editorArea" contenteditable="true" style="overflow-y: auto; overflow-x: oculto;"gt;123 lt;brgt;lt;/divgt;

lt ;div class="edit_area js_editorArea" contenteditable="true" style="overflow-y: auto; overflow-x: oculto;"gt;456lt;brgt;lt;/divgt;

lt; div class="edit_area js_editorArea" contenteditable="true" style="overflow-y: auto; overflow-x: oculto;"gt;789lt;brgt;lt;/divgt;

lt;lenguaje de secuencia de comandos ="vbscript" gt；

Para cada i en Document.All.tags("div")

Si i.contenteditable = "true" Entonces

msgbox i.innerHTML

i.innerHTML = "abc"

Fin si

lt;/ scriptgt ;

lt;script language="vbscript" gt;

Para cada i en el documento.