[Iska]

blackeangel, попробуйте так (на WSH; думаю, перевод на VBA для Вас особых затруднений не составит):

Код:

Option Explicit

Dim strContent
Dim objMatch


With WScript.CreateObject("VBScript.RegExp")
	.Pattern    = "(ГОСТ|ГОСТ Р|ОСТ|ТУ) *?[\d\.\-Г]+\d"
	.IgnoreCase = True
	.Global     = True

	With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Мои проекты\0248\0001.txt")
		strContent = .ReadAll()
		.Close
	End With

	If .Test(strContent) Then
		For Each objMatch In .Execute(strContent)
			WScript.Echo objMatch.Value
		Next
	Else
		WScript.Echo "Nothing found."
	End If
End With

WScript.Quit 0

Предвижу большие проблемы с отраслевыми стандартами.