Сумма прописью в word макрос

Сумма чисел прописью

Дата прописью и сумма прописью
Господа, помогите!! Перерыл весь инет, скачал кучу прог и кодов но не разобрался ни в чем..(( Мне.

Сумма прописью
Дано натуральное число n. n<=1000 Записать это число русскими словами.

Сумма прописью для счета
Здравствуйте, это второй мой вопрос на эту тему)) В общем есть некий файл, там формируется счет и.

Сумма прописью RUR USD и EUR
Помогите плиз. нужно в excele 2003 переводить числа прописью в разных валютах и просто числа

Без копеек (1), с копейками (0)
Копейки прописью (1), числом (0)
Начинать прописью (0), заглавной (1)

=РубПропись(12548,23;0;1)
Двенадцать тысяч пятьсот сорок восемь рублей двадцать три копейки

Вот незадача-то! Думал тема поможет.
Но нет!
У меня надо два варианта! Найти разность чисел прописью и произведение чисел прописью.
А жаль!
Так хотелось. так хотелось читать и помогать адекватным вопросам

Добавлено через 1 минуту
Просто не понятно чем сумма прописью отличается в вашем понятии от разности прописью?!

Добавлено через 5 минут
тогда уж надо писать функция которая бы выдавала результат в виде: двести двадцать три рубля умножить на 2 (рубля?) равно четыреста сорок шесть рублей (возможно в квадрате)

Решение

А вот и моих пять копеек к этой теме

Макрос выполняется так:
разделяется на два цикла, сначало ведется запись рублей, затем копеек
в записи сумм числа переписываются слева-направо по остаткам
в зависимости от последних цифр формируются окончания.
Которые у меня записанны через минус в константах (. ноль од-ин-на дв-а-е три четыре пять . )

И кстати я отменил лучший ответ поста #6 от КостяФедореев,
ну и другие варианты не блещут
При вводе например 11.01 выдает одинадцать копеек, а при вводе 1.09 вообще 99 копеек
представляю как будут *попадать* кассиры

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

Сумма прописью для меняющейся ячейки
Всем доброго времени суток! В приложенном файле представлен вариант суммы прописью, если.

Сумма прописью: переписать код под VBA
Вот нашла код многоуважаемого Бурундука, для аксеса: Static one(0 To 19, 1 To 2) As String.

Записать число 123 — «сто двадцать три» (сумма прописью)
Вот задача: Дано целое число в диапазоне 100–999. Вывести строку-описание данного числа.

Макрос «сумма прописью»
Добрый вечер! Просьба, помочь в редактировании макроса "сумма прописью". Нужно чтобы текст вида.

Число или сумма прописью в Word (download)

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

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

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

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

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

Внутри фигурных скобок вставьте следующую конструкцию (я показываю вместе со скобками):
, где 1290 — это любое ваше число (не забывайте про знак равенства перед числом), *CardText — это ключ поля (о нем будет сказано ниже).
Затем нажмите клавишу F9. В результате вы увидите представленное прописью ваше число, в данном случае — одна тысяча двести девяносто.

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

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

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

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

Читать еще: Работа с процентами в excel

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

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

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

Начну с программы 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 работает только в режиме буферного обмена.

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

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

В каталоге Download Вы можете найти другие полезные материалы — утилиты, программы, документацию, исходники, электронные книги. Если Вы обнаружили неработающую ссылку, пожалуйста, помогите другим посетителям и администратору каталога Download — сообщите об этом редактору.

Сумма прописью в word макрос

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых . Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Здравствуйте, дорогие друзья!

Сегодня у нас не совсем обычный выпуск.

Во-первых, он посвящен не только (и не столько) Excel, сколько Word.

Во-вторых, сегодняшняя статья любезно предоставлена автором замечательного сайта WordExpert.ru Антоном Кокиным.

Я надеюсь, что этот выпуск послужит примером плодотворного сотрудничества. Если среди читателей есть владельцы сайтов, приглашаю к сотрудничеству и Вас. Подробности — после статьи Антона.

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

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

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

Читать еще: Vba word работа с таблицами

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

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

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

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

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

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

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

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

Антон Кокин

Спасибо Антону. Теперь о возможных вариантах сотрудничества для владельцев сайтов.

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

Во-вторых, приглашаю размещать статьи с Ваших сайтов. По себе знаю, что это позволяет привлекать большое количество новых посетителей, делает сайт интереснее для посетителей. Естественно, ссылки на сайт в статье, а также реклама Ваших проектов в разумных пределах не возбраняются. В ответ предлагаю размещение своих статей на Вашем сайте. Давайте, пользуясь терминологией нелюбимого мной Александра Мороза, взаимно усиливать друг друга.

Возможен обмен формами рассылок, баннерами и т.п.

Любые инициативы приветствуются ;).

Кстати, если среди читателей есть люди, которые умеют делать баннеры и готовы мне с этим помочь (безвозмездно), моей благодарности не будет предела.

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

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

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

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

Читать еще: Печать брошюры в word 2020

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

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

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

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

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

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

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

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

Как в Microsoft Office Word превратить цифры в текст?

Автор: Zheka. Дата публикации: 30 сентября 2019 . Категория: Офис. Просмотров: 321

Есть у нас определенное число, которое необходимо преобразовать в текст. Можно просто его написать. Но ведь лень:). В сети можно встретить много макросов, которые могут из числа делать текст. Давайте рассмотрим один из них и бесплатную программу на случай, если первый вариант не устраивает или не работает.

Вот код готового макроса (источник: wordexpert.ru):

Sub BigCardText()
‘преобразование целого числа в текстовый эквивалент
‘источник — http://wordtips.vitalnews.com/Pages/T000203_Converting_Numbers_to_Text.html
Dim sDigits As String
Dim sBigStuff As String
sDigits = «»
sBigStuff = «»
‘ Select the full number in which the insertion point is located
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
‘ Store the digits in a variable
sDigits = Trim(Selection.Text)
If Val(sDigits) > 999999 Then
If Val(sDigits) = 5 And Val(Right(CStr(nmbr), 1)) 1 Then
EndOfWord = » миллиона »
End If
End Function

Обратите внимание на то, что макрос работает с числами до 999999.

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

Алгоритм установки и использования макроса:

1. Копируем код, который можно видеть выше.

2. Тогда идем по пути: «Вид → Макросы → Макросы».

3. Называем наш макрос (имя должно быть без пробелов) и нажимаем на кнопку «Создать».

4. В окне визуального редактора Microsoft Visual Basic, которое откроется, нужно найти текст с именем вашего макроса (у меня на примере BigCardText) и заменить его на скопированный выше.

Для запуска макроса на выполнение нужно выделить цифры. Тогда перейти в «Вид → Макросы → Макросы», найти BigCardText (если не переименовывали) и нажать на кнопку «Выполнить». После выполнения макрос должен дать результат.

Если вы хотите иметь быстрый доступ к нужному (нужным) макросу, то прочитайте следующую статью: Как добавить макрос в панель быстрого доступа?

Способ 2 (без макросов). Для этой функции воспользуемся услугами бесплатной утилиты (число прописью), которая может без проблем превращать цифры в текст, рассчитывать НДС и работать с программами Word и Excel.

Если ваш офисный пакет 2000 и выше, то программа может выполнять совместный с ним запуск.

Поддерживаются различные языки, в том числе украинский и русский. НДС и денежные единицы также настраиваются.

Работать с программой очень просто (на примере Microsoft Office Word 2016). Пишем в Ворде число, выделяем его (программа число прописью должна быть запущена) и нажимаем на иконку Word в окне программы. Цифры автоматически будут добавлены и преобразованы в текст. Можно просто скопировать цифры, вставить в программу (используя соответствующую кнопку) и повторить все в обратном порядке для вставки текста в редактор Microsoft Office Word.

Готовый текст можно просто перетащить в окно редактора.

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