Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Mindjet MindManager VBA
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ara ara вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 01.02.2018
По умолчанию Mindjet MindManager VBA - 01.02.2018, 12:43

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов