Поиск и замена в Word

[fob]

подскажите, плз, как в Word можно выполнить поиск куска текста и заменить его другим объектом, например, таблицей. Как я понял по неудавшимся экспериментам использование оюъекта Find тут не подходит. Точнее с помощью него можно найти текст, но впринципе проблема наверное сводится к тому, как получить Range найденного фрагмента текста и в это Range добавить таблицу?

[lord0n]

подскажите, плз, как в Word можно выполнить поиск куска текста и заменить его другим объектом, например, таблицей. Как я понял по неудавшимся экспериментам использование оюъекта Find тут не подходит. Точнее с помощью него можно найти текст, но впринципе проблема наверное сводится к тому, как получить Range найденного фрагмента текста и в это Range добавить таблицу?

а что запись макроса кто та отменил?

[fob]

В записанном макросе используется объект Selection. А мне нужно решение без объекта Selection

[alibek]

Вместо Selection подсунь результат Find.

[fob]

[nappel]

подскажите, плз, как в Word можно выполнить поиск куска текста и заменить его

Можно посмотреть реальные пример программы

For i = 0 To 15
For j = 0 To 59
wrd.ActiveWindow.Selection.Find.Text = "sh"
wrd.ActiveWindow.Selection.Find.Replacement.Text = "T"
wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue
wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne
wrd.ActiveWindow.Selection.SelectCell
wrd.ActiveWindow.Selection.Font.Color = wdColorWhite
wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = wdColorSeaGreen
Next j
Next i

[uhm]

nappel, афигительно. Просто 5 баллов и за код, и за "реальные пример программы ".