Как перевести цифры в текст в ворде
Перейти к содержимому

Как перевести цифры в текст в ворде

  • автор:

Преобразование чисел в слова

В Excel нет функции по умолчанию, которая отображает числа в виде английских слов на листе, но эту возможность можно добавить, вставив следующий код функции SpellNumber в модуль VBA (Visual Basic для приложений). Эта функция позволяет преобразовывать суммы в долларах и центах в слова с формулой, поэтому 22,50 будет считать как Twenty-Two долларов и пятьдесят центов. Это может быть очень полезно, если вы используете Excel в качестве шаблона для печати проверок.

Если вы хотите преобразовать числовые значения в текстовый формат, не отображая их в виде слов, используйте вместо этого функцию TEXT .

Примечание: Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с языком программирования VBA и средствами, используемыми для создания и отладки процедур. Специалисты службы поддержки Майкрософт могут помочь объяснить функциональность той или иной процедуры. Однако они не будут изменять эти примеры для предоставления дополнительных функциональных возможностей или создавать процедуры в соответствии с конкретными требованиями.

Создание функции SpellNumber для преобразования чисел в слова

  1. Используйте сочетание клавиш ALT+F11, чтобы открыть Редактор Visual Basic (VBE).

Примечание: Вы также можете открывать редактор Visual Basic, добавив вкладку «Разработчик» на ленту.

В меню Insert выберите пункт Module.

На вкладке Insert (Вставка) нажмите кнопку Module (Модуль).

Примечание: Этот код, известный как определяемая пользователем функция (UDF), автоматизирует задачу преобразования чисел в текст на всем листе.

Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19. Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99. Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function

Код, вставленный в поле Module1 (Code).

Вставьте строки кода в поле Module1 (Code) (Модуль 1 — код).

Примечание: Эта функция работает только для текущей книги. Чтобы использовать эту функцию в другой книге, необходимо повторить действия по копированию и вставке кода в нее.

Использование функции SpellNumber в отдельных ячейках

  1. Введите формулу =SpellNumber(A1) в ячейку, в которой нужно отобразить записанное число, где A1 — это ячейка, содержащая число, которое требуется преобразовать. Можно также вручную ввести значение, например =SpellNumber(22.50).
  2. Нажмите клавишу ВВОД , чтобы подтвердить формулу.

Сохранение книги с функцией SpellNumber

Excel не удается сохранить книгу с функциями макросов в стандартном формате без макросов (.xlsx). Если щелкнуть Файл > Сохранить. Откроется диалоговое окно проекта VB . щелкните Нет.

В диалоговом окне проекта VB щелкните

Вы можете сохранить файл в виде книги Excel Macro-Enabled (XLSM), чтобы сохранить файл в текущем формате.

  1. На вкладке Файл выберите Сохранить как.
  2. В раскрывающемся меню Тип файла выберите Excel Macro-Enabled книга.
  3. Нажмите кнопку Сохранить.

Число или сумма прописью

Знаете ли вы, как можно в текстовом редакторе Word цифры, числа или суммы представить прописью? Например так: 1.290 = Одна тысяча двести девяносто?

ПОЛЯ Word — набор кодов (инструкций), обеспечивающих автоматическую вставку в документ текста, рисунков, номеров страниц и других сведений (из справки MS Word).

Я вижу две возможности: с помощью полей (с соответствующими ключами) Word или воспользоваться готовыми специализированными программами (в том числе и макросами).

Рассмотрим первый вариант.

Широко известен такой способ: создаем или открываем документ и в том месте, где необходимо вывести числовое значение прописью, ставим курсор и нажимаем комбинацию клавиш Ctrl + F9 . В тексте появится затененное поле с фигурными скобками:

Внутри фигурных скобок вставьте следующую конструкцию (я показываю вместе со скобками):

, где 1290 — это любое ваше число (не забывайте про знак равенства перед числом), \*CardText — это ключ поля (о нем будет сказано ниже).

Затем нажмите клавишу F9 . В результате вы увидите представленное прописью ваше число, в данном случае — одна тысяча двести девяносто .

Обратите внимание на следующий момент: если вы используете локализованную (русскую) версию редактора Word, то цифры будут представлены прописью по-русски. Если редактор англоязычный, то и вывод чисел прописью будет на этом языке. Возможна ситуация, когда в локализованной версии Word цифры выводятся по-английски. Значит, раскладка клавиатуры в редакторе в данный момент не русская, а английская.

КЛЮЧ — особая инструкция, которая при помещении в поле вызывает выполнение определенного действия. Например, вставка в поле ключа \* Caps определяет, что первая буква каждого слова в значении поля прописная (из справки MS Word).

В нашем примере мы использовали ключ \*CardText . У Word множество различных ключей. Естественно, что знать их все на память нереально, да и не нужно. А в случае необходимости можно обратиться на официальный сайт Microsoft в раздел справочной информации.

Этот ключ выводит результат в виде количественных числительных (записанных словами). По умолчанию используются строчные буквы. Можно дополнительно в поле вставить другие ключи, например ключ \* Upper (преобразовывает все буквы в прописные, то есть заглавные), или ключ \* FirstCap (преобразует первую букву первого слова в прописную).

Если вам необходимо вывести число не арабскими цифрами, а римскими, то для этих целей служит ключ \*roman . Здесь тоже есть небольшая хитрость: регистр выводимого числа будет именно такой, каким вы введете ключ \*roman . Если так: \*roman — то и результат будет в строчных буквах, если так: \*ROMAN — то соответственно результат будет выведен заглавными буквами.

Большое количество ключей с описаниями можно увидеть в справочной системе на сайте Microsoft.

Понятно, что использовать в своей работе эти поля не очень удобно, особенно, когда вам нужно очень часто преобразовывать цифры в строки. Здесь на помощь приходят специальные программы, коих много создано.

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

Начну с программы TRANSNUM — число прописью .

Достаточно интересная программа, работающая с MS Word и MS Excel. Полностью самостоятельная программа, становящаяся полупрозрачной, когда вы переносите фокус на редактор.

Корректно работает со всеми версиями Word, кроме Word 2007.

Программа имеет собственную страничку

Другая программа — R2S (Сумма прописью) . Программа старенькая и разрабатывалась для конкурсной программы Microsoft Office Extensions. Бесплатная.

Преобразовывает числовой формат суммы вида 123-45 или 123,45 в прописной вида 123-45 (Сто двадцать три рубля 45 копеек) или 123,45 (Ста двадцати трёх долларов 45 центов). Возможные падежи: шменительный, Родительный. Валюты: Рубли, Доллары.

Работает без ошибок с MS Word 2002 (проверено). C версиями Word 2003 и Word 2007 работает только в режиме буферного обмена.

С описанием программы можно ознакомиться и скачать на официальном сайте Microsoft: R2s (сумма прописью) v. 6.0 (Word 95/97/2000)

Следующая программа — макрос Num2String , преобразующая числа в текстовые представления.

В принципе позволяет даже вывести на панель инструментов свою кнопку, но при установке выводит сообщения об ошибках в коде макроса. В чем там именно проблема я не разбирался, так как не являюсь специалистом в VB.

И последняя программа, стоящая внимания: DigWord — программа печати числа прописью . Привожу описание с сайта программы:

работает через буфер обмена Windows. Пользоваться так: Вам необходимо скопировать число в буфер, затем запустить DigWord.exe, и, наконец, вставить из буфера продукт преобразования. Для удобства можно программе назначить «горячие» клавиши стандартными средствами Windows.

Нет, все-таки приведу для примера еще одну интересную программу — DigitalToWord — Сумма прописью .

Это платная программа (200 рублей на момент напизания заметки), предназначенная для пользователей, так или иначе постоянно работающих с цифрами. Особенностью программы является возможность проверки ИНН юридических лиц (требуется, если у Вас есть подозрение, что на каком-либо документе напечатан «фальшивый» ИНН).

Надеюсь, что эта статья поможет вам сориентироваться и выбрать наиболее подходящий способ перевода чисел, цифр или сумм в строковые представления.

Если у вас есть дополнения к статье — прошу вас высказаться ниже — в комментариях.

P.S. Один из читателей сайта прислал ссылку на очень простую и функциональную программу, позволяющую выводить число прописью. Программа называется Число прописью 1.5 (Автор: Алексей Таранов). Вот ссылка: http://rus.altarsoft.com/number_in_words.shtml

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

  • 10 полезных заметок о колонтитулах
  • 25 + лучших бесплатных программ для создания слайд-шоу в 2022 году
  • 3 способа очистки списка недавно открытых документов
  • 45 лучших бесплатных программных инструментов для редактирования видео в 2022 году
  • Microsoft Office 2019 — особенности, где скачать
  • Microsoft Office 2019 Professional Plus для Windows и Mac OS
  • Microsoft Office: популярные команды на одной вкладке
  • Office 2007 и бесплатный переход на Office 2010
  • Ribbon XML Editor — программа редактирования интерфейса Word 2007, 2010
  • RuStore: откройте двери в мир российских мобильных приложений
  • SQL для начинающих: изучите SQL онлайн за 9 часов
  • Word 2007: добавляем свою вкладку и свои команды
  • Word 2007: полотно, рисунки, линии
  • Word 2007: смена формата сохранения файла
  • Word 97 — решение проблемы с отображением символов на линейке
  • Word 97. Слияние документов как один из способов упростить свою работу
  • Абзац с цветным фоном
  • Автозаполняемые колонтитулы
  • Автоматизация текстового набора в Word
  • Автоматическая запись макроса
  • Автоматическая нумерация билетов
  • Автоматическая расстановка переносов
  • Автоматическое обновление полей при открытии документа
  • Автоматическое сохранение всех открытых документов
  • Автотекст и Word 2007

Как быстро вставлять число прописью в Microsoft Word? ⁠ ⁠

Чтобы перевести числа 1313 в расшифровку «одна тысяча триста тринадцать» нужно сделать следующее:

1. В нужном для вас месте текстового поля нажмите сочетание клавиш «Ctrl+F9». В тексте появится затененное поле с фигурными скобками.

2. Внутри фигурных скобок вставьте конструкцию вида «< =1313 \*CardText >», где 1313 — это любое число, которое вы хотите видеть прописью.

3. Затем нажмите клавишу «F9», чтобы увидеть готовый результат.

* По умолчанию используются строчные буквы.

* Функция работает только с числами до 6 знаков, а дробную часть округляет до целого числа.

* Если при вводе формулы, раскладка клавиатуры будет на английском, то и текст будет на английском.

Как быстро вставлять число прописью в Microsoft Word? Microsoft Word, Формула, Полезное, Цифры

719 постов 15K подписчика

Подписаться Добавить пост

Правила сообщества

2. Публиковать посты соответствующие тематике сообщества

3. Проявлять уважение к пользователям

4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.

По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях

Важно — сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.

Утверждения вроде «пост — отстой», это оскорбление автора и будет наказываться баном.

1 год назад
Классно конечно, но набрать на клавиатуре «одна тысяча триста тринадцать» побыстрее будет
раскрыть ветку
1 год назад

Ы! Вьетнамский флэшбек словил.

Для Excel нужно было сделать запись проописью еще и в винительном падаже:

. в количестве 524 (пятьсот двадцати четырех) штук

Получился такой монстр:

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЕСЛИ(ДЛСТР(ЦЕЛОЕ(G2))>6;РИМСКОЕ(ПСТР(ЦЕЛОЕ(G2);1;ДЛСТР(ЦЕЛОЕ(G2))-6)+0)&» миллионов «&РИМСКОЕ(ПСТР(ЦЕЛОЕ(G2);ДЛСТР(ЦЕЛОЕ(G2))-5;3)+0)&» тысяч «&РИМСКОЕ(ПСТР(ЦЕЛОЕ(G2);ДЛСТР(ЦЕЛОЕ(G2))-2;3)+0);ЕСЛИ(ДЛСТР(ЦЕЛОЕ(G2))>3;РИМСКОЕ(ПСТР(ЦЕЛОЕ(G2);1;ДЛСТР(ЦЕЛОЕ(G2))-3)+0)&» тысяч «&РИМСКОЕ(ПСТР(ЦЕЛОЕ(G2);ДЛСТР(ЦЕЛОЕ(G2))-2;3)+0);РИМСКОЕ(ЦЕЛОЕ(G2))));»DCCC»;» восемисот»);»DCC»;» семисот»);»DC»;» шестисот»);»CD»;» четырехсот»);»XC»;» девяноста»);»CCC»;» трехсот»);»CC»;» двухсот»);»D»;» пятиста»);»CM»;» девятиста»);»C»;» ста»);»XL»;» сорока»);»LXXX»;» восемьдесяти»);»LXX»;» семьдесяти»);»LX»;» шестьдесяти»);»L»;» пятьдесяти»);»XXX»;» тридцати»);»XX»;» двадцати»);»XIX»;» девятнадцати»);»XVIII»;» восемнадцати»);»XVII»;» семнадцати»);»XVI»;» шестнадцати»);»XV»;» пятнадцати»);»XIV»;» четырнадцати»);»XIII»;» тринадцати»);»XII»;» двенадцати»);»XI»;» одиннадцати»);»IX»;» девяти»);»X»;» десяти»);»VIII»;» восьми»);»VII»;» семи»);»VI»;» шести»);»IV»;» четырех»);»V»;» пяти»);»III»;» трех»);»II»;» двух»);»I»;» одной»);»один тысяч»;»одна тысяча»);»два тысяч»;»две тысячи»);»три тысяч»;»три тысячи»);»четыре тысяч»;»четыре тысячи»);»один миллионов»;»один миллион»);»два миллионов»;»два миллиона»);»три миллионов»;»три миллиона»);»четыре миллионов»;»четыре миллиона»));»миллион тысяч»;»миллион»);»миллиона тысяч»;»миллиона»);»миллионов тысяч»;»миллионов»)

Врать не буду, придумал не сам, только модифицировал под нужный падеж

Сумма, число, цифры прописью в Word

Оказывается, что в текстовом редакторе Word можно автоматически отображать сумму или число прописью. Для этого откройте Word, нажмите Ctrl+F9, после чего появятся фигурные скобки, в которые прописываем наше число, например, 2222, а именно:

Нажимаем F9 и наша запись превращается в сумму прописью.

Кстати, цифры прописью будут на том языке, на котором вы писали текст. Чтобы изменить язык – просто переключитесь на другую раскладку клавиатуры.

Статьи по теме:

  • Изменение регистра букв в тексте
  • Сумма прописью на украинском языке
  • Поиск латиницы в кириллице и наоборот
  • Транслитерация с украинского на английский

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *