1 Тема от Irina18

  • Irina18
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2017
  • Сообщений: 11
  • Поблагодарили: 2

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

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

  • По вопросу из блога (ФИО)
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

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