|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Mindjet MindManager VBA |
|
VBA - Mindjet MindManager VBA
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать
Здравствуйте дорогие друзья ! Столкнулся с такой проблемой. В программе 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 |
|
Отправлено: 11:58, 01-02-2018 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBA - VBA и Word | foxik | Программирование и базы данных | 5 | 28-03-2009 20:37 | |
VBA - Corel и VBA | Sanchos | Программирование и базы данных | 1 | 16-03-2007 11:30 | |
VBA - VBA | BOLT | Программирование и базы данных | 2 | 08-09-2003 10:56 |
|