Макрос - есть ответ « Вопросы и ответы

Nickname123, 568 просмотров

Помогите написать код в Visual Basic для следущей задачи:
В любом тексте найти максимальное(по количеству букв) слово и выделить его красным цветом, и каждое слово на 1 знак меньше максимального выделить зелёным цветом!

Ответы:

Обычно помогает.Так на всякий случайhttp://www.freebsd.org/doc/ru_RU.KOI8-R/books/handbook/sound-setup.html

Помочь ? Или сделать вместо.
Это разные задачи.
Если помочь то покажите что есть.
А если сделать вместо тогда вам сюда http://freelance.ru/

shururik

Я не знаю как в ворде, я больше по экселю.
Сперва надо выцепить слово и присвоить его в переменную НовоеСлово
А дальше - все просто. Тело таково:

Удачник

shururik (Александр Диденко) написал, как найти самое длинное слово, а я напишу, как до этого разделить текст по словам функцией Split.
Public Function CurrentFolder(sFolderPath)
Dim str1() As String ' Объявляем динамический массив неизвестно на сколько элементов
str1 = Split(sFolderPath) ' sFolderPath - это текстовый файл, делим его по пробелам и записываем слова в str1
CurrentFolder = str1(UBound(str1)) ' UBound(str1) - функция подсчитывает кол-во эл-тов в массиве str1.
End Function
Функция возвращает массив str1 с количеством элементов UBound(str1)
Дальше в цикле находишь самое длинное слово. Длиной Maxlen. И присваиваешь ему свойство цвета - красный
Потом в другом цикле находишь все слова длины Maxlen - 1. И присваиваешь им свойство цвета - зеленый.

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.