| Вопрос: Вопрос по работе с абзацами в Word | Добавлено: 07.11.06 13:19 |
Автор вопроса:  Alex | Web-сайт: no | ICQ: no |
| Пожалуйста подскажите, кто знает, как найти определенный текст или символ, но только в нужной таблице. Есть ли возможность в Word отслеживать абзацы, находящиеся в таблице.(искал у себя в книгах - не нашел)? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 07.11.06 16:56 |
|
Отслеживать... с биноклем...
Есть, да. |
||
|
Номер ответа: 2 Автор ответа:  Alex ICQ: no Вопросов: 3 Ответов: 13 |
Web-сайт: Профиль | | #2 | Добавлено: 10.11.06 16:48 |
|
Большое спасибо что ответили, помогли???
Разобрался сам Вот код - может кому пригодится. ' ------ убираем переносы после вставки ------ ' ------ в таблицу Word текста формата .txt ------ ActiveDocument.Tables(ntab).Select ' выделяем таблицу For Each p In Selection.Range.Paragraphs ' перебираем абзацы выд. диапазона With p.Range a = 1 ind = .Characters.Item  .End ' определяем номер текущего символа в абзаце
 o While .End <> ind ' ищем символ "-" пока текущий символ не будет равен последнему в абзаце
If .Characters.Item .Text = "-" Then ' если символ найден, то
Selection.Collapse wdCollapseEnd .Characters.Item .Select
.Characters.Item .Delete 'удаляем его
o While .Characters.Item.Text = " " ' так же удаляем пробел после символа "-"
.Characters.Item .Delete
Loop Else End If a = a + 1 ind = .Characters.Item .End
Loop End With p.Range.Select ' выделяем текущий абзац Next Selection.Collapse wdCollapseEnd '------------------------------------------------------- |
||
Страница: 1 |