Форум по VBA и MS Office

Привет форумчане.
В файле макросом склоняются по падежам ФИО двух сотрудников. Проблема в назначении данных для переменных. У меня данные определены для первого сотрудника, а как сделать для обоих у меня не получается. Прошу помощи в этом вопросе. Надо переделать вот этот кусок кода:

Спойлер

Dim F$, im$, O$
    F = Split(ActiveDocument.Fields(1).Result.Text, " ")(0)
    im = Split(ActiveDocument.Fields(1).Result.Text, " ")(1)
    O = Split(ActiveDocument.Fields(1).Result.Text, " ")(2)

[свернуть]

И если несложно хотелось, чтобы после очищения полей, где ввожу данные в именительном падеже, очищались и вычисляемые поля. Файл приложен. Всем спасибо. Забыла сказать, для снятия защиты пароль вводить не надо.


[вложение удалено администратором]

Заменила на вот это:

Спойлер

Dim F$, im$, O$
    F = Split(FullText, " ")(0)
    im = Split(FullText, " ")(1)
    O = Split(FullText, " ")(2)

[свернуть]

и все заработало.