Изменить шрифт (размер) всех надстрочных (подстрочных) символов

@red_88 · Регистрация: 10.02.2009

Author24 — интернет-сервис помощи студентам

Visual Basic

    Dim myFindRange As Word.Range
    Dim myFind As Word.Find
    
    'Создаём диапазон, в котором будем искать.
    'ActiveDocument.Range - это основной текст в документе.
    'Есть ещё колонтитулы, сноски и другое.
    Set myFindRange = ActiveDocument.Range
    
    'Создаём объект "Find" и даём ему имя "myFind".
    Set myFind = myFindRange.Find
    
    'Указываем, какой текст ищем.
    myFind.Text = "[A-Za-z]"
    
    'Флажок "Подстановочные знаки".
    myFind.MatchWildcards = True
    
    'Курсив является форматированием.
    myFind.Format = True
    
    'Указываем, что сделать с найденным текстом.
    myFind.Replacement.Font.Italic = True
    
    'Производим поиск и замену.
    myFind.Execute Replace:=wdReplaceAll

Взято с другого форума, мб кому-то пригодится.

Есть необходимость изменить шрифт (размер) всех надстрочных (подстрочных) символов. Описанным способом затрудняюсь отобрать их. Подскажите, пожалуйста, как это реализовать.

@Казанский · 10.01.2013, 22:28

Сообщение от red_88

Есть необходимость изменить шрифт (размер) всех надстрочных (подстрочных) символов

Код выше - фактически запись в макрос действия поиск-замена.
Вашу задачу тоже можно решить поиском-заменой: Ctrl+H, курсор в поле "Найти", но ничего не пишите туда, Больше, Формат - Шрифт - верхний индекс (или нижний индекс). Курсор в поле "Заменить на", Формат - Шрифт - выбирайте шрифт, размер, цвет и т.д., Заменить все.
Можете записать это действие в макрос, если это не разовая акция.

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	10.01.2013, 22:28	2
	Сообщение от red_88 Есть необходимость изменить шрифт (размер) всех надстрочных (подстрочных) символов Код выше - фактически запись в макрос действия поиск-замена. Вашу задачу тоже можно решить поиском-заменой: Ctrl+H, курсор в поле "Найти", но ничего не пишите туда, Больше, Формат - Шрифт - верхний индекс (или нижний индекс). Курсор в поле "Заменить на", Формат - Шрифт - выбирайте шрифт, размер, цвет и т.д., Заменить все. Можете записать это действие в макрос, если это не разовая акция. 0