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

В выделенном абзаце подчеркнуть те слова, длина которых выражается чётным числом (Word)

20.06.2015, 00:14. Просмотров 732. Ответов 4
Метки нет (Все метки)

Срочно нужна помощь в решении задачи
13. Word : В выделенном абзаце подчеркнуть те слова, длина которых выражается чётным числом, а также установить для них размер шрифта в 20 пт.
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2015, 00:14
Ответы с готовыми решениями:

Word : В первом абзаце подчеркнуть те слова, длина которых выражается нечётным числом
3. Word : В первом абзаце подчеркнуть те слова, длина которых выражается нечётным числом.

Word : Выделить зелёным фоном то слово в выделенном абзаце, номер которого получен из функции InputBox
1. Word : Выделить зелёным фоном то слово в выделенном абзаце, номер которого получен из функции...

задан текст. удалить из нее все слова, длина которых четная (создать новый массив, оставив все слова, длина которых нечетная)
задан текст. удалить из нее все слова, длина которых четная (создать новый массив, оставив все...

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

Определить является ли произведение элементов массива, значение которых меньше 10, чётным числом
Дан массив 3*3 из целых чисел заполненный случайными числами из интервала . Определить является ли...

4
Sasha_Smirnov
5495 / 1322 / 145
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
21.06.2015, 02:30 2
Цитата Сообщение от Марина020696 Посмотреть сообщение
установить для них размер шрифта в 20 пт
Это пока не делал, а на первую часть есть готовое решение в теме вашей однокашницы: Написать универсальную подпрограмму, преобразующую произвольные полярные координаты в декартовы.

В отличие от всех прочих решений — переваривает даже экс-премьер-министра (20 символов, из них букв — 18)!

Добавлено через 1 час 25 минут
Одна беда: подчеркивает как
Цитата Сообщение от Марина020696 Посмотреть сообщение
те слова, длина которых выражается чётным числом,
так и кусочки тех слов в других словах выделенного абзаца (но за 1,5 ч всего и не охватишь, так что так с помарочками и отсылаю):
0
Изображения
Тип файла: png 2015-06-21_021733.png (61.2 Кб, 4 просмотров)
Вложения
Тип файла: doc Hypermacroid.doc (48.5 Кб, 7 просмотров)
Sasha_Smirnov
5495 / 1322 / 145
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
21.06.2015, 02:39 3
Запуск макроса: функциональная клавиша F6. Сброс результата выполнения: сочетание Ctrl+spacebar.
0
Sasha_Smirnov
5495 / 1322 / 145
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
22.06.2015, 01:38 4
4,5 ч искал лекарство от вышеуказанного бага — а в итоге за 5 минут замутил его отдельной процедурой:
Visual Basic
1
2
3
4
5
6
Sub ОчисткаНеполныхПодчёркиваний()
Dim w As Object
    For Each w In Selection.Range.Words
        If w.Characters.Last.Previous.Font.Underline = False Then w.Font.Underline = False
    Next
End Sub
Ещё за 4 ч «лекарство» стало десятиэтажным!

Зато теперь результат налицо (хотя решение и аляповатое). Запуск в документе по F6.
0
Изображения
Тип файла: png 2015-06-22_012755.png (76.8 Кб, 4 просмотров)
Тип файла: png 2015-06-22_что-то.png (173.0 Кб, 4 просмотров)
Вложения
Тип файла: doc Hypermacroid.doc (52.0 Кб, 8 просмотров)
Sasha_Smirnov
5495 / 1322 / 145
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
23.06.2015, 20:48 5
Текст предоставила небезызвестная Лапуля в своей теме Каждое второе слово выделенного текста напечатать полужирным шрифтом, а остальные слова подчеркнуть.

Вообще это очень ценно — тестировать программу на чём-то реальном, не подогнанном!
0
23.06.2015, 20:48
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2015, 20:48

Напечатать те слова из последовательности, которые отличны от последнего слова и длина которых максимальна
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Выбрать из заданной строки все слова, длина которых равна длине первого слова
Напишите программу, выбирающую из заданной строки все слова, длина которых равна длине первого...

Выбрать из данной строки все слова, длина которых равна длине первого слова
Написать программу, выбирающую из данной строки все слова, длина которых равна длине первого...


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

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

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