Макросы в 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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

	Макросы в word: сколько в тексте абзацев и есть ли среди этих абзацев хотя бы один, длиннее 200 символов 18.06.2015, 15:23. Показов 2814. Ответов 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 символов

Решение