• M
  • Восстановленный участник
  • На форуме с 7 сентября 2003г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Find-Replase

Запускаю из акада вордовский макрос, потом сохраняю документ, и хочу заменить в нём все буквы "а" на значение в переменной PARAM1
которое получил акадовским макросом.
Замена не идёт. Подскажите как сделать замену.
Может есть способ передать PARAM1 в ворд?
Ниже код которым я пользуюсь:
wordAp.Application.Run "Normal.ListNameTableAW.ListNameTableAW"
With wordAp.Application.ActiveDocument
    .SaveAs (CommonDialog1.FileName)
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With .Selection.Find
        .Text = "a"
        .Replacement.Text = PARAM1
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Selection.Find.Execute Replace:=wdReplaceAll
End With

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Find-Replase

Не совсем понятно зачем Вы используете вложенные коллекции, попробуйте вот так

string1 = "а"
string2 = PARAM1
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = string1
    .Replacement.Text = string2
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With