1

Тема: Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

Добрый день. Вопрос в теме.
Делаю так:
   

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Font.Bold = wdToggle
        .Text = "тис. грн."
        .Replacement.ClearFormatting
        .Replacement.Text = "тис. грн."
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With

Но ничего не получается.

2

Re: Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

    With Selection.Find
        .Font.Bold = True ' не wdToggle!
        .Text = "тис. грн."
        .Replacement.ClearFormatting
        .Replacement.Text = "^&"
        .Replacement.Font.Bold = False 'При замене убираем полужирность
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
Лучше день потерять — потом за пять минут долететь!

3

Re: Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

viter.alex! А что значит строка:

.Replacement.Text = "^&"

Спасибо.

4

Re: Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

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

Лучше день потерять — потом за пять минут долететь!

5

Re: Как заменить жирний текст "тис. грн." на обычний текст "тис. грн."

Спасибо