All Forums
 Категория Visio
 Форум Вопросы и ответы
 программное редактирование текста
Author Previous Topic Topic Next Topic  

Binni

2 Posts
Posted - 04/20/2006 :  14:47:23
Скажите пожалуйста, как отредактировать произвольную часть текста?
Я визио первый раз вижу, макрорекордера нет в 2002, а сделать очень нужно( хотя бы самый маленький примерчик на любом языке
Edited by - Binni on 04/20/2006 15:06:04

Tumanov

Russia
1198 Posts
Posted - 04/20/2006 :  19:17:59
Если в шейпе будет вот такая строка текста,
12345678901234567890
если шейп селектировать и выполнить вот такой макрос
Sub ttt()
Dim vsoChar As Visio.Characters
Set vsoChar = ActiveWindow.Selection(1).Characters
vsoChar.Begin = 12
vsoChar.End = 13
vsoChar.Text = "яяяяяяяяяя"
vsoChar.CharProps(visCharacterColor) = 2
End Sub
то текст в шейпе изменится на такой
12345678901яяяяяяяяяя34567890
причем буковки "я" будут красными.
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)