![]() |
Регистрация |
Правила форума | Справка |
Сообщество |
Календарь |
Сообщения сегодня |
Сообщения за неделю |
≥ Поиск ≤ |
|
Программисты и компьютеры в ПМР - Небольшой клуб для программистов и всех, кому интересны компьютеры и всё, что с ними связано. |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
![]() |
|
Администратор
|
Решение вижу примерно такое на 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
________________
Судьба - совокупность совершенных глупостей человека. Любите и принимайте людей такими, какие они есть. Если Вас оскорбили - нажимаем "Пожаловаться на это сообщение" ![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Разделы | Ответы | Последний ответ |
Знаки зодиака | 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 |
|
|