Статьи из блога

Статьи из блога

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

Редактор 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

Выделите цифры (содержащие наклонную черту) и запустите макрос.

 

Существует и другой способ написания дробей - через горизонтальную линию - с помощью кодов полей.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 7

  1. Ольга
    07.07.2008 в 18:07 | #1

    Действительно, зачастую не хватает тех символов, что есть во "Вставка -> Символ" :(

    А макрос как раз очень кстати! :) Спасибо автору :)

  2. Iwan Petrov
    22.05.2009 в 21:08 | #2

    А у меня почему-то не запускается. В макросе всё верно?

  3. Iwan Petrov
    22.05.2009 в 21:19 | #3

    Проверка говорит, что:

    Run-time error '4608':

    Значение лежит вне допустимого диапазона.

    Почему?

  4. 25.05.2009 в 10:21 | #4

    Иван, спасибо за сигнал. В код вкралась ошибка в виде дубля наклонной черты. Поправил.

    Кроме того, ошибка может возникнуть, если выделить число, в которой нет наклонной черты.

    Попробуйте сейчас.

  5. Iwan Petrov
    25.05.2009 в 14:08 | #5

    Антон, теперь работает. Большое спасибо!

  6. videomobilnik
    25.01.2010 в 16:47 | #6

    а мне надо было вставить цифры над буквами Se90 Cs35, я не знал, а теперь знаю, надо нажать Ctrl++ -надстрочный выше слова, Ctrl+= подстрочный - ниже слова

  7. Сергей
    18.06.2010 в 21:39 | #7

    А почему может не запускаться окно вставки символа, изображенное выше. В EXCEL запускается - можно выбрать и вставить, а в WORDе - нет. Вставка-символ... - и ничего, и кнопки активны. Офис переустанавливал - не помогает.

    При первой инсталяции поначало работало, а теперь ... обидно если придется ОС переустонавливать.

    Office2003. WinXP_SP3. Помогите.

Оставьте комментарий!

(обязательно)

^ Наверх