Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
legion_slov
5 / 3 / 0
Регистрация: 23.03.2013
Сообщений: 53
1

Знает кто нибудь средство для "отлавливания" в документе повторений ?

28.05.2013, 15:00. Просмотров 653. Ответов 5
Метки нет (Все метки)

Когда пишется общая пояснительная записка в проекте, то в основном – это копипасты частных пояснительных записок разных специалистов.
Но и специалисты в своих ПЗ тоже используют кописпсаты из первоисточников. И иногда получается, что они копирую одни и те же тексты. И тогда оказывается, что в общей ПЗ одни и теже абзацы повторяются. Если ОПЗ большая, ну более 30-50 страниц, то отловить такие повторения довольно сложно.
Ксть какие нибудь средства автоматизации отлавливания построений абзацев в MS Word ?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2013, 15:00
Ответы с готовыми решениями:

как автоматически преобразовать все "надписи" в документе DOC в "рамки"?
файл огромный. в каждом колонтитуле по несколько разных "надписей". как их все сразу во всем...

"Ошибка!" - MS Word 2010 | Не отображаются формулы в документе
Здравствуйте! В документе, формулы отображаются как "Ошибка!" (один из них специально отобразил,...

Кто-нибудь знает где есть "живые" форумы по ИНС?
Кто-нибудь знает, где еще есть 'живые' форумы по нейронным сетям? Кроме www.matlab.ru,...

Кто нибудь делал прогу "Эмулятор клавиш с промежутком времени между "нажатиями""?
Пара людей заинтересована в таком приложении только с условием: программа должна работать всегда...

Кто знает CreateObject("ADODB.Connection") при MySql
На компе установлен WinXP, IIS, MySql. На Acess работает безупречно, на МуSql всё встаёт колом....

5
Скрипт
5452 / 1133 / 49
Регистрация: 15.09.2012
Сообщений: 3,431
28.05.2013, 15:09 2
legion_slov, уточните, как должны сравниваться два абзаца, чтобы макрос понял: да, эти два абзаца - это одно и то же.
0
shanemac51
Модератор
Эксперт MS Access
9110 / 3503 / 554
Регистрация: 07.08.2010
Сообщений: 9,804
Записей в блоге: 2
28.05.2013, 15:58 3
макет макроса
--в параграфе более 5 слов
--длиной более 5 симв

Код
Sub a__01_pr_h130528_1526()
j1 = 0
Dim ss, ss1, ss2
dim j1,j2,j2k
dim s1,s2
Dim pr As Paragraph, S2A, s2k
j1a = Word.ActiveDocument.Paragraphs.Count

ss1 = " "
ss2 = " "
Do While j1 < j1a
j1 = j1 + 1
Set pr = Word.ActiveDocument.Paragraphs(j1)
s1 = pr.Range.Text
j2k = pr.Range.Words.Count
j2 = 0
If j2k > 5 Then
'Debug.Print
ss = ""
j3 = 0
Do While j2 < j2k
j2 = j2 + 1
s2 = pr.Range.Words(j2)
If Len(s2) > 5 Then
'Debug.Print j2; s2;
ss = ss & s2 & " "
j3 = j3 + 1
End If
Loop
'Debug.Print j1, j2k, ss, ss1
If InStr(ss1, ss) > 0 Then
If j3 > 3 Then
Debug.Print ss
ss2 = ss2 & s1
End If
Else
ss1 = ss1 & ss & "`"
End If

End If

Loop
Debug.Print
Word.Documents.Add
Selection.Range.Text = ss2
End Sub
1
legion_slov
5 / 3 / 0
Регистрация: 23.03.2013
Сообщений: 53
29.05.2013, 18:09  [ТС] 4
Что то не завелся макрос
Что не так? (не силен в них, изв...)
0
Миниатюры
Знает кто нибудь средство для "отлавливания" в документе повторений ?   Знает кто нибудь средство для "отлавливания" в документе повторений ?   Знает кто нибудь средство для "отлавливания" в документе повторений ?  

shanemac51
Модератор
Эксперт MS Access
9110 / 3503 / 554
Регистрация: 07.08.2010
Сообщений: 9,804
Записей в блоге: 2
29.05.2013, 20:23 5
попробуйте
Код
Sub a__01_pr_h130528_1526()  Dim ss, ss1, ss2 dim j1,j2,j2k dim s1,s2 Dim pr As Paragraph, S2A, s2k j1a = Word.ActiveDocument.Paragraphs.Count  j1 = 0 ss1 = " " ss2 = " " Do While j1 < j1a j1 = j1 + 1 Set pr = Word.ActiveDocument.Paragraphs(j1) s1 = pr.Range.Text j2k = pr.Range.Words.Count j2 = 0 If j2k > 5 Then 'Debug.Print ss = "" j3 = 0 Do While j2 < j2k j2 = j2 + 1 s2 = pr.Range.Words(j2) If Len(s2) > 5 Then 'Debug.Print j2; s2; ss = ss & s2 & " " j3 = j3 + 1 End If Loop 'Debug.Print j1, j2k, ss, ss1 If InStr(ss1, ss) > 0 Then If j3 > 3 Then Debug.Print ss ss2 = ss2 & s1 End If Else ss1 = ss1 & ss & "`" End If   End If   Loop Debug.Print Word.Documents.Add Selection.Range.Text = ss2 End Sub
0
legion_slov
5 / 3 / 0
Регистрация: 23.03.2013
Сообщений: 53
30.05.2013, 10:10  [ТС] 6
Цитата Сообщение от shanemac51 Посмотреть сообщение
попробуйте
Я пробовал сл. образом:
1. Alt+F11. Открылся редактор VBA. Слева расположен Обозреватель проекта.
2. Мышкой "This document" - правой кнопкой - Insert - modul.
2. В открывающийся правой самой большой части экрана скопировал Вашу строчку.
4. Ctrl+S, чтобы сохранить изменения.
После проделанных действий макрос по Alt+F8 не виден.

Что я не правильно сделал?
0
30.05.2013, 10:10
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2013, 10:10

Задачка "Выбор подходяшего бака" кто знает?
Есть два бака, размер определяется высотой и диаметром, нужно выбрать наиболее подходящий бак для...

Кто знает, к какому жанру относится "Battlefield"?
Мне очень нравится эта игра! Очень гармоничная насыщенная игрушка, в которую раз залезешь потом...

Кто знает гайд по заголовочному файлу "string"
Пишу код шифра Цезаря. С массивами работа очень геморная. Код почти готов, но сыроватенький он....


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.