Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.10.2015
Сообщений: 55

Выведение окна сообщения с пятым словом выделенного фрагмента

31.10.2015, 13:44. Показов 1164. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как Вывести окно сообщения с пятым словом выделенного фрагмента?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.10.2015, 13:44
Ответы с готовыми решениями:

Удаление всех символов от выделенного фрагмента до конца абзаца
Как удалить все символы от выделенного фрагмента до конца абзаца? Добавлено через 33 минуты в word

Как вывести на экран номер страницы на которой расположен конец активного выделенного фрагмента
помогите пожалуйста

Поиск слова в строке и выведение предложения с этим словом
Доброго времени суток! Я написал код, позволяющий узнать, встречается ли слово в тексте, и выводит количество его повторений. Теперь мне...

5
 Аватар для kalbasiatka
416 / 263 / 83
Регистрация: 27.10.2012
Сообщений: 861
31.10.2015, 14:13
В какой программе это надо делать?
0
0 / 0 / 0
Регистрация: 20.10.2015
Сообщений: 55
31.10.2015, 14:25  [ТС]
word
0
 Аватар для kalbasiatka
416 / 263 / 83
Регистрация: 27.10.2012
Сообщений: 861
31.10.2015, 14:51
про ворд не знаю, но думаю по аналогии с excel прокатит
Visual Basic
1
MsgBox Split(Selection, " ")(4)
0
 Аватар для pashulka
4139 / 2243 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
31.10.2015, 15:29
Лучший ответ Сообщение было отмечено merick как решение

Решение

В Word'е можно также использовать :

Visual Basic
1
MsgBox Selection.Words(5) '.Text
Однако, если в выделенном тексте окажется меньше пяти слов, то получим ошибку, которой можно избежать, если просто добавить проверку :

Visual Basic
1
2
3
4
5
If Selection.Words.Count > 4 Then
   MsgBox Selection.Words(5)
Else
   MsgBox "Выделенный фрагмент содержит меньше 5 слов"
End If
1
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
01.11.2015, 03:37
Цитата Сообщение от merick Посмотреть сообщение
…а так их раза в два больше
Полезно было бы и вторую половину выложить!

Добавлено через 24 минуты
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Практически разобраться можно так.

Курсор в начало текста. Вы в начале Words(1). Ctrl нажать и не отпускать. Стрелка вправо. Вы в начале Words(2). [Если оно есть.] И так далее.

Как легко увидеть, курсор скачет не только по началам слов — он пробегает все элементы ActiveDocument.Words.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.11.2015, 03:37
Помогаю со студенческими работами здесь

Ввести строку и слово. Вставить введенное слово за пятым словом в строке
Помогите ребят. Нужно написать программу на С++ без использования библиотек <ctype.h>, <string.h> или <stdlib.h>. ...

Изменение шрифта выделенного фрагмента текста в RichTextBox
Здравствуйте! Мне нужно выделил фрагмент текста и нажал на кнопку и выделенный текст изменился Отдельно если сделать кнопки например...

Изменить размер шрифта выделенного фрагмента текста в RichTextBox
Цвет выделенного фрагмента текста я меняю так: if (richTextBox.SelectionFont != null) { ...

Изменить размер шрифта выделенного фрагмента текста в RichTextBox
Цвет выделенного фрагмента текста я меняю так: if (richTextBox.SelectionFont != null) { ...

Как в RichTextBox изменить цвет выделенного фрагмента текста?
пожалуйста вами как сделать копировать цвет? посмотреть исправить уже не нашел не получить :cry:


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru