Замена подстрочных знаков

[mephist]

Доброго времени суток.
Довольно не сложная задачка:
Необходимо заменить все подстрочные индексы на знак _ и все выражение взять в $$ . Надстрочные индексы замениться соответственно на ^
Пример:
Si1-xGex (здесь 1-x и x это подстрочные индексы)должен замениться на $Si_{1-x}Ge_{x}$.
1. Подскажите пожалуйста, как представляются знаки
^
_
надстрочные и подстрочные индексы.
2. Как взять все выражение в $$ и {} пока не знаю,но критерием может служить то,что выражение которое нужно выделить $$ отделено от остального текста пробелами, а в {} берется только индекс.
подскажите как можно это реализовать???

[mephist]

Я хочу применить примерно такую строку

ActiveDocument.Range.Find.Execute "???",,,,,,,,,"_{???}",wdReplaceAll
ActiveDocument.Range.Find.Execute "???",,,,,,,,,"^{???}",wdReplaceAll

в которой нужно заменить ??? кодами знаков _,^,подстрочных и надстрочных индексов.
А вот как брать в скобки $$ я пока совсем не знаю.

[viter.alex]

Надстрочные и подстрочные символы задаются форматирование шрифта (кнопка «Формат» в окне «Найти и заменить»)

[viter.alex]

Примерно такой строкой не получится. Получится немного сложнее. Макрос я сократил от того, что записался автоматом:

Sub Semiconductors()
  With ActiveDocument.Range.Find
    'Обрамляем долларами
    .Text = "Si1-xGex"
    .Replacement.Text = "$^&$"
    .Execute Replace:=wdReplaceAll
    
    'Ищем выражение 1-x подстрочными символами
    With .Font
      .Superscript = False
      .Subscript = True
    End With
    .Text = "1-x"
    'чтобы обрамить его фигурными скобками и перевести в обычный формат
    With .Replacement.Font
      .Subscript = False
      .Superscript = False
    End With
    .Replacement.Text = "_{^&}"
    .Execute Replace:=wdReplaceAll
    
    'То же самое делаем для выражения x
    .Text = "x"
    .Replacement.Text = "_{^&}"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Символы ^& означают, что нужно вставить найденный текст

[mephist]

Согласен,что нужно залезть в формат. Только вот не получается почему-то.
Я накидал так код

Sub test()
    With ActiveDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Font.Subscript = wdToggle
            .Text = "1-x"
            .Replacement.Text = "_{1-x}"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
    End With
End Sub

Когда делаю вручную(при записи рекордером) все работает,а при последующем запуске уже записанного макроса,замененный текст остается подстрочным. Что не так?
Дальше мне нужно будет сделать так чтобы любой подстрочный текст заменялся. Если заменить в коде 1-x на *,получится?

[viter.alex]

Если нужно, чтобы любой подстрочный текст заменялся, то поле найти нужно оставить пустым и сделать формат «подстрочный»
Замененный текст остается подстрочным, потому что ты не задал формат шрифта для замены. Посмотри внимательно мой макрос