Использование макроса для вывода части текста поля

[irina181]

Привет форумчане. Набрела тут на один урок (он тут http://wordexpert.ru/page/ispolzovan...a#comment-7337 ), всё вроде бы сделала правильно, но не работает. Смысл урока в том, что после ввода в поле фамилии имя и отчества, после нажатия TAB, в закладке ФИО должны отобразиться фамилия и инициалы. Макрос такой

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

. Условие работы макроса при защищенном листе.
Документ защищён (пароль: ничего не вводить) . Макрос останавливается на строке

sResult1 = sArray(0) & " "

, при наведении курсора на эту строку, появляется сообщение Subscript out range. Я в макросах практически ноль. Прошу помощи. Очень надо. Шаблон моего файла во вложении. Всем спасибо.

[Aleksandr H.]

Вы на 100% уверенны что полеввода имеет закладку bm а результат FIO?

[Serge_Bliznykov]

Вы невнимательно прочитали инструкцию и забыли дать полям имена:

Далее, перейдите в текст шаблона договора и выделите текстовое поле и в свойствах его (щелчок правой кнопкой и выбор команды "Свойства") установите флажок на параметрах "Разрешить изменения" и "Вычислить при выходе", а в поле "Закладка" введите имя закладки для этого поля - bm. В поле "При выходе" выберите ваш макрос "FIO" и закройте диалог.

Далее, определитесь - в каком месте шаблона у вас должно выводиться Фамилия с инициалами. В этом месте добавьте закладку (под именем "fio").

[Serge_Bliznykov]

впрочем, в MS Word 2010 мне данный пример не удалось заставить работать....

[irina181]

Приношу свои извинения за файл. Несколько раз перед этим переделывала и напутала. Переделала вновь, файл во вложении, но
теперь ошибка тут

Set bm = ActiveDocument.Bookmarks("bm")

. Посмотрите пожалуйста, что не так. Спасибо за быстрый ответ. У меня MS Word 2007

[Aleksandr H.]

Окно закладок имеет такой вид?

[irina181]

Не получилось вставить тут изображения, но они в фалах. Вроде я и закладку fio вставила и полю имя присвоила bm. Что еще не так?

[Aleksandr H.]

На 365ProPlus даный пример не работает тоже. Ошибка при записи в FIO.
Такой код отрабатывает

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

[irina181]

У меня в MsgBox результат выводит, а когда комментирую MsgBox, в закладку результата нет. На строке

ActiveDocument.Bookmarks("fio").Range.Text = sResult1

макрос останавливается, но при наведении курсора на sResult1 выдает правильный результат. Что делать? Файл приложен.

[Serge_Bliznykov]

попробуйте такой код:

Sub WriteToTextFF(writeText)
    With GetCurrentFF
        If .Type = wdFieldFormTextInput Then
            .Result = writeText
        End If
    End With
lbl_Exit:
    Exit Sub
End Sub
 
Private Function GetCurrentFF() As Word.FormField
    Dim rngFF, fldFF
    Set rngFF = Selection.Range
    rngFF.Expand wdParagraph
    For Each fldFF In rngFF.FormFields
        Set GetCurrentFF = fldFF
        Exit For
    Next fldFF
lbl_Exit:
    Exit Function
End Function


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
    WriteToTextFF (sResult1)
End Sub

взял код отсюда