|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.04.2010, 23:07 | #1 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
"Нарезка" текста
Уважаемые знатоки. Помогите дописать макрос.
Имеются документы с текстом разбитым по 10 параграфов в каждом, Параграф1 Текст текст текст…. Текст Параграф2 Текст текст текст…. Текст Параграф3 Текст текст текст…. текст …….. Параграф10 Текст текст текст…. текст необходимо нарезать текст по параграфам и вставить в файлы в файлы word , например, под именами 01.doc (для Параграфов1), 02.doc (для Параграфов2) и т.д. ¬ Этот макрос выделяет фрагменты Sub FindWords( _ ByRef strWord1 As String, _ ByRef strWord2 As String) Dim rng As Range Static rngTemp As Range Set rng = ActiveDocument.Content With rng.Find .ClearFormatting .Text = strWord1 .Forward = True .Wrap = wdFindContinue .MatchWholeWord = True .MatchCase = False .Execute If .Found = True Then If rngTemp Is Nothing Then Set rngTemp = rng FindWords strWord2, strWord1 Else rng.SetRange rngTemp.Start, rng. Start rng.Select Set rngTemp = Nothing End If End If End With End Sub ---------------------------------------------------- Sub Параграф1() FindWords " Параграф1", " Параграф2" End Sub -------------------------------------------------- Sub Параграф2() FindWords " Параграф2", " Параграф3" End Sub |
30.04.2010, 03:15 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Вы как-то очень хитро подошли к этому вопросу. Вам нужно:
Примерно так: Код:
Лучше день потерять — потом за пять минут долететь!©
|
30.04.2010, 12:02 | #3 | |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Цитата:
Все правильно, только в первом нужно: "Найти первую строку, которая ограничивает группу абзацев сверху. Запомнить (но лучше вырезать, что бы не создавал лишней путаницы)" и Открыть существующий документ и вставить в него соответствующий фрагмент. Соответствие: Фрагмент который начинается фразой "Параграф1" в 01.doc, фрагмент "Параграф2" - 02.doc и т.д. |
|
01.05.2010, 17:41 | #4 |
Пользователь
Регистрация: 31.01.2010
Сообщений: 49
|
Всем спасибо! Сам прозрел
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать кнопку "Замена" выделенного текста | natsik'09 | Помощь студентам | 4 | 21.04.2010 20:32 |
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. | Каравай | Microsoft Office Excel | 13 | 17.02.2010 09:53 |
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" | aleksei78 | Microsoft Office Excel | 13 | 25.08.2009 12:04 |
Оператор амперсанд "&" или число внутри текста | dotvz | Microsoft Office Excel | 2 | 02.04.2008 14:33 |