1

Тема: как найти быстро форматирование Symbol

Здравствуйте, автор статьи набрал греческий текст через Вставка->Symbol шрифт Symbol, как мне быстро найти все такие вставки и удалить такое форматирование, если можно оставив греческий шрифт

Post's attachments

Налицо пожертвования в святилища.docx 10.4 Кб, 2 скачиваний с 2018-08-24 

You don't have the permssions to download the attachments of this post.

2

Re: как найти быстро форматирование Symbol

Пробуйте на копии
Перед выполнением макроса выделите нужный участок текста

Sub Макрос100()
'
'автор статьи набрал греческий текст через Вставка->Symbol шрифт Symbol, как
'мне быстро найти все такие вставки и удалить такое форматирование,
'если можно оставив греческий шрифт
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(61505) & "-" & ChrW(61562) & "]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3

Re: как найти быстро форматирование Symbol

спасибо за ответ,
макрос не работает, - просто удаляет выделенное, может я что то пропустил?

Sub Макрос100()
'
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[" & ChrW(61505) & "-" & ChrW(61562) & "]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

4

Re: как найти быстро форматирование Symbol

извиняюсь, конечно макрос работает
он же просто удаляет форматирование Symbol, я почему то подумал что он должен еще и оставить текст не в Symbol'e
еще раз извините,
Удаляет
а можно еще вместо удаляемого Symbol'ьного форматирования вставить какую нибудь фразу, - типа "Здесь должен быть греческий текст"
а то я совсем не силен в Ворде с трудом нашел макросы