1 Тема от Kristo4

  • Kristo4
  • сержант
  • Неактивен
  • Зарегистрирован: 23.01.2010
  • Сообщений: 18

Тема: как найти быстро форматирование 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 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

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 Ответ от Kristo4

  • Kristo4
  • сержант
  • Неактивен
  • Зарегистрирован: 23.01.2010
  • Сообщений: 18

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 Ответ от Kristo4

  • Kristo4
  • сержант
  • Неактивен
  • Зарегистрирован: 23.01.2010
  • Сообщений: 18

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

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