Сумма прописью word надстройка

Описание работы в Word

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

После установки шаблона Word, у вас появится дополнительная вкладка меню "VBA-Excel" на которой будет располагаться команда запуска функции (см. рисунок ниже).

Пример использования

После нажатия на кнопке "Сумма прописью" появится диалоговое окно.

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

Значение – собственно число (не обязательно в числовом формате), которое необходимо написать прописью.

  1. Именительный (по умолчанию если параметр не указан)
  2. Родительный
  3. Дательный
  4. Винительный
  5. Творительный
  6. Предложный

Тип данных – для добавления после суммы прописью в нужном падеже тип данных

  1. Ничего (по умолчанию если параметр не указан)
  2. Рубли
  3. Доллары США
  4. Евро
  5. Календарные дни
  6. Рабочие дни
  7. Дни
  8. Штуки

Формат вывода – формат, в котором вы хотите выводить результат

  1. 123 (Сто двадцать три) (по умолчанию если параметр не указан)
  2. 123,56 (Сто двадцать три) рубля 56 коп.
  3. 123,56 (Сто двадцать три) рубля 56 копеек
  4. (Сто двадцать три)
  5. Сто двадцать три

Если необходим другой формат вывода, укажите это в заявке – добавим.

Установка

Для того, чтобы программа работала, необходимо установить надстройку. Как это делается читайте тут "Установка надстройки"

Наш сегодняшний материал посвящается всем сотрудникам плановых и договорных отделов :)

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

И было бы замечательно , если бы она автоматически считала НДС и вписывала это значение тоже прописью.

Читайте также:  Текстовый документ состоящий из 11264 символов

На данный момент самый простой способ, это открыть любой онлайн сервис (типа сумма-прописью или наш ресурс выделение НДС) вписать туда сумму, скопировать оттуда результат и вставить его Word.

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

Мы будем использовать уже написанный скрипт Дата (день, месяц, год) прописью, который модернизирован для вывода денежных единиц, а также использовать материал, который позволял нам обмениваться данными из Active Directory и Excel Карточка сотрудника Active Directory через Excel

Итак что же нам необходимо сделать?

1. Открываем Word. Идем во вкладку Вид- Макросы

Даже если у нас нет ни одного макроса нажимаем кнопку – Изменить

Открывается редактор VBA

Присоединяем библиотеку jsonlib у вас после всех движений в левой верхней части должно быть подобие вот этой картинки

Что означает подчеркнутое слово Normal? Это говорит нам о том что и класс и макрос записаны в стандартном шаблоне Word Normal.dot(m). То есть при открытии любого файла а также содания нового на этом рабочем месте этот класс и макрос будут загружены автоматически.

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

Для этого в Word. (показано действие для 2010 офиса)

Файл-Параметры-Настройка ленты -(внизу) Сочетания клавиш- Настройка

Выбираем категорию макросы. В правом поле выбираем наш макрос,

Новое сочетание клавиш – F9. Назначить

Почему F9? Вы сами можете переназанчить горячую клавишу по вызову макроса.

Все , у нас готовый шаблон которым мы можем пользоватся

Пишем Сумма договора составляет 23456.94

мы или сразу нажимаем F9 после набора суммы, или просто курсором отмечаем число которое надо преобразовать и нажимаем F9, это не важно.

Читайте также:  Тире на клавиатуре mac

результат будет такой

Сумма договора составляет 23456.94 руб. (двадцать три тысячи четыреста пятьдесят шесть рублей девяносто четыре копейки ) в том числе НДС(18%) 3578.18 руб. (три тысячи пятьсот семьдесят восемь рублей восемнадцать копеек )

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

А как считать если у нас НДС не 18% а 10%?

Исправьте только две строки

nds = Val(body) * 18 / 118

замените на nds = Val(body) * 10 / 110

Selection.TypeText Text:=" руб. (" + ff + ") в том числе НДС(18%) " + Format(nds, "###0.00") + " руб. (" + ff1 + ")"

на Selection.TypeText Text:=" руб. (" + ff + ") в том числе НДС(10%) " + Format(nds, "###0.00") + " руб. (" + ff1 + ")"

Как можете заметить Selection.TypeText Text – отвечает за вывод текста и что вы уж там напишите, ограничена лишь вашей фантазией.

Если у вас есть какие то вопросы замечания или нужна помощь , то обращатесь.

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

Удивился, что это умеет делать автоматом обычная бесплатная программа punto switcher (которая от яндекса) для переключения раскладки клавиатуры. Пользуюсь ей лет 15, но про эту фишку не знал.

Выделяешь цифры, например 12436, жмешь сочетание клавишь и цифры превращается в "двенадцать тысяч четыреста тридцать шесть".

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

Читайте также:  Укажите решение системы неравенств ответ

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

Оцените статью
Добавить комментарий

Adblock detector