Макросы в word: сколько в тексте абзацев и есть ли среди этих абзацев хотя бы один, длиннее 200 символов

@Лапуля · Регистрация: 04.06.2015

Студворк — интернет-сервис помощи студентам

Написать макрос, который по произвольному тексту определяет, имеет ли этот текст определенные свойства (зависящие от варианта).
Макрос должен вызываться какой-то комбинацией клавиш из документа с исходным текстом (создать его самостоятельно).
Результат работы макроса должен выводиться в виде сообщения Windows (используйте команду MsgBox(“Текст”) ).

Вот условие: Определить, сколько в тексте абзацев и есть среди этих абзацев хотя бы один, содержащий больше 200 символов.

@Surrogate · 18.06.2015, 15:37

а данном форуме существуют правила, при регистрации вы должны были их прочесть и обязались выполнять!

1. Общие положения.
1. Форум предназначен для обсуждения вопросов …
2. Каждый пользователь соглашается с настоящими Правилами фактом регистрации на форуме и участия в нем. Незнание Правил не освобождает от ответственности.
3. Если пользователь отказывается соблюдать настоящие Правила, то он должен либо самостоятельно покинуть форум, либо его аккаунт будет заблокирован.
6. Действие Правил распространяется на весь форум, включая блоги, личные сообщения, а также на всех его участников.
3. Правила поведения на форуме.
6. Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста.
4. Порядок создания тем.
1. Прежде чем задать вопрос, воспользуйтесь поиском - возможно, ответ на него уже был дан ранее.
3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
7. Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены.
5. Запреты и ограничения.
Запрещено размещать тему в нескольких подразделах одного раздела одновременно (кросспостинг), а также дублировать тему в одном разделе.

найдите 10 различий

Сообщение от Лапуля

Написать макрос, который по произвольному тексту определяет, имеет ли этот текст определенные свойства (зависящие от варианта).

Сообщение от Лапуля

Написать макрос, который по произвольному тексту определяет, имеет ли этот текст определенные свойства (зависящие от варианта).

@Лапуля · 18.06.2015, 15:38 **[ТС]**

я перепутала разделы

@Surrogate · 18.06.2015, 15:49

странно. обе ветки в одном разделе, ну ладно не суть!

Сообщение от Surrogate

7. Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены

Добавлено через 6 минут

Сообщение от Surrogate

а какие могут быть у текста свойства ?

Сообщение от Лапуля

сколько абзацев и есть ли абзац в более 200 символов))

что же вы сделали для решения задачи, кроме кросс-постинга ?

@Sasha_Smirnov · 18.06.2015, 17:26

Подгоню баркас: внизу подборка тем.

А наш(а) Лапуля просто мастер формулировок!

@Surrogate · 18.06.2015, 17:40

Не по теме:

Сообщение от Sasha_Smirnov

Подгоню баркас: внизу подборка тем.

мастера социнжиниринга 90lvl вроде нашей(го) ТС не смотрят в подборку тем, а ждут готовых решений !

@Sasha_Smirnov · 18.06.2015, 18:22

Ну я всё же для развития темы снизу зачерпнул:

@AlexDeSex · 18.06.2015, 21:12

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub MyMacros()
Dim n As Integer
Dim max As Integer
Dim s As String
n = ActiveDocument.Paragraphs.Count
Dim p As Word.Paragraph
 
For Each p In ActiveDocument.Paragraphs
    With p.Range.Characters
            If .Count > max Then     
            max = .Count
            End If
    End With
Next
s = "Абзацев " + Str(n)
If max > 200 Then
    s = s + ". Да. Есть."
    Else: s = s + ". Нет."
    End If
MsgBox (s)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Лапуля 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 9

	Макросы в word: сколько в тексте абзацев и есть ли среди этих абзацев хотя бы один, длиннее 200 символов 18.06.2015, 15:23. Показов 2751. Ответов 7 Метки нет (Все метки) Написать макрос, который по произвольному тексту определяет, имеет ли этот текст определенные свойства (зависящие от варианта). Макрос должен вызываться какой-то комбинацией клавиш из документа с исходным текстом (создать его самостоятельно). Результат работы макроса должен выводиться в виде сообщения Windows (используйте команду MsgBox(“Текст”) ). Вот условие: Определить, сколько в тексте абзацев и есть среди этих абзацев хотя бы один, содержащий больше 200 символов. 0

@Лапуля 0 / 0 / 0 Регистрация: 04.06.2015 Сообщений: 9
	18.06.2015, 15:38 [ТС]
	я перепутала разделы 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	18.06.2015, 17:26
	Подгоню баркас: внизу подборка тем. А наш(а) Лапуля просто мастер формулировок! 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	18.06.2015, 18:22
	Ну я всё же для развития темы снизу зачерпнул: 1

Макросы в word: сколько в тексте абзацев и есть ли среди этих абзацев хотя бы один, длиннее 200 символов

Решение