Регистрация |
Правила форума | Справка |
Сообщество |
Календарь |
Сообщения сегодня |
Сообщения за неделю |
≥ Поиск ≤ |
|
Программисты и компьютеры в ПМР - Небольшой клуб для программистов и всех, кому интересны компьютеры и всё, что с ними связано. |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
08.01.2013, 15:50 |
word 2003 - подстановочные знаки
#1
|
Администратор
|
Кто работал с word 2003, есть ли опыт поиска с подстановочными знаками?
Хочу находить в тексте такие строки Слово! 51 Слово! 35 Слово! 27 Ищу - <(Слово)>??[0-9] И время 10:03 11:07 12:24 [0-9][0-9]:[0-9][0-9] - это работает. -------- Добавлено в 13:45 -------- Предыдущее было в 13:32 -------- Вариант рабочий: <(Слово)>*[0-9] И еще, найти строчки, короче n символов. -------- Добавлено в 14:50 -------- Предыдущее было в 13:45 -------- ^.{10**$ в PSpad находит строки длиной 10 символов. А мне надо найти и удалить все строки меньше определенного количества символов.
________________
Судьба - совокупность совершенных глупостей человека. Любите и принимайте людей такими, какие они есть. Если Вас оскорбили - нажимаем "Пожаловаться на это сообщение" слева от поста под аватаром хама. |
10.01.2013, 17:53 |
|
Администратор
|
Решение вижу примерно такое на VBA
Sub Макрос1() ' ' Макрос1 Макрос ' Макрос записан 09.01.2013 ' Application.Browser.Previous Dim i As Long For i = 1 To Documents(1).Paragraphs.Count строка = ActiveDocument.Paragraphs(i).Range.Text длина = Len(строка) If длина < 30 Then строка = "0" End If Next End Sub |
11.01.2013, 00:38 |
|
Администратор
|
Dolce Vita, а какая идея то? А то я забыл уже.
Макрос то мой недоработанный. |
11.01.2013, 00:53 |
|
ушедший с форума
Детали профиля (+/-)
|
Ну, ты ж, как обычно)))) Своим вопросом сломал мне мозг, я даже погуглила и почитала более-менее понятную инфу на эту тему. Далее разбила 1 твою сложную адачу на несколько спростых и вот для реализации некоторых - готовых средств не нашла и предположила, что надо написать макрос под своё ТЗ. ты ещё похихикал на это.
|
11.01.2013, 00:57 |
|
Администратор
|
Задача решается 10 минутами программирования на С# или любом языке програмирования.
Но тут таких кодеров нету. |
11.01.2013, 11:34 |
|
Администратор
|
В итоге пишет - запрашиваемый номер семейства не существует
|
11.01.2013, 12:14 |
|
Администратор
|
В итоге сделал так:
Dim i As Long For i = 1 To Documents(1).Paragraphs.Count строка = ActiveDocument.Paragraphs(i).Range.Text длина = Len(строка) If длина < 10 Then ActiveDocument.Paragraphs(i).Range.Delete i = i - 1 End If Next но как сделать, чтобы в форе при удалеини строки уменьшился конечный элемент - не знаю. |
|
Похожие темы | ||||
Тема | Автор | Разделы | Ответы | Последний ответ |
Знаки зодиака | optimist | Психология | 8 | 01.05.2015 21:52 |
Продам Golf lV 1.6, 2003 года, купе СВЕЖЕПРИГНАННЫЙ!! | kissyulka | Продам | 17 | 23.02.2011 18:46 |
Товарные знаки в ПМР | PMR | Юридическая помощь в ПМР | 0 | 12.10.2008 12:09 |
|
|