Dim myRegExp As New RegExp ' создаем экземпляр RegExp
Dim strTest As String ' тестируемая строка
' устанавливаем свойства объекта RegExp
myRegExp.Global = True
myRegExp.MultiLine = True
myRegExp.Pattern = "^(.+?) "
Set mStory = Selection.Range
strTest = mStory
mChng = "$1vbTab"
''mChng = "$1{TAB}"
mStory.Text = myRegExp.Replace(strTest, mChng)