Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/24: Рейтинг темы: голосов - 24, средняя оценка - 4.50
timsc1
11 / 11 / 2
Регистрация: 27.11.2011
Сообщений: 642
1

MS Office Word, чтобы все буквы в тексте стали разноцветными

21.01.2012, 11:31. Просмотров 4733. Ответов 4
Метки нет (Все метки)

Помогите с программой на VBA (макрос), чтобы в ворде 2010 в выделенном тексте все буквы стали разноцветными. Спасибо!!!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 11:31
Ответы с готовыми решениями:

Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми
Доброго времени суток друзья! В общем нужно решить 6 задач. Кто может проявить инициативу?...

Как сделать так, чтобы одним нажатием кнопки, заглавные буквы стали маленькими?
Как сделать так, чтобы одним нажатием кнопки, заглавные буквы стали маленькими? Помогите...

Файлы и Папки в корневике стали недоступными, а буквы в названиях стали нечитабельными символами
Добрый день, Всем. Случилось неладное. На портативном винчестере Samsung (S2 Portable 3.0 — 1Tb,...

Записать текст в новый файл таким образом, чтобы заглавные буквы стали строчными и наоборот
Дан текстовой файл, строки которого состоят из заглавных и строчных букв. Записать текст в новый...

Заданы две строки. Можно ли переставить буквы в одном из слов так, чтобы слова стали одинаковыми?
F. Заданы две строки А и В. Можно ли переставить буквы в одном из слов так, чтобы слова стали...

4
all_angarsk
755 / 262 / 57
Регистрация: 13.12.2009
Сообщений: 1,021
21.01.2012, 12:53 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub большие()
'
' большие Макрос
'
'
   
    Selection.MoveLeft Unit:=wdCharacter, Extend:=wdExtend
    With Selection.Font
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .AllCaps = True
        .Color = wdColorAutomatic
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
End Sub
0
Казанский
14903 / 6306 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
21.01.2012, 13:46 3
А при чем тут AllCaps?
Visual Basic
1
2
3
4
5
6
7
Sub разноцветные()
Const C = 256# * 256 * 256
Dim x
For Each x In Selection.Characters
    x.Font.Color = Int(C * Rnd)
Next
End Sub
0
all_angarsk
755 / 262 / 57
Регистрация: 13.12.2009
Сообщений: 1,021
21.01.2012, 20:40 4
я показал простой путь доступный и не программисту. Это макрос - я его не правил.
Твой код, как всегда навысоте.
0
Sasha_Smirnov
5493 / 1321 / 144
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
21.01.2012, 20:50 5
Предвкушая навороты от Минвуза: Каждое слово - новым цветом
0
21.01.2012, 20:50
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2012, 20:50

Заменить в тексте все буквы «А» на буквы «О»
Создать в редакторе текстовый файл. Считать этот файл с помощью программы, вывести его ...

Преобразуйте массив так, чтобы все положительные элементы массива стали отрицательными и наоборот
1. Преобразуйте массив так, чтобы все положительные элементы массива стали отрицательными и...

Заменить в тексте все большие латинские буквы на маленькие, не изменяя все остальные символы
Цель работы: Сформировать понятие величин строкового типа. Научиться составлять алгоритмы обработки...


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

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

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