Как в Word макросом удалить символы возврата каретки

- Папа! А что значать цифры у Windows: 3.11, 95, 98, 2000?
- Сколько каждая метров!
2. Solaris - экранизация Linux.
3. "Майн Герц", - сказала "мама" вибратору.
4. Tampax - жалкий аналог Recycle Bin.
5. Alldays и Allways с крылышками - модифициронные прокладки для "мыши".

Sub Макрос1()
'
' Макрос1 Макрос
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "#@$%%$"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "#@$%%$"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 024 • TDictionary Custom Sort 6 129 • Fast Watermark Sources 5 926 • 3D Designer 8 777 • Sik Screen Capture 6 256 • Patch Maker 6 680 • Айболит (remote control) 6 674 • ListBox Drag & Drop 5 530 • Доска для игры Реверси 95 700 • Графические эффекты 6 901 • Рисование по маске 6 121 • Перетаскивание изображений 5 063 • Canvas Drawing 5 431 • Рисование Луны 5 146 • Поворот изображения 4 692 • Рисование стержней 3 307 • Paint on Shape 2 547 • Генератор кроссвордов 3 437 • Головоломка Paletto 2 749 • Теорема Монжа об окружностях 3 546 • Пазл Numbrix 2 328 • Заборы и коммивояжеры 3 014 • Игра HIP 1 971 • Игра Go (Го) 1 888 • Симулятор лифта 2 244 • Программа укладки плитки 1 952 • Генератор лабиринта 2 397 • Проверка числового ввода 2 081 • HEX View 2 407 • Физический маятник 2 043

Как в Word макросом удалить символы возврата каретки

Похожие по теме исходники