(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

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

Источник: wordexpert
Антон Кокин

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

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

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 12.10.2007 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Microsoft Office 365 для Дома 32-bit/x64. 5 ПК/Mac + 5 Планшетов + 5 Телефонов. Подписка на 1 год.
Microsoft 365 Business Standard (corporate)
Microsoft Office 365 Персональный 32-bit/x64. 1 ПК/MAC + 1 Планшет + 1 Телефон. Все языки. Подписка на 1 год.
Microsoft 365 Business Basic (corporate)
Microsoft Windows Professional 10, Электронный ключ
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Delphi - проблемы и решения
Программирование на Visual С++
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100