Фамилия и инициалы.

Что-то файл не загрузился. Пробую еще раз. Не грузятся фалы, ни архивированные, ни обычные шаблоны, ни картинки. Что за ерунды? Корче в коде

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

ошибка в последней строке.

а макрос вполне работает, что-то вы неправильно сохраняете или отчество не набили, а макрос вызвали на выполнение
или один документ не сохранили, а открыли другой

Попробуйте прикрепить архив. Может быть, файл очень большой?
В крайнем случае можно разместить файл на файлообменник, а здесь выложить ссылку.

У вас файл защищен от изменений(кроме форм)
поэтому строка, изменяющая документ  -работать не будет

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

поля REF работают, а  передача из поля ввода в закладку или другое поле ппода --не работает(я не смогла заставить)
1             FORMTEXT     покуп  04ооооо
2             FORMTEXT     продав 04 пппп ппппппппппп
3             FORMTEXT     полные 4фамилия2 имя отчество
4             FORMTEXT     краткое фамилияИО
5             REF  pkupatel \* Caps  \* MERGEFORMAT    Покуп  04ооооо
6             REF  prodavec \* Caps  \* MERGEFORMAT    Продав 04 Пппп Ппппппппппп
7             REF bm \* Caps  \* MERGEFORMAT           Полные Фамилия2 Имя Отчество
8             REF fio1 \* Caps  \* MERGEFORMAT         Краткое Фамилияио

продавец и покупатель копируются полем REF. это делает система
получение же краткойФИО требует записи в закладку/поле макросом ---это и не работает

====
или неправильно вызываем макрос --я не смогла заставить его работать
--сначала не запускался совсем
--перепробовала все --стал запускаться, но отказался изменять защищенный документ

почему вы идете таким путем(из ворда в ворд)