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

2

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

Irina18 пишет:

Прошу помощи, очень нужно. Сделала все как написано в примере из блога 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

Возможно ошибка в том, что вы выделили закладку и печатаете текст. Лучше сбросьте документ, на котором возникает ошибка, для проработки - создавать закладку определённого вида - откровенно лень.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871