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

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

  • автор:

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

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

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

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

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

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

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

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

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

Примечание: Этот код автоматизирует преобразование чисел в текст на всем компьютере.

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. В меню «Тип сохранения» выберите пункт «Macro-Enabled Excel».
  3. Нажмите кнопку Сохранить.

Как вставить сумму прописью в Word?

С помощью программы Doc.maker вы сможете удобно вставлять сумму (число) прописью в различных форматах не выходя из программы Word.

Инструкция

Для того чтобы вставить число прописью в Word необходимо:

Вставка суммы прописью в Word

  1. Перейти на вкладку меню Doc.maker и выбрать команду Сумма прописью.
  2. Отобразится пользовательская панель в правом углу Word в которой останется ввести число и выбрать нужный формат.
  • Укажите число (поле Сумма).
  • Выберите валюту из выпадающего списка. На данный момент доступны рубли, доллары или евро.
  • Выберите падеж если необходимо преобразование или оставьте именительный.
  • Вы также можете задать дополнительные опции для получения необходимого формата написания: можно дублировать веденное число, начинать текст со строчной или прописной буквы, ставить скобки. Вы также можете полностью прописывать дробную часть числа или же указывать сокращенно в формате 00.
  1. В окне предварительного просмотра отображается текущий результат, который можно вставить непосредственно в Word нажав на кнопку Вставить.

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

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

Как в текстовый документ Microsoft Word быстро вставить число прописью

В текстовых документах в некоторых случаях числа необходимо печатать прописью, например, в договорах, счетах и т.д. Самый простой вариант это вручную напечатать их, но это не совсем удобно, да и можно ошибиться. В Microsoft Word есть возможность сразу вставлять числа прописью, тут есть несколько вариантов. Сегодня хочу рассказать на мой взгляд про самый простой и удобный способ, который позволит это сделать быстро и без ошибок.

Самый удобный способ вставлять числа прописью

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

Как в текстовый документ Microsoft Word быстро вставлять число прописью

В которых нужно набрать «=Число\*CardText» и нажать «F9».

Как в текстовый документ Word быстро вставлять число прописью

После этого число (сумма) будет напечатано прописными буквами.

Как в текстовый документ Word вставлять число прописью

Данная функцию позволят преобразовать любое число состоящие из 6 знаков, к сожалению она не умеет работать с дробными частями, они будут просто округлены.

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

Таким же образом можно вставлять в документ числа (суммы) римскими буквами, как заглавными так и строчными.

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

Данная функцию Microsoft Word​​ очень полезна и ей обязательно нужно пользоваться. Вообще функционал у офисного пакета Microsoft очень большой, с его помощью можно значительно упростить и ускорить свою работу.

Как преобразовать число в текст прописью?

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

Основная масса документов, которую приходится заполнять сотрудникам предприятий — это так называемая «Первичка», или первичные учетные документы (приходные кассовые ордера, квитанции, товарные накладные, счета на оплату и так далее). Правила работы с документами первичной отчетности регламентируются Федеральным законом «О бухгалтерском учете». Многие документы, формы которых утверждены постановлениями Госкомстата РФ содержат не только строки с указанием сумм, но и строки для расшифровки этих сумм прописью, при этом расшифровка является обязательной.

Наряду с бухгалтерскими существуют и другие документы, где присутствует расшифровка суммы, например договор, доверенность или письмо. Порядок расшифровки суммы, указанной в договоре или доверенности Гражданским Кодексом РФ не регламентируется, но правила написания сумм прописью являются общими для всех документов.

Правила написания расшифровки сумм прописью

1. Сначала указывается сумма цифрами, затем эта сумма повторяется прописью;

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

3. во избежание приписок первое слово в расшифровке прописью необходимо начинать с заглавной буквы.

Надстройка для преобразования числа в текст прописью в Word

Написание расшифровок сумм прописью в бухгалтерских документах, как правило уже автоматизировано в системах учета финансово-хозяйственной деятельности таких как 1-С, SAP ERP и др. Если же какие-то документы формируются в текстовом редакторе Microsoft Word, при этом в документах предусмотрены поля для расшифровки сумм прописью, то автоматизировать их написание можно при помощи надстройки для Word (аналогичная надстройка для Excelаналогичная надстройка для Excel).

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

kak preobrazovat chislo v tekst propisyu

На выбор пользователя доступны несколько валют: рубли, доллары, евро, гривны и предусмотрен режим «без валюты», когда вместо названия валют прописываются слова «целые» и «сотые» (например, Сорок четыре тысячи шестьсот двадцать целых, 00 сотых). При выборе опции «Все прописью» та часть числа, которая находится после запятой, также прописывается прописью.

Другие материалы по теме:

  • Двоичное (бинарное) и текстовое сравнение строк в VBA
  • Видео по преобразованию текста (строк) в число Excel
  • Как преобразовать число в текст прописью и наоборот? Сумма прописью в Excel 2007/2010/2013/2016
  • Как округлить число в Excel? Быстрое округление чисел
  • Как преобразовать текст в число? Текстовый формат в Excel

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

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