Средняя длина слова

@Rikado · Регистрация: 17.10.2015

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

Здравствуйте, подскажите пожалуйста как найти среднею длину слова в тексте документа Word, при помощи VBA.

@~~Апострофф~~ · 07.11.2015, 21:11

Visual Basic

1	MsgBox ActiveDocument.Characters.Count / ActiveDocument.Words.Count

@Rikado · 07.11.2015, 21:45 **[ТС]**

Апострофф, А как найти максимальную длину слова в тексте Word не подскажите?

mobile · 07.11.2015, 22:26

Так попробуйте

Visual Basic

Sub lenword()
    Dim w$, n&, i&, wmax$
    n = 0
    For i = 1 To ActiveDocument.Words.Count
        w = ActiveDocument.Words(i)
        If Len(Trim(w)) > n Then n = Len(Trim(w)): wmax = w
    Next
    MsgBox "Самое длинное слово - " & wmax & ". Его длина равна " & n
End Sub

@Sasha_Smirnov · 08.11.2015, 04:53

Но: какой-нибудь альфа-гемоглобин так не найти.

Сообщение от Апострофф

ActiveDocument.Words.Count

Это число элементов семейства ActiveDocument.Words* — а не число слов как таковых.

Сообщение от Апострофф

ActiveDocument.Characters.Count

Ну да, правильно, это количество символов. Но не все же они принадлежат словам (есть разделители).

О реальном** (близком к ручному подсчёту) количестве слов см. в теме serzhfil68’а: Word: макрос, подсчитывающий количество слов в документе.

А пока что, как метко выразился LeDep, тут мы имеем решение лишь

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

в крации

__________________
* это разноцветные прямоугольники на рис. 1
** см. рис. 2 (зелёный фон); использован код из темы Shadowdk’а про мычащие слова (тоже недоделанный)!

Средняя длина слова

Решение

Решение

@Rikado 0 / 0 / 0 Регистрация: 17.10.2015 Сообщений: 58
		1
	Средняя длина слова 07.11.2015, 20:32. Показов 4706. Ответов 4 Метки нет (Все метки) Здравствуйте, подскажите пожалуйста как найти среднею длину слова в тексте документа Word, при помощи VBA. 0

@Rikado 0 / 0 / 0 Регистрация: 17.10.2015 Сообщений: 58
	07.11.2015, 21:45 [ТС]	3
	Апострофф, А как найти максимальную длину слова в тексте Word не подскажите? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	08.11.2015, 04:53	5
	Но: какой-нибудь альфа-гемоглобин так не найти. Сообщение от Апострофф ActiveDocument.Words.Count Это число элементов семейства ActiveDocument.Words* — а не число слов как таковых. Сообщение от Апострофф ActiveDocument.Characters.Count Ну да, правильно, это количество символов. Но не все же они принадлежат словам (есть разделители). О реальном (близком к ручному подсчёту) количестве слов см. в теме serzhfil68’а: Word: макрос, подсчитывающий количество слов в документе. А пока что, как метко выразился LeDep, тут мы имеем решение лишь Сообщение от LeDep** в крации __________________ * это разноцветные прямоугольники на рис. 1 см. рис. 2 (зелёный фон); использован код из темы Shadowdk**’а про мычащие слова (тоже недоделанный)! Миниатюры 0