|
Как в Word макросом удалить символы возврата кареткиDelphi , Технологии , Макросы
Как в 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
|
В статье описывается макрос в Microsoft Word, который позволяет удалить символы возврата каретки из текста.
Комментарии и вопросы
:: Главная :: Макросы ::
|
|
