Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2018, 11:53   #1
ara05ru
 
Регистрация: 01.02.2018
Сообщений: 9
По умолчанию Mindjet MindManager VBA

Здравствуйте дорогие друзья ! Столкнулся с такой проблемой. В программе 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
ara05ru вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA в массиве размерности N определить кол-во положительных чисел, которые делятся на 3 без остатка VBA Mr.Aiba Помощь студентам 1 15.06.2017 22:29
VBA. Напишите процедуру на языке VBA, которая определяет сократимость дроби a/b (b≠0) . Вычисление наибольшего общего делителя (НОД) чисел a и b оформить в виде функции. Lizka Microsoft Office Excel 2 23.04.2017 11:07
VBA и Oracle: stored procedure из VBA и сохранение текста в переменной Lionne Microsoft Office Excel 1 15.04.2013 19:51
VBA Word,VBA Excel решить 2 задачи fafolo4ka Фриланс 6 05.03.2012 01:15