Your html code should look like:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> </head> <body> </body> </html>
This method will insert <title> and then <link>.
It will then reset the <head> innerHTML to be
<title> outerHTML &
strMetaHTML & <link> outerHTL.
Sub Children132OuterHTML()
Dim strHTMLTitle As String
Dim strHTMLLink As String
Dim strHTMLMeta As String
Dim objHead As IHTMLElement
Dim objTitle As IHTMLElement
Dim objLink As IHTMLElement
Set objHead = ActiveDocument.all.tags("head").Item(0)
strHTMLLink = _
vbCrLf & _
vbTab & _
"<link>"
strHTMLMeta = _
vbTab & _
"<meta>" & _
vbCrLf
strHTMLTitle = _
vbCrLf & _
vbTab & _
"<title>" & _
vbCrLf & _
vbTab & _
"</title>"
objHead.innerHTML = strHTMLTitle
Set objTitle = ActiveDocument.all.tags("title").Item(0)
objHead.innerHTML = _
objTitle.outerHTML & _
strHTMLLink
Set objTitle = ActiveDocument.all.tags("title").Item(0)
Set objLink = ActiveDocument.all.tags("link").Item(0)
objHead.innerHTML = _
objTitle.outerHTML & _
strHTMLMeta & _
objLink.outerHTML
End Sub
After
objHead.innerHTML = strHTMLTitle
The HTML will be:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title> </title> </head> <body> </body> </html>
After
Set objTitle = _
ActiveDocument.all.tags("title").Item(0)
objHead.innerHTML = _
objTitle.outerHTML & _
strHTMLLink
The HTML will be:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title> </title> <link> </head> <body> </body> </html>
After
Set objTitle = _
ActiveDocument.all.tags("title").Item(0)
Set objLink = _
ActiveDocument.all.tags("link").Item(0)
objHead.innerHTML = _
objTitle.outerHTML & _
strHTMLMeta & _
objLink.outerHTML
Your HTML code will be:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title> </title> <meta> <link> </head> <body> </body> </html>
The last statement requires that you reset objTitle reference.
This is probably because the index value and the sourceIndex value of objTitle have to be revised.
Other methods to accomplish the same thing:
innerHTML, all 3 children at once
innerHTML, Child1, Child 2, Child3
innerHTML, Child3, Child2, Child1
innerHTML, Child1, Child3, Child2 using innerHTML
insertAdjacentHTML "beforeBegin, strHTML
insertAdjacentHTML "afterBegin, strHTML
insertAdjacentHTML "beforeEnd, strHTML
insertAdjacentHTML "afterEnd, strHTML
