The start tag of
<html version="-//w3c//dtd html 4.01 frameset//en">
has 1 attribute called "version".
The version attribute has a value of "-//w3c//dtd html 4.01 frameset//en".
An element can contain many attribute/value pairs in the start tag.
This program will delete all of the attribute/value pairs of any element.
Sub deleteAttributes()
Dim strAttributes As String
Dim objElement As IHTMLElement
'choose any element in the document.
Set objElement = _
ActiveDocument.all.tags("html").Item(0)
objElement.outerHTML = _
Mid(objElement.outerHTML, 1, _
Len(objElement.tagName) + 1) & _
Mid(objElement.outerHTML, _
InStr(1, objElement.outerHTML, ">"), _
Len(objElement.outerHTML))
End Sub
Sample Output:
<html>
The text after the start tag will not be changed.
