[RegExp] Поиск и замена в word по регулярному выражению

$test=StringRegExpReplace($test, '(\d{6})(\d\d\.\d\d\.\d{3})(\40\d+)', '$1 ${2}2$3')

StringRegExpReplace($oDoc, '(\d{6})(\d\d\.\d\d\.\d{3})(\40\d+)', '$1 ${2}2$3')

$sText= _
'44526301.08.201 1110....' & @CRLF & _
'58555410.09.201 10001.....' & @CRLF & _
'45455511.10.201 121213...'

$demanded= _
'445263 01.08.2012 1110....' & @CRLF & _
'585554 10.09.2012 10001.....' & @CRLF & _
'454555 11.10.2012 121213...'

$sText=StringRegExpReplace($sText, '(\d{6})(\d\d\.\d\d\.\d{3})(\40\d+.*)', '$1 ${2}2$3')


If $sText==$demanded Then MsgBox(0, 'Да совпадает', $sText)

$sText= _
'44526301.08.201 1110....' & @CRLF & _
'58555410.09.201 10001.....' & @CRLF & _
'45455511.10.201 121213...'

$sTest = StringRegExpReplace($sText,'(?m)(?<=^\d{6})[\d.]+(?<=201)',' $0${2}2')
ConsoleWrite($sTest & @LF)

$oWordApp = _WordCreate (@ScriptDir & "1.doc")
$oDoc = _WordDocGetCollection($oWordApp, 0)
StringRegExpReplace($oDoc, '(\d{6})(\d\d\.\d\d\.\d{3})(\40\d+.*)', '$1 ${2}2$3')