1

Тема: По вопросу из блога (ФИО)

Прошу помощи, очень нужно. Сделала все как написано в примере из блога http://wordexpert.ru/page/ispolzovanie- … mment-7337. Автор примера рекомендует обращаться на форум, вот я и обращаюсь. У меня макрос останавливается на последней строке и выскакивает сообщение: ошибка 5224 неверное выделение. Посмотрите в чем у меня проблема. Файл моего шаблона тут внешняя ссылка. Зарание спасибо за помощь. Код в примере вот такой

Sub FIO()
Dim bm As Bookmark
Dim sText As String
Dim sArray() As String
Dim sResult1 As String
Dim sResult2 As String
Set bm = ActiveDocument.Bookmarks("bm")
sText = bm.Range.Text
sArray = Split(sText)
sResult1 = sArray(0) & " "
sResult1 = sResult1 & Left(sArray(1), 1) & ". "
sResult1 = sResult1 & Left(sArray(2), 1) & "."
sResult2 = sArray(2) & " "
sResult2 = sResult2 & sArray(1)
ActiveDocument.Bookmarks("fio").Select
Selection.TypeText sResult1
End Sub