|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.02.2018, 11:53 | #1 |
Регистрация: 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 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |