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

Доработке макроса

16.05.2016, 00:08. Показов 826. Ответов 6

Нужна помощь в доработке макроса. Макрос ставит после каждого слова символ и скрывает его, нужно что бы он ставил этот символ перед каждой буквой и скрыл.
сам макрос
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
Sub Черт()
'
' Черт Макрос
'
'
    Selection.WholeStory
    Selection.Font.Color = -603914241
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ChrW(3852) & " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 1
        .Hidden = True
        .Color = -603914241
    End With
    With Selection.Find
        .Text = ChrW(3852)
        .Replacement.Text = ChrW(3852)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Font.Color = wdColorAutomatic
End Sub
PS - если есть в оформлении темы ошибки прошу модераторов их исправить.

Добавлено через 18 минут
И можно как вариант чтобы макрос ставил до каждого слова символ и скрывал его.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2016, 00:08
Ответы с готовыми решениями:

Запуск макроса из макроса ИЛИ повторение одного и того же кода
Excel Есть код в 10 строк (назовем его "блок"), который повторяется 5 раз в модуле (макросе)....

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

Вызов из макроса другого макроса
general.xlsm Sub OpenFile1() Workbooks.Open Filename:="Z:\1\2.xlsm" Call...

Запуск макроса из другого макроса
Как в Word запустить из одного макроса другой? RunMacro куда засунуть?

6
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
16.05.2016, 00:22 2
ainur12, это можно, но я предлагаю
Цитата Сообщение от tatitata Посмотреть сообщение
найти на просторах интернета ответ на этот вопрос
Антиплагиат, знаете ли, это явный подрыв репутации всех министерств образования!
0
0 / 0 / 0
Регистрация: 15.05.2016
Сообщений: 3
16.05.2016, 00:51  [ТС] 3
Sasha_Smirnov
Я только прошу чуть изменить макрос, если бы на просторах интернета нашелся бы ответ я бы не писал в этот форум.

Добавлено через 10 минут
"подрыв репутации всех министерств образования!" - Сама современная система образования свою репутацию подрывает - от того, что бы детей учить чему-то новому учат как правильно сдать эгэ, до не актуальных учебников в образовательных учреждениях!

Добавлено через 14 минут
Всем кто решится помочь буду очень признателен, кроме этого я готов отблагодарить какой-нибудь услугой или другим полезным для вас делом)
0
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
16.05.2016, 00:52 4
Мне интересно, для чего вам эта ерунда по ломанию текста. Предыдущие 20 лет я тексты лишь улучшал, понимаете?

(Не вижу соблазна даже в каких-то умопомрачтельных гонорарах за соучастие в этом.)
0
0 / 0 / 0
Регистрация: 15.05.2016
Сообщений: 3
16.05.2016, 00:57  [ТС] 5
Потому что сам преподаватель мне сказал, что у нас в юриспруденции сделать оригинальным работу практически невозможно т.к. нельзя изменять тексты законов, Термины и тд
И намекнул, что оригинальность в работе можно поднять технический.
0
5557 / 1363 / 150
Регистрация: 08.02.2009
Сообщений: 4,106
Записей в блоге: 30
16.05.2016, 01:53 6
Цитата Сообщение от ainur12 Посмотреть сообщение
Термины и тд
Это, может быть, и не моего ума дело, но для чего же ему такая оригинальность?
0
Модератор
Эксперт MS Access
10371 / 4289 / 692
Регистрация: 07.08.2010
Сообщений: 12,037
Записей в блоге: 4
16.05.2016, 07:34 7
перед каждой буквой и скрыл.
а зачем перед каждой буквой, перебор получится
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2016, 07:34

Создание макроса
Добрый вечер! Такое задание. Создать макрос, изменяющий шрифт выделенного текста на Arial 16,...

Игнорирование макроса
Добрый день! В листе "Эта книга" есть макрос,который необходимо игнорировать при выполнении...

Закрепление макроса!
Скажите пожалуйста, как закрепить макрос за определенный документом? Что бы можно было отправить...

Совместимость макроса
Всем. здравствуйте. Я новенькая в VBA. на практике столкнулась с проблемой: написала по аналогии...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru