$TextFile = @ScriptDir & '\Исходный.txt'
$MyColor = 'красный'
$AddColor = 'черный'
$sText = FileRead($TextFile)
$sText = StringReplace($sText, $MyColor, $AddColor & @CR & $MyColor) ; Без регулярного выражения
;$sText = StringRegExpReplace($sText, '('&$MyColor&')', $AddColor&@CR&'$1'); С регулярным выражением
$hFile = FileOpen($TextFile, 2)
FileWrite($hFile, $sText)
FileClose($hFile)