Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 4
1

Поменять цвет и размер каждого слова

10.06.2015, 17:44. Просмотров 409. Ответов 1
Метки нет (Все метки)

Прошу помощи, не могу никак разобраться. У меня программа меняет цвет и размер каждой буквы, ну и также переворачивает слова. Мне нужно, чтобы менялся цвет и размер не отдельной буквы, а отдельного слова.например одно слово 14 шрифтом и красным цветом, другое 30 шрифтом зеленого цвета.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Proga()
'
' Proga nnn
'
 
ActiveDocument.Paragraphs(1).Range.Select
Selection.Font.Bold = True
 
Dim A() As String
Dim i As Integer
Dim s1 As String
Dim s2 As String
Const c = 256# * 256 * 256
Dim x
 
 
s1 = Trim(Selection.Text)
If Asc(Right(s1, 1)) = 13 Then s1 = Left(s1, Len(s1) - 1)
Arr = Split(s1, " ")
For i = 0 To UBound(Arr)
s2 = s2 & StrReverse(Arr(i)) & " "
Next i
Selection.Text = Trim(s2)
 
For Each x In Selection.Characters
    x.Font.Color = Int(c * Rnd)
    x.Font.Size = Int((10 - 16 + 1) * Rnd + 16)
Next
 
 
 
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2015, 17:44
Ответы с готовыми решениями:

Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа.
Началось VBA - лекций нет, только практика. Препод категоричеки отказывается что-нить объяснять,...

В шаблоне поменять цвет и размер шрифта
Как поменять цвет и размер шрифта в шаблоне. Скачал шаблон, меню не особо нравиться, надо поменять...

Как поменять размер, цвет, шрифт в joomla 2.5, шаблона LEO TOOLS?
Всем привет! Я новичок, меня зовут Александр. Есть необходимость создать интернет магазин, начал...

При выводе матрицы в Label поменять цвет каждого элемента
Доброго времени суток! Подскажите, пожалуйста!!! Как в VB 2008 при выводе матрицы в лейбел поменять...

1
466 / 123 / 61
Регистрация: 04.03.2015
Сообщений: 325
10.06.2015, 22:08 2
Цитата Сообщение от Анна Голованова Посмотреть сообщение
Мне нужно, чтобы менялся цвет и размер не отдельной буквы, а отдельного слова
Строчки с 25 о 28 замените на
Visual Basic
1
2
3
4
5
6
7
8
Dim temp As Integer, mas() As String
temp = 1
mas = Split(Selection.Text, " ")
For i = LBound(mas) To UBound(mas)
    Selection.Characters(temp, Len(mas(i))).Font.Color = Int(c * Rnd)
    Selection.Characters(temp, Len(mas(i))).Font.Size = Int((10 - 16 + 1) * Rnd + 16)
    temp = temp + Len(mas(i)) + 1
Next i
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 22:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как поменять цвет отрезка после каждого полного оборота? (Графики и движение)
Здравствуйте!В задаче обеспечить плавное движение заданных объектов, самостоятельно подбирая для...

Макрос - поменять шрифт, размер и цвет. Изменение цвета не сработало. Ещё удалить выделение ([CTRL]+[A]) надо
Решил записать макрос. Начал запись рекордером и делаю следующее: 1) жму + 2) выбираю шрифт Time...

Можно ли поменять цвет текста отдельного слова в RTB?
или в WPF такое только можно?

Поменять местами 1-ю и 3-ю буквы каждого слова в строке
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены...

Поменять первую букву каждого слова на заглавную
Привет всем, написал вот такой код, но он явно не хочет работать def capitalize(string): ...

Робота с файлами. Сформировать файл "К", содержащий информацию о кубиках: размер каждого кубика (длина ребра в см), цвет
Сформировать файл "К", содержащий информацию о кубиках: размер каждого кубика (длина ребра в см),...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.