ara05ru

Здравствуйте дорогие друзья ! Столкнулся с такой проблемой. В программе Mindjet MindManager 2018 создана карточка и в нем очень много подтем с свойствами. Нужен механизм который делает поиск нужных свойств по имени и меняет на другое. Стандартный механизм поиска позволяет только искать эти свойства но не заменяет . Хотел сделать через макросы но мой код находит только имя подтемы, а свойства не видит. Подскажите пожалуйста как исправить код ?
------------------
Option Explicit
Dim FD As String
Dim RD As String
Dim m_Doc As Document
Dim m_Topic As Topic
Sub Main
FD = InputBox("Введиите искомое свойство")
For Each m_Topic In ActiveDocument.Range(mmRangeAllTopi cs, True)
If m_Topic.Find(FD) Then
RD = InputBox("заменить на")
m_Topic.Text=RD
MsgBox("ok")
End If
Next
End Sub
2018-01-30_125154.png