Задача на строки. Сделать поиск-замену в табличном тексте

$text=ClipGet()
ClipPut($text)

#Include <Clipboard.au3>
_ClipBoard_GetDataEx([$iFormat = 1])

#include <IE.au3>
Opt("WinTitleMatchMode",2)

Dim $sLink = "http://www.krsdstat.ru/public/info/26_04-02_05%20%D0%AD%D0%BA%D1%81%D0%BF%D1%80.%D1%82%D0%BE%D0%BF%D0%BB%D0%B8%D0%B2%D0%BE.htm"
Dim $sPath = @ScriptDir &"\DocumentToWrod.html"

$oIE = _IECreate($sLink)
$oSpans = _IETagNameGetCollection ($oIE, "span")
;~ ConsoleWrite(@extended) ; количество найденного

	For $oSpan In $oSpans
		If $oSpan.innerText = '302,9' Then	; то что ищем.
			; ~~
			; или можно устроить поиск из массива значений с последующей их заменой
			; ~~
			MsgBox(0, "", $oSpan.innerText & " меняем на 400")
			_IEPropertySet($oSpan,"innertext","400") ; меняем на
		EndIf
	Next
	
;~ Сохраняем в файл
$sHTML = _IEDocReadHTML($oIE)
$dFile = FileOpen($sPath,2)
If $dFile = -1 Then Exit
FileWrite($dFile, $sHTML)
FileClose($dFile)

;~ Открываем документ в Word`е
Run("""C:\Program Files\Microsoft Office\Office10\winword.exe""" & @ScriptDir & "\DocumentToWrod.html" )

For $oSpan In $oSpans
	$sOutput  = StringRegExpReplace($oSpan.innerText, "шаблон поиска", "значение для замены") ; то что ищем.
	_IEPropertySet($oSpan,"innertext", $sOutput) ; меняем на
Next

#include<IE.au3>
Opt("WinTitleMatchMode",2)

Dim $sLink = "http://www.krsdstat.ru/public/info/26_04-02_05%20%D0%AD%D0%BA%D1%81%D0%BF%D1%80.%D1%82%D0%BE%D0%BF%D0%BB%D0%B8%D0%B2%D0%BE.htm"
Dim $sPath = @ScriptDir &"\DocumentToWrod.html"

$oIE = _IECreate($sLink, 0, 0)
$oSpans = _IETagNameGetCollection ($oIE, "span")
;~ ConsoleWrite(@extended) ; количество найденного


For $oSpan In $oSpans
    $sOutput  = StringRegExpReplace($oSpan.innerText, "\s+", " ") ; то что ищем.
    _IEPropertySet($oSpan,"innertext", $sOutput) ; меняем на
Next

   
;~ Сохраняем в файл
$sHTML = _IEDocReadHTML($oIE)
$dFile = FileOpen($sPath,2)
If $dFile = -1 Then Exit
FileWrite($dFile, $sHTML)
FileClose($dFile)

;~ Открываем документ в Word`е
Run("C:\Program Files\Microsoft Office\Office12\winword.exe " & @ScriptDir & "\DocumentToWrod.html" )