выписать каждый 5-символ

[StillFree]

Ммм с самим числом 23... хочу посмотреть каждое 23 число из чисел записанных так: 1234567891011121314151617.... итд потом из того что получится... каждое 23.... Бред понимаю.... но интересно))) Если Википедии набрать "число 23" можно много интересных фактов прочитать про это число, правда большинство из них притянуты за уши на мой взгляд))) Вашу программу с удовольствием посмотрю =)

[Sasha_Smirnov]

А я это "игру" не так вижу. Вот

Sub SPOIL()
' Макрос записан 16.01.2009 Customer'
With Selection.Find

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

Программа просто СТИРАЕТ символы, кроме каждого пятого (от кусора).
Если игру (что ж это за игра...) развивать, можно сделать выбор и прочее.

[viter.alex]

Сообщение от StillFree

Ммм с самим числом 23... хочу посмотреть каждое 23 число из чисел записанных так: 1234567891011121314151617.... итд потом из того что получится... каждое 23.... Бред понимаю.... но интересно))) Если Википедии набрать "число 23" можно много интересных фактов прочитать про это число, правда большинство из них притянуты за уши на мой взгляд))) Вашу программу с удовольствием посмотрю =)

Вот твои числа, разделенные пробелами для удобочитаемости.Вложение 9862 А уж как из них взять каждое 23 (очень просто) подумай сам.

Модераторы, перенесите тему в «Свободное общение»

[StillFree]

Так вот уже Близко))) Теперь уточню немного: мне нужно что то число из которого йа извлекаю каждо 23 к примеру... было таким: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 и записано в строчку без пробела т. е. 123456789101112131415.... и т. д.
З. Ы. Спасибо за потраченное Ваше время)

[StillFree]

Спасибо огромно Вам за все))) Кто знает еще интересные числа или факты с ними связанные?

[Sasha_Smirnov]

Посмотри ссылку на с. 2 вот в этой теме. Просто фанатский сайт числомана!

Сообщение от viter.alex

Модераторы, перенесите тему в «Свободное общение»

Да кому там ещё этот VBA может понадобиться!.. и мой супермегамакрос!

[StillFree]

Сообщение от Sasha_Smirnov

Да кому там ещё этот VBA может понадобиться!.. и мой супермегамакрос!

А Макрос действитьельно супермега!!!

[StillFree]

2Sasha_Smirnov Ммм а как изменить чтоб не каждый 5 а каждый 23... ПРОсто в макросе изменил все равно каждый 5 стирает =) йа просто очень далек от програмирования... А жаль за то близок к 3D графике, так что если что то нужно из этой области оращайтесь может смогу помочь))))

[Sasha_Smirnov]

Насчёт три-дэ-графики — давно мечтаю об изометрической проекции куба, нарисованной в Ворде по формулам (с косинусами углов и всё такое).

А в свободном общении (где я давно не был) хорошо бы создать тему «Фильм „23”»; я думаю, там есть что обсудить.

Чтобы оставался каждый N-й символ текста, я вам сделаю выбор, через 10 мин, лады?

[StillFree]

Да Огромное Спасибо)