Замена в выделенном тексте
 

Как заменить нашел на этом форуме Код:Sub MainDim Doc As ObjectDoc = ThisComponentza = Doc.createReplaceDescriptorza.SearchRegu larExpression = TRUEza.SearchString = "текст001"za.ReplaceString = "текст002"Doc.replaceAll(za)End Subкак сделать тоже самое, только в выделенном тексте, а не во всём документе?