Народ, помогите кто-нибудь с объектом Find из Word !

[Tarh3]

Пытаюсь установить свойство "имя шрифта" в объекте Find и чего-то не получается.
Вот что я делаю:

Код: Выделить всё

Dim r As RangeSet
r = ActiveDocument.Range
r.Find.Font.Name = "Arial"


Но при отладке вижу, что Name = "" ,а вместо этого ставятся r.Find.Font.NameAscii = "Arial" и r.Find.Font.NameOther = "Arial"
Где я ошибаюсь?

[RayShade]

Да нормальная в принципе ситуация. NameAscii и NamеOther это проперти, которые содержат имена фонтов для символов 0-127 и 128-255 соответствено. Присвосение значения проперти Name приводит к присовению значеий этим пропертям.