Your ActiveDocument HTML body elements should look empty as shown below.

<body>
</body>			

The statements below will add a new div element to the body.

I call this div "maincontainer" because later I add several additional div elements inside it.

   strHTML = "<div id=" & _
   """" & "maincontainer" & """" & _
   ">" & _
   vbCrLf & _
   "</div><!-- /// End MainContainer ///-->"

  ActiveDocument.all.tags("body"). _
  Item(0).innerHTML = strHTML			

The body will look as shown below after the above statements are run.

<body>
<div id="maincontainer">
</div><!-- /// End MainContainer ///-->
</body>			

The comment line after the div end tag is something I typically add to help reading my HTML

 

Valid XHTML 1.0 Transitional        Valid CSS!