Поиск и замена надстрочных символов

[Саша]

Всем привет!:)
Подскажите, если не трудно, такая проблема: нужно написать макрос, чтобы он находил на странице, например, все буквы Q, и заменял их на единицу, но уже в виде надстрочного символа (это вроде степени, например, А в квадрате:)))

Я вот написал:

Код:

Selection.Find.Replacement.ClearFormatting
        Selection.Find.ClearFormatting
        Selection.Find.Text = "Q"
        Selection.Find.Replacement.Font.Superscript = wdToggle
        Selection.Find.Replacement.Text = "1"
        Selection.Find.Forward = True
        Selection.Find.Wrap = wdFindContinue
        Selection.Find.Format = False
        Selection.Find.MatchCase = False
        Selection.Find.MatchWholeWord = False
        Selection.Find.MatchWildcards = False
        Selection.Find.MatchSoundsLike = False
        Selection.Find.MatchAllWordForms = False
    Selection.Find.Execute Replace:=wdReplaceAll

Но этот код почему-то просто замещает все Q на 1, без перевода их в надстрочные.
Помогите, пожалуйста:)

[HandKot]

добавьте ещё одну строку

Код:

        .Replacement.Font.Superscript = True

а точнее у Вас уже есть такая строка

Код:

Selection.Find.Replacement.Font.Superscript = wdToggle

попробуйте в ней вместо wdToggle подставить True

[Саша]

Мне эта идея тоже в голову приходила:) но блин ,эффекта ноль:(

[HandKot]

не знаю
Ворд 2003, код работатет

Код:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "q"
        .Replacement.Text = "1"
        .Replacement.Font.Superscript = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

кажись у нас еще в этой строке разница

Код:

Selection.Find.Format = False

[Саша]

Благодарю!:) Всё заработало:)