Написание цифр через дробь

Редактор Word предоставляет возможность автоматического преобразования нескольких цифр с наклонной чертой (слеш или дробь) между ними в одиночный символ дробного числа. Например, если ввести цифры 1⁄2 или 1⁄4, то они автоматически преобразуются в соответствующие числовые формы с изменением размера шрифта и его смещением вверх (для числителя) и вниз (для знаменателя). Следует оговориться, что такое автоматическое преобразование возможно лишь в случае, если в диалоговом окне Параметры автозамены на вкладке Автоформат при вводе у вас установлен флажок на параметре Заменять при вводе дроби соответствующими знаками.
Но что делать, если необходимо ввести иные цифры и представить их в виде дробей (например, номер дома 21⁄4)?

Если вы планируете вставлять такие простые дроби, как 1⁄3, 2⁄3, 1⁄8, 5⁄8, 7⁄8, то это можно сделать с помощью диалогового окна Символы, открываемого с помощью команды Символ из меню Вставка.

Если же нужно вставлять более сложные варианты, то есть два варианта: вручную форматировать цифры или использовать небольшой макрос.
Чтобы вручную отформатировать цифры, выполните следующие действия.

1. Введите числа с наклонной чертой, например, 21⁄4.
2. Выделите числитель и видоизмените его на надстрочный шрифт (меню Формат - Шрифт - Надстрочный) или воспользуйтесь сочетанием клавиш «Ctrl»+«Shift»+«+=».
3. Выделите знаменатель и видоизмените его на подстрочный шрифт (меню Формат - Шрифт - Подстрочный) или воспользуйтесь сочетанием клавиш «Ctrl»+«+=».

Чтобы автоматизировать процесс форматирования чисел с дробями можно воспользоваться следующим макросом (на основе макроса от Allen Wyatt).

Sub fraction()
Dim rFraction As Range
Dim iSlash As Integer
With Selection
   iSlash = InStr(RTrim(.Text), "//")
   Set rFraction = ActiveDocument.Range _
(Start:=.Start, End:=.Start + iSlash - 1)
   rFraction.Font.Superscript = True
   Set rFraction = ActiveDocument.Range _
(Start:=.Start + iSlash, End:=.End)
   rFraction.Font.Subscript = True
End With
Selection.Collapse direction:=wdCollapseEnd
Selection.Font.Subscript = False
End Sub

Выделите ваши цифры и запустите макрос.