Пожауйста помогите студентке гуманитарного вуза

[Maria_Babkina]

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

---это ваши слова--------

может все же удобнее сначала выбрать 1000-2000 слов в текстовик(сравнительно маленький) и работать с ним

Спасибо за совет! Но, если процесс выборки автоматизирован, то я не вижу разницы в том, большой это исходный текст или маленький.

[shanemac51]

Я прогнала диплом 100 стр, получив текстовик, а из него и сводную в ексель

[Maria_Babkina]

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

Я прогнала диплом 100 стр, получив текстовик, а из него и сводную в ексель

shanemac51 подскажите, пожалуйста, как с помощью excel подсчитать количества повторений слова (а лучше строчки, состоящей из двух слов) в тексте? Как работать со сводной таблицей? К сожалению, такого опыта у меня нет

[shanemac51]

что вы вообще знаете из ворда --екселя

ерундовый вопрос --а я потратила на него тьму времени, подгоняя ненужное мне решение под ваше незнание

насколько регулярна эта задача
--одноразовая
--периодическая с разными файлами
--постоянная

и конечно(надо было с этого начинать)
--студенческая курсовая или лаба
--производственная

[Alex11223]

Вот именно поэтому еще на первой странице автору посоветовали обратиться к кому-нибудь (фриланс) за денежное вознаграждение.

Кстати, а какой смысл в вашем макросе извлекающем по одному слову? Вроде бы надо было имя + фамилия. Именно стоящие в тексте друг за другом (отдельно имя или фамилия не интересует), и видимо именно из-за этого и был предложен вариант с извлечением слов начинающихся с заглавных букв, тогда бы отсекалось большинство лишних вариантов типа первых слов в предложении.

Толку от того, что он извлечет что-нибудь типа

Архитектор
Василий
Петрович
Стол

Как тут эксель поможет? Объединить стол с Петровичем?

Ну и проблему с падежами он тоже не решит.

[Maria_Babkina]

Это периодическая задача с разными файлами. Производственная.
shanemac51 я благодарна Вам за потраченное время и силы, большое спасибо!
Любые вопросы ерундовые для специалиста, однако форум на то и нужен, чтобы быстро получать ответы на конкретные вопросы, это моё мнение.
Кстате, Ваше подогнанное решение так и осталось при Вас.
Еще раз, большое спасибо!

[shanemac51]

я вам послала ексель файл,с рядовыми строками и сводной, комментария по решению не получила

вы же сами должны справиться
--с запуском макроса
--созданием таблички для впр
--подправкой сводной

=====
макрос я выложу, остальное за вами

[shanemac51]

Option Explicit

Sub w1401002_17()
Dim w1 As Object, s1, K1, SS, ss1a
Dim zpath, zname
SS = ""
Word.ActiveDocument.Select
zpath = Word.ActiveDocument.Path & "\"
zname = zpath & "spisok140930.txt"
Open zname For Output As #1
''Print #1, Selection.Range.Text
For Each w1 In Selection.Words
s1 = w1
Debug.Print Asc(s1), "="; s1; "="

s1 = Replace(s1, ".", ". ")
s1 = Replace(s1, Chr(160), " ")
s1 = Replace(s1, "  ", " ")
s1 = Replace(s1, "  ", " ")
s1 = Replace(s1, "  ", " ")

s1 = Trim(s1)
'If InStr(s1, "0") > 0 Then GoTo next_w1
If s1 Like "*[0-9]*" Then GoTo next_w1
If (s1 = "," Or s1 = ". ," Or s1 = ":" Or s1 = "," Or s1 = ".:" Or s1 = ". :") And Len(SS) > 0 Then
Debug.Print K1, SS
SS = Replace(SS, ".", " ")
SS = Replace(SS, "  ", " ")

Print #1, Trim(SS)
SS = ""
K1 = 0
'; ";"; SS
GoTo next_w1
End If

If s1 Like "[А-ЯЁA-Z.]*" Then
K1 = K1 + 1
If s1 = "." Then
ss1a = Trim(SS) & Trim(s1) & " "
Else
ss1a = SS & Trim(s1) & " "
End If

SS = ss1a
Debug.Print Len(s1)
'', s1; "="; SS

Else
If Len(SS) > 5 And K1 > 1 Then
'Debug.Print K1, SS
SS = Replace(SS, ".", " ")
SS = Replace(SS, "  ", " ")
Print #1, Trim(SS)
'; ";"; SS
End If
SS = ""
K1 = 0
End If
next_w1:
Next w1
'Word.Documents.Add
'Selection.Range.Text = SS
Close #1
End Sub

[Maria_Babkina]

shanemac51 огромное спасибо, ещё раз! Ваш скрипт оказался очень полезен!

Теперь у меня получается файл, в каждой строке которого находится Имя+Фамилия.

Может быть кто-нибудь может мне подсказать, как подсчитать количество повторяющихся строк?
Желательно получить вывод в формате: строка - количество повторений.

[Sasha_Smirnov]

Для этого сортируем абзацы (код для Word — Selection.Sort)*, а затем перебираем их по одному.

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

Это периодическая задача с разными файлами. Производственная.
Любые вопросы ерундовые для специалиста...

А по-вашему, кто на производстве такой специалист? (У нас, например, это оператор ЭВМ.)
___________________
* для Ворда это довольно "долгоиграющая" история — не зря shanemac51 предложила Экссель!