Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2009, 02:07   #21
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Ну зачёт вам! +50 просмотров за последний час!

Код:
Sub EveryNth()
Static N: If N = Empty Then N = 2

N = InputBox("Оставлю в тексте каждый " & N & "-й символ, или введите другое число." & vbCr & _
"Все остальные символы (если есть) стираю! Кроме нескольких в конце файла.", Date, N)

If Not IsNumeric(N) Or N = 0 Then Exit Sub Else N = Fix(Abs(N))

With Selection.Find

    .Text = String(N - 1, "?") & "(?)"  'очередные N символов в документе'
    .Replacement.Text = "\1"            'группа из первых N-1 стирается, а каждый N-й остаётся'
    .Wrap = wdFindContinue              'и так до конца текста (от курсора)'
    .MatchWildcards = True                'отмечен флажок Подстановочные знаки'
    .Execute Replace:=wdReplaceAll      'выполнение замены'
    
    .Text = ""                               'очистка поля Найти:'
    .Replacement.Text = ""          'очистка поля Заменить на:'
    .MatchWildcards = False         'сброс флажка Подстановочные знаки'
    .Execute                                  'выполнение очистки'
    
End With
End Sub

Последний раз редактировалось Sasha_Smirnov; 26.03.2009 в 02:06.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 25.03.2009, 02:17   #22
StillFree
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 16
По умолчанию

Еще раз спасибо)))
StillFree вне форума Ответить с цитированием
Старый 25.03.2009, 04:45   #23
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Кстати, в вашей игре можно цифры не удалять, а, например, выделять (окрашивать).

А у вас кнопка макроса отображается?
А фильм "23" стоит посмотреть? Или уже не надо? Судя по тому, что тему о нём вы не открыли.
Вложения
Тип файла: doc Lucubrations.doc (34.0 Кб, 8 просмотров)

Последний раз редактировалось Sasha_Smirnov; 26.03.2009 в 02:57. Причина: запоминание введённого числа.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 25.03.2009, 22:03   #24
StillFree
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 16
По умолчанию

Да отображается))) Вобще все супер
StillFree вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно чтобы каждый номер (аси) отправил по 1 сообщению zotox Помощь студентам 1 17.11.2008 19:56
Удвоить каждый символ строки, потом перевернуть строку Didi Помощь студентам 6 20.05.2008 15:33
Паскаль. Напишите программу,удваивающую каждый символ в заданном тексте Yola Помощь студентам 2 19.11.2007 17:31
каждый программист это должен знать bill Свободное общение 18 24.07.2007 20:34
5 дат, которые должен знать каждый Гриха Свободное общение 37 23.02.2007 18:41