[SendMessage]

Предположу, что нужно удалять тэги DIV.

Код:

Option Explicit

Dim objFSO
Dim FileName
Dim OpenFile
Dim strText

Set objFSO = CreateObject("Scripting.FileSystemObject")

FileName = "z:\DIVremove.htm"

Set OpenFile = objFSO.OpenTextFile(FileName, 1)
  strText = OpenFile.ReadAll
OpenFile.Close
  
Set OpenFile = objFSO.OpenTextFile(FileName, 2) 
  OpenFile.Write ReplaceText(strText, "<div.*?>(.*?)</div>", "$1")
OpenFile.Close

WScript.Echo "Скрипт отработал."

WScript.Quit

Function ReplaceText(strSourceText, strPattern, strNewText)
  Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.Pattern = strPattern
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    ReplaceText = objRegExp.Replace(strSourceText, strNewText)
End Function

В принципе, можно удалять любой текст - просто нужно проставить нужные условия регулярных выражений (выделенные цветом). Первое - искомый текст, второе - текст на выходе.

[Rubichek]

да нужно удалить div