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

Выделение в тексте жирным шрифтом прописными буквами 16 с мигающим фоном каждого четного символа в фигурных скобках

02.06.2018, 08:41. Показов 1799. Ответов 7
Метки нет (Все метки)

нужно написать этот макрос на выделение в тексте жирным шрифтом прописными буквами 16 с мигающим фоном каждого четного символа стоящего в фигурных скобках
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2018, 08:41
Ответы с готовыми решениями:

Выделение текста жирным шрифтом
Добрый день! Есть диапазон ячеек. В некоторых из них записан текст через точку. Необходимо...

Жирным шрифтом в тексте
к примеру есть сайт, с текстовым наполнением, каджая статья, так символов о 10000-20000, если тупо...

Выделение слова в форуме жирным шрифтом
Всем привет! Меня заинтересовал такой вопрос: Возьмём к примеру этот форум, и вот такой текст:...

MonthCalendar - выделение выбранной даты жирным шрифтом
Добрый вечер форумчане не могу разобраться с элементом MonthCalendar а точней как реализовать...

7
11229 / 3596 / 641
Регистрация: 13.02.2009
Сообщений: 10,732
02.06.2018, 21:49 2
Кому нужно тот пусть и пишет!

 Комментарий модератора 
к чему такая резкость, да еще в выходной
не надо портить ТС настроение


Добавлено через 1 час 53 минуты

Не по теме:

ТС не счёл нужным хотя бы поздороваться и попросить о помощи!
Но нет! от тупо выдал своё задание форумчанам!
Сам палец о палец не ударил!
Это я ещё мягко!

0
0 / 0 / 0
Регистрация: 02.06.2018
Сообщений: 3
03.06.2018, 01:33  [ТС] 3
Я бы не обращался на форум еслибы я это смог сделеть .
0
1442 / 995 / 313
Регистрация: 11.07.2014
Сообщений: 3,528
03.06.2018, 08:25 4
Не представляю, как можно разделить общий фон, на котором вводятся символы, на кусочки разного цвета. Цвет символов можно менять. По поводу мигания в Инете приводятся макросы с использованием On Time. С Алексом согласен.
0
Модератор
Эксперт MS Access
10136 / 4137 / 673
Регистрация: 07.08.2010
Сообщений: 11,638
Записей в блоге: 4
03.06.2018, 09:11 5
в старом ворде была галочка --бегущая строка или что-то подобное
сейчас в 2010 ворде не нашла такого
0
Модератор
Эксперт MS Access
10136 / 4137 / 673
Регистрация: 07.08.2010
Сообщений: 11,638
Записей в блоге: 4
03.06.2018, 10:21 6
Лучший ответ Сообщение было отмечено Daniilc01 как решение

Решение

хотя нечто похожее сотворила
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub mm180603_09()
Dim docNew As Document, k, n
Dim c1 As Object
Set docNew = Word.ActiveDocument
 
With docNew.Content
    ''.InsertAfter "This is a test of animation. Это тест анимации"
    ''.Font.Animation = 4
    .Font.Size = 16
    .Font.Bold = True
End With
k = 0
n = 0
For Each c1 In docNew.Characters
If c1.Text = "{" Then
Debug.Print
n = 1
k = 0
End If
If n = 1 Then
Debug.Print c1.Text;
k = k + 1
End If
If c1.Text = "}" Then n = 0
 
If k = 3 Then
If n = 1 Then
c1.Font.Animation = 2
Else
c1.Font.Animation = 0
 
End If
k = 1
Else
c1.Font.Animation = 0
End If
    '' = wdAnimationNone
''  wdAnimationBlinkingBackground 2 Черно-белый, мигающий фон.
''wdAnimationLasVegasLights 1 чередующаяся граница цвета и рисунка.
''wdAnimationMarchingBlackAnts 4 Вращающаяся черная пунктирная рамка.
''wdAnimationMarchingRedAnts 5 Вращающаяся красная пунктирная рамка.
''wdAnimationNone 0 Без анимации. По умолчанию.
''wdAnimationShimmer 6 Шрифт мерцает и не в фокусе.
''wdAnimationSparkleText 3 Случайно чередующийся узор и цвет фона.
''
Next c1
'
 ActiveWindow.View.ShowAnimation = True
End Sub
1
Миниатюры
Выделение в тексте жирным шрифтом прописными буквами 16 с мигающим фоном каждого четного символа в фигурных скобках  
0 / 0 / 0
Регистрация: 02.06.2018
Сообщений: 3
12.06.2018, 10:40  [ТС] 7
Alex77755,
Вы что пристали ко мне не знаете, так не надо писать здесь.

Добавлено через 50 секунд
Alex77755,
И это не учебное задание.
0
11229 / 3596 / 641
Регистрация: 13.02.2009
Сообщений: 10,732
12.06.2018, 10:44 8
слишком много ошибок
Избегайте грамматических ошибок при написании сообщений - уважайте себя и других участников форума.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2018, 10:44

Помощь в написании контрольных, курсовых и дипломных работ здесь.

MonthCalendar - выделение нужной даты жирным шрифтом
Такая проблема,решил сделать календарь. Посмотрел в интернете,есть метод AddBoldedDate,который...

Выделение отдельных слов в RichTextBox жирным шрифтом
Здравствуйте, уважаемые форумчане. Есть такая задача: в поле RichTextBox нужно вывести перечень...

Выделение отдельного куска текста жирным шрифтом в label
Можно ли как-нибудь выделить жирным шрифтом кусок текста, допустим, в том же label'е? Когда меняю...

Выделение из ячейки слов с прописными буквами
Здравствуйте! Уважаемые форумчане, есть проблема. В ячейках имеется длинное описание товара. В...

Задание: выделить первое предложение каждого абзаца жирным шрифтом
Здравствуйте! Помогите пожалуйста. Задание: выделить первое предложение каждого абзаца жирным...

Программа, которая форматирует жирным шрифтом первое предложение каждого абзаца
Напишите программу, которая форматирует жирным шрифтом первое предложение каждого абзаца.


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

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

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