Листинг 3. Функция ParseString для вставки текстов вместо тэгов шаблона

Private Function ParseString(strMergedText As String, _
	DataRow As Range) As String
	Dim nStart As Integer
	Dim nEnd As Integer
	Dim nColNum As Integer
	Dim mmTagPrefix As String
	Dim mmTagSuffix As String

	mmTagPrefix = “<>”
	‘ замена тегов в исходном тексте
	While InStr(strMergedText, mmTagPrefix) > 0
		nStart = InStr(strMergedText, mmTagPrefix)
		nEnd = InStr(nStart, strMergedText,mmTagSuffix) + 1
		‘ Получает номер столбца
		nColNum = Val(Mid(strMergedText, _
			nStart + Len(mmTagPrefix), nEnd - nStart))
		strMergedText = Left$(strMergedText, nStart - 1) & _
			DataRow.Cells(1, nColNum).Value & _
			Right$(strMergedText,Len(strMergedText) - nEnd)
	Wend

	ParseString = strMergedText
End Function