Макрос для суммы прописью word

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Function MSumProp$(chislo#) 'Автор MCH (Михаил Ч.), май 2012
Dim rub$, kop$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function
 
sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
nadc = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ", "", "одна ", "две ")
razr = Array("триллион ", "триллиона ", "триллионов ", "миллиард ", "миллиарда ", "миллиардов ", "миллион ", "миллиона ", "миллионов ", "тысяча ", "тысячи ", "тысяч ", "рубль ", "рубля ", "рублей ")
 
rub = Left(Format(chislo, "000000000000000.00"), 15)
kop = Right(Format(chislo, "0.00"), 2)
 
If CDbl(rub) = 0 Then m = "ноль "
For i = 1 To Len(rub) Step 3
    If Mid(rub, i, 3) <> "000" Or i = Len(rub) - 2 Then
        m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = "1", nadc(CInt(Mid(rub, i + 2, 1))), _
                des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) - 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _
                IIf(Mid(rub, i + 1, 1) = "1" Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = "1", razr(i - 1), razr(i)))
    End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & kop & " копе" & IIf(kop  10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек", IIf(kop Mod 10 = 1, "йка", "йки"))
End Function
Источник

На чтение 5 мин Просмотров 1.5к. Опубликовано 10.03.2021

Содержание

  1. Описание работы в Word
  2. Пример использования
  3. Установка

Описание работы в 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, в которых фигурирует сумма, хочется что бы минимальными действиями (!) у нас сумма из цифр превращалась в сумму прописью.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Сумма договора составляет 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, жмешь сочетание клавишь и цифры превращается в «двенадцать тысяч четыреста тридцать шесть».

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

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

  • Распечатать

Оцените статью:

  1. 5
  2. 4
  3. 3
  4. 2
  5. 1

(0 голосов, среднее: 0 из 5)

Поделитесь с друзьями!

Источник

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

Alex_ST

 Дата: Понедельник, 28.10.2013, 15:26 |
Сообщение № 1

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Народ, тут понадобилось договора писать, а там сумма прописью…
Можно было бы, конечно, и имеющимися наработками для Excel’я воспользоваться, но я у себя в копилке нашёл, что числа до 999999 можно в текст прямо Вордом перегонять (например, здесь, здесь, здесь, …).
Решил попробовать.
Вот что примерно получилось:[vba]

Код

Sub SumPropWord()
       With Selection
          ‘.Range.Text = Replace(.Range.Text, » «, «»)
          .Fields.Add .Range, Type:=wdFieldEmpty, Text:=»=» & .Range.Text & » *CardText», PreserveFormatting:=False
          .Fields.Update
       End With
End Sub

[/vba]
И всё бы, наверное, и ничего, да вот только триады цифр в документе для читабельности обычно разбиваются пробелом. А с пробелами не пашет.
Попытался тупо заменить пробел на «пустышку» Replace’ом в Selection.Range.Text — не вышло — макрос стал давать ошибку в формуле…
Я объектную модель Ворда практически не знаю. Тыкаю почти наугад по аналогии с Excel’ем :(
Конечно, идеалом было бы допилить макрос так, чтобы он ПОСЛЕ (а не ВМЕСТО) выделенного числа выдавал его же прописью, но это уже не так важно.


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Понедельник, 28.10.2013, 16:33
 

Ответить

Poltava

 Дата: Понедельник, 28.10.2013, 18:31 |
Сообщение № 2

Группа: Друзья

Ранг: Форумчанин

Сообщений: 232


Репутация:
50
±

Замечаний:
0% ±


У меня такая конструкция срабатывает нормально
[vba]

Код

Text:=»=» & Replace(.Range.Text, » «, «») & » *CardText»

[/vba]
А вот со вставкой после пока ничего не придумал сам с вердом на Вы
 

Ответить

Alex_ST

 Дата: Понедельник, 28.10.2013, 21:04 |
Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Poltava, спасибо за совет и попытку помочь.
А со вставкой после подождём, может быть кто-нибудь из более продвинутых в Ворде чем мы откликнется.
А то, глядишь, и сумму прописью от МСН прикрутим чтобы снять ограничения


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Вторник, 29.10.2013, 14:40
 

Ответить

RAN

 Дата: Вторник, 29.10.2013, 05:15 |
Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Леш, может я что не так понял?
[vba]

Код

Sub SumPropWord()
    Dim aa#
     With Selection
         aa = CDbl(Replace(Replace(.Range.Text, Chr(160), «»), » «, «»))
         .Range.Text = .Range.Text & » » & MSumProp(aa)
     End With
End Sub
Function MSumProp$(chislo#) ‘Автор MCH (Михаил Ч.), май 2012
Dim rub$, kop$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function

sot = Array(«», «сто «, «двести «, «триста «, «четыреста «, «пятьсот «, «шестьсот «, «семьсот «, «восемьсот «, «девятьсот «)
des = Array(«», «», «двадцать «, «тридцать «, «сорок «, «пятьдесят «, «шестьдесят «, «семьдесят «, «восемьдесят «, «девяносто «)
nadc = Array(«десять «, «одиннадцать «, «двенадцать «, «тринадцать «, «четырнадцать «, «пятнадцать «, «шестнадцать «, «семнадцать «, «восемнадцать «, «девятнадцать «)
ed = Array(«», «один «, «два «, «три «, «четыре «, «пять «, «шесть «, «семь «, «восемь «, «девять «, «», «одна «, «две «)
razr = Array(«триллион «, «триллиона «, «триллионов «, «миллиард «, «миллиарда «, «миллиардов «, «миллион «, «миллиона «, «миллионов «, «тысяча «, «тысячи «, «тысяч «, «рубль «, «рубля «, «рублей «)

rub = Left(Format(chislo, «000000000000000.00»), 15)
kop = Right(Format(chislo, «0.00»), 2)

If CDbl(rub) = 0 Then m = «ноль »
For i = 1 To Len(rub) Step 3
     If Mid(rub, i, 3) <> «000» Or i = Len(rub) — 2 Then
         m = m & sot(CInt(Mid(rub, i, 1))) & IIf(Mid(rub, i + 1, 1) = «1», nadc(CInt(Mid(rub, i + 2, 1))), _
                 des(CInt(Mid(rub, i + 1, 1))) & ed(CInt(Mid(rub, i + 2, 1)) + IIf(i = Len(rub) — 5 And CInt(Mid(rub, i + 2, 1)) < 3, 10, 0))) & _
                 IIf(Mid(rub, i + 1, 1) = «1» Or (Mid(rub, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(rub, i + 2, 1) = «1», razr(i — 1), razr(i)))
     End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & kop & » копе» & IIf(kop 10 = 1 Or ((kop + 9) Mod 10) >= 4, «ек», IIf(kop Mod 10 = 1, «йка», «йки»))
End Function

[/vba]

Быть или не быть, вот в чем загвоздка!

 

Ответить

anvg

 Дата: Вторник, 29.10.2013, 05:52 |
Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 581


Репутация:
271
±

Замечаний:
0% ±


2016, 365

Видимо хочется средствами Word осуществить перевод числа в сумму прописью.
[vba]

Код

Public Sub test3()
      Dim pReg As Object
      Dim numField As Field
      Dim numText As String

              If Selection.Characters.Count > 1 Then
          Set pReg = CreateObject(«VBScript.RegExp»)
          pReg.Global = True: pReg.Pattern = «[^d]+»
          numText = pReg.Replace(Selection.Text, «»)
          If Len(numText) > 0 Then
              Selection.MoveRight Count:=1
              Selection.TypeText » »
              Set numField = Selection.Fields.Add(Selection.Range, wdFieldEmpty, «=» & numText & «*CardText», False)
              numField.Update
          End If
      End If
End Sub

[/vba]

Сообщение отредактировал anvg — Вторник, 29.10.2013, 05:53
 

Ответить

AndreTM

 Дата: Вторник, 29.10.2013, 06:25 |
Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1762


Репутация:
498
±

Замечаний:
0% ±


2003 & 2010

Ну, понятное дело, что средствами Word. Можно и чистыми:
[vba]

Код

With Selection
     .MoveStartWhile «0123456789 » & Chr(160), wdBackward
     .MoveEndWhile «0123456789 » & Chr(160), wdForward
     nValue1 = Val(Replace(Replace(.Text, » «, «»), Chr(160), «»))

           nShift = .MoveEndWhile(«0123456789.,-=», wdForward)
     nValue2 = IIf(nShift > 0, Val(Right(.Text, nShift — 1)), 0)
     .Start = .End
     .TypeText » (»
     .Fields.Add .Range, wdFieldEmpty, «=» & nValue1 & » * CardText * FirstCap», True
     .TypeText » руб. » & Format(nValue2, «00») & » коп.)»
End With

[/vba] :D

Skype: andre.tm.007
Donate: Qiwi: 9517375010

 

Ответить

Fairuza

 Дата: Вторник, 29.10.2013, 10:46 |
Сообщение № 7

Группа: Проверенные

Ранг: Участник

Сообщений: 57


Репутация:
13
±

Замечаний:
0% ±


А если пробел заменить на неразрывный пробел, тогда код поля *CardText работает
 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 13:26 |
Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Народ, спасибо за отзывы.
К сожалению, уже опять меня настиг завал на работе и разбираться совершенно некогда.
А внутренние средства Ворда я для того применил, т.к. была задумка чтобы сумма прописью вводилась макросом как поле, вычисляемое по сумме цифрами, которую можно было бы потом спокойно изменять в ручную (ну как у нас, нормальных :) в Excel’e формула, использующая UDF).

Хотя всё-таки не удержался и проверил вариант от RAN
Андрей! Спасибо большое. Отлично работает!


С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 13:36 |
Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

AndreTM,
на строке [vba]

Код

nValue2 = IIf(nShift > 0, Val(Right(.Text, nShift — 1)), 0)

[/vba]даёт инвалид-аргумент при выделенном 123456 на листе :(
[offtop]А объектную модель-то Ворда, оказывается кто-то всё-таки знает…
Столько абсолютно ничего не говорящих мне свойств, методов и параметров в коде![/offtop]


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Вторник, 29.10.2013, 13:36
 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 16:28 |
Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

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


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Вторник, 29.10.2013, 16:29
 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 17:04 |
Сообщение № 11

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Хотя, с буфером обмена — это, пожалуй, лишнее.
Лучше будет в скобочках после выделения выводить так:
[vba]

Код

Sub Прописью()   ‘цифры из выделенного текста перевести в число прописью
     Dim NNN
     With CreateObject(«VBScript.RegExp»): .Global = True: .Pattern = «D»: NNN = .Replace(Selection.Range.Text, «»): End With
     If Len(NNN) Then Selection.MoveRight Unit:=wdWord: Selection.Range.Text = » (» & СУМ_ПРОП(NNN) & «) »
End Sub

[/vba]


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Вторник, 29.10.2013, 17:19
 

Ответить

RAN

 Дата: Вторник, 29.10.2013, 21:36 |
Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Економный ты наш!
Я понимаю, что тут все преобразуется
[vba][/vba]
Но что, сразу написать
[vba][/vba]
так сильно влом?

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

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN — Вторник, 29.10.2013, 21:38
 

Ответить

AndreTM

 Дата: Вторник, 29.10.2013, 22:18 |
Сообщение № 13

Группа: Друзья

Ранг: Старожил

Сообщений: 1762


Репутация:
498
±

Замечаний:
0% ±


2003 & 2010

инвалид-аргумент при выделенном 123456 на листе

А если не выделять ничего? Просто курсор поставить «посреди» числа?
Я больше ориентировался на то, чтобы не заставлять пользователя выделять число (и ещё обычно при ручном выделении дефолтный Expand срабатывает, расширяя область выделения по своему разумению).

По ошибке — это Word VBA, гад, всё равно считает в Left(,-1) в IIF() … можно сделать
[vba]

Код

     nValue2 = 0
      If nShift > 1 Then nValue2 = Val(Right(.Text, nShift — 1))

[/vba]

Что касается «сумма вводилась как поле» — она и так вводится в поле. Поэтому, кстати, исходный вариант и предполагал замену текста полем, чтобы число оставалось единственным. А чтобы можно было «менять сумму», не заходя в поле — надо либо текст преобразовать в поле с меткой (закладкой), на которую потом будет ссылаться сумма прописью, либо отслеживать изменение текста и перезаписывать/пересоздавать поле с прописью.
Ещё хочу заметить — .MoveRight Unit:=wdWord сдвинет точку ввода хоть и на конец цифр — но там может стоять разделитель :) Например, сумма записана (как это любят бухи) «123456=00» — тогда что? Да и число может быть «Ноль» (например, остаток суммы оплаты)…

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM — Вторник, 29.10.2013, 22:24
 

Ответить

RAN

 Дата: Вторник, 29.10.2013, 22:33 |
Сообщение № 14

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Интересная тема, жаль не вовремя (для меня) начатая. :(
Не забыть-бы, когда понадобиться.

Быть или не быть, вот в чем загвоздка!

 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 23:04 |
Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Андрей,
я специально сделал NNN безразмерным чтобы потом ему же можно было присваивать и текстовые значения:[vba]

Код

NNN = IIf(Err, Err.Description, СУМ_ПРОП(NNN)

[/vba]
Да и вообще я потом по-другому сделал без обработчика ошибок.


С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

Alex_ST

 Дата: Вторник, 29.10.2013, 23:08 |
Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Не забыть-бы, когда понадобиться

А ты на ус намотай (или на хвост) :)


С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

RAN

 Дата: Среда, 30.10.2013, 01:00 |
Сообщение № 17

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Быть или не быть, вот в чем загвоздка!

 

Ответить

Alex_ST

 Дата: Среда, 30.10.2013, 09:27 |
Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

А если не выделять ничего? Просто курсор поставить «посреди» числа?
Я больше ориентировался на то, чтобы не заставлять пользователя выделять число

Андрей, как раз этот вариант скорее всего не прокатит, т.к. бухгалтеры чаще всего цифры разделяют пробелами на триады.
Тогда в Вашем варианте при курсоре, стоящем между двоек в числе, например, 111 222 333, в пропись будет преобразовано только 222.
Так что как раз пользователь и должен напрячь чуть-чуть извилины и выделить именно всё то, что он хочет преобразовать.
В моём крайнем примере регулярка как раз это и делает — из выделенного фрагмента удаляет все символы кроме цифр.

Ну а по поводу

Например, сумма записана (как это любят бухи) «123456=00» — тогда что?

так такое же на практике не может понадобиться никогда (ну не придёт же в голову никому переводить в пропись формулы).


С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

AndreTM

 Дата: Среда, 30.10.2013, 15:48 |
Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 1762


Репутация:
498
±

Замечаний:
0% ±


2003 & 2010

в Вашем варианте при курсоре, стоящем между двоек в числе, например, 111 222 333

Пробовал? Что получилось? (Вернее, что не получилось? И что при этом за число оказалось в коде поля?) yes

не придёт же в голову никому переводить в пропись формулы

hands То есть? Вот передо мною лежит договор аренды:

Цитата

… всего в сумме 12489=00 (Двенадцать тысяч четыреста восемьдесят девять рублей 00 копеек) ежемесячно, включая НДС…

Это формула? Этого не существует, ибо такой текст невозможен?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM — Среда, 30.10.2013, 15:58
 

Ответить

Alex_ST

 Дата: Среда, 30.10.2013, 19:22 |
Сообщение № 20

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:
604
±

Замечаний:
0% ±


2003

Пробовал? Что получилось?

Не пробовал, т.к. выяснилось, что 999 999 всё равно мало.
А должно было получиться? Ну ты бы хоть полный текст процедуры выложил тогда, а не фрагмент чтобы его можно было просто не заморачиваясь началом и концом процедуры проверить. ??? Это что, у вас в бюстгалтерии так принято: вместо запятой в качестве разделителя рублей и копеек = использовать?
Уж сколько разных договоров из разных мест видел, а такого — нет!


С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Среда, 30.10.2013, 19:23
 

Ответить
Источник

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

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

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

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

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

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

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

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

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

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

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

kak preobrazovat chislo v tekst propisyu

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

Кроме того в некоторых случаях при формировании документов в Word можно автоматизировать их заполнение.

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

Источник

Содержание

    • 0.1 Форматирование и удобочитаемость рабочего листа
    • 0.2 Вставка изображения, уже зарегистрированного в тексте
    • 0.3 Вставка изображения, еще не зарегистрированного в тексте
      • 0.3.1 Удаление изображения из текстового тела
    • 0.4 Ссылка на страницу сайта
    • 0.5 Связь с другим сайтом
      • 0.5.1 Удаление ссылки из текстового тела
    • 0.6 Иерархические уровни документа
  • 1 Правила написания расшифровки сумм прописью
  • 2 Надстройка для преобразования числа в текст прописью в Word
    • 2.1 Другие материалы по теме:

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

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

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

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

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

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

{=1290 *CardText} , где — это любое ваше число (не забывайте про знак равенства перед числом), *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.

Сайт программы: DigWord.

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

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

Адрес сайта: www.oleansoft.com

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

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

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

Если вы работаете с финансовыми документами, то поймёте меня лучше, чем кто бы то ни было:

переписывать сумму прописью после каждого созвона с клиентом — мягко говоря — надоедает

А ведь ещё можно ошибиться … или попросту забыть подправить!

Давайте жизнь сделаем проще.

Для суммы прописью в Word есть решение:

  1. Нажмите одновременно Ctrl и F9
  1. В появившихся фигурных скобках введите знак равно и сразу за ним число, которое вам нужно написать прописью
  1. После числа вбейте «заклинание»: *cardtext

Должно получиться так:
{=1047*CardText}

Естественно, число 1047 заменяйте своим.

  1. Нажмите пару раз F9, затем Shift+F9

В документе увидим:
одна тысяча сорок семь

Пояснения по работе с полями в Word:

По нажатию Ctrl+F9 в документ вставляется вычисляемое поле. Оно выделяется серым фоном и фигурными скобками.

По нажатию Shift+F9 внутри вычисляемого поля изменяется режим отображения. Можно смотреть либо результат вычисления, либо формулы.

По нажатию Alt+F9 вы изменяет режим отображения вычисляемых полей во всём документе.

Клавиша F9, нажатая внутри поля, выполняет пересчёт значений. Если хотите пересчитать во всем документе, то нажите Ctrl+A и затем нажмите F9.

Чтобы запретить обновление поля (защита от самого себя), нажмите в поле Ctrl+F11. Чтобы снять запрет воспользуйтесь Ctrl+Shift+F11.

Важное замечание №1. Заклинание *cardtext работает не со всеми числами. Только положительные до миллиона. Дробные числа округляются до целого.

Важное замечание №2. Если перед началом ввода переключиться с русского языка на английский, то число прописью выводится на АНГЛИЙСКОМ.

После *cardtext можно добавить:

  • заклинание *Upper — число прописью выводится прописными буквами

{=1047*CardText*Upper}
ONE THOUSAND FORTY-SEVEN

  • заклинание *FirstCap — только первая буква будет прописной

{=1047*CardText*FirstCap}
One thousand eighty-nine

Вместо *cardtext можно ввести:

  • *roman — число выводится строчными римскими

{=1047*roman}
mxlvii

  • *ROMAN — римские, но уже прописные

{=1047*ROMAN}
MXLVII

Решение неидеальное, но интересная игрушка, правда?

Опубликован: 25 января 2016, 13:20

Ваш комментарий к статье:

Адрес заметки:

Современные текстовые редакторы предоставляют пользователю возможности оформления документов с помощью автоматизированных средств. Например, автоматическое создание оглавления позволяет заметно облегчить и ускорить работу. Для создания оглавления в MS Word нужно оформить все заголовки стилем «Заголовок», в окне «Оглавление и указатели» (вызывается из меню Вставка => Ссылка) задать параметры и нажать «ОК». И вопрос, как пронумеровать оглавление не возникнет, так как, в месте расположения текстового курсора автоматически появится оглавление с номерами страниц.

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

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

Форматирование и удобочитаемость рабочего листа

Чтобы изменить страницу, перейдите к области веб-сайта, на которой вы хотите внести изменения, и перейдите на вкладку «Редактировать». В каждой форме редактирования есть поля.

как сделать цифры прописью в word

Не обязательно заполнять. . В поле «Текст текста» система представляет пользователю панель форматирования для облегчения создания содержимого.

Вставка изображения, уже зарегистрированного в тексте

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

В MSWord 2007 окно «Оглавление» вызывают в группе «Оглавление» верхнего меню «Ссылки».Для выравнивания текста в MS Word используются кнопки «Слева», «Справа», «По центру» и «По ширине». Они находятся в группе «Абзац» меню «Главная» в 2007 версии, а в предыдущих версиях MS Word — на панели инструментов «Форматирование». Как выровнять оглавление в Ворде? Этот вопрос возникает только у тех, кто делал оглавление вручную. В небольшом документе можно оставить все как есть, а для больших объемов текста — переделать оглавление автоматически.

Если вы изменили номер таким образом и хотите отменить то, что вы только что сделали, используйте кнопку отмены или удалите содержимое поля «Формат номера» и повторите попытку. Вы также можете изменить шрифт своих номеров. Если вы хотите, чтобы подчеркнутый номер или шрифт отличались от текста по имени или размеру, вы можете внести это изменение кнопкой «Шрифт».

Затем вы открываете диалоговое окно для изменения атрибутов используемого шрифта или самого шрифта. Это диалоговое окно обычно вам знакомо. Эта часть диалогового окна позволяет вам изменить положение номера относительно текста и поля вашего документа.

Вставка изображения, еще не зарегистрированного в тексте

Чтобы вставить изображение, поместите курсор туда, куда вы хотите вставить изображение. В окне, которое будет доступно, перейдите в папку, в которую нужно вставить изображение.

Удаление изображения из текстового тела

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

Ссылка на страницу сайта

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

Вручную расстояние между текстом и номером страницы задают с помощью клавиши «Tab». Затем, удерживая левую кнопку мыши, двигаются по верхней линейке, выбирая позицию табуляции. В окне «Табуляция» (вызывается из окна «Абзац») задают заполнение расстояния между текстом и номером страницы в виде точек.Как сделать оглавление в OpenOffice? Конечно же, только с помощью автоматических средств. Действуют по аналогии.Окно «Стили и форматирование» вызывается из меню «Формат». Задают стили заголовков. Затем: Вставка => Оглавление и указатели => Оглавление и указатели.

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

Стиль для применения на этом уровне: соответствует стилю, который будет использоваться для нумерации. Применить изменения: три варианта: Весь список; С этого момента или в этом подразделе.

  • Переслать число символов, которое будет использоваться после нумерации.
  • Имя числового списка: необязательный.
  • Юридический номер: применить десятичное число ко всем уровням.
  • Изменить нумерацию после: установить уровень, с которого начинается число.

Доступ к нему осуществляется через вкладку «Главная» ленты.

Связь с другим сайтом

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

Удаление ссылки из текстового тела

Нажмите на текст или изображение со ссылкой. В строке форматирования остановитесь с курсором мыши над кнопкой и убедитесь, что текст «Удалить ссылку»; Если это так, нажмите кнопку «Удалить ссылку».

Это руководство поможет вам создать иерархическую структуру для ваших документов. Метод для достижения этого несколько отличается. Вам не нужно иметь весь текст. Простое изменение стиля настроит вашу нумерацию. Формат меню, которое даст нам доступ к панели «Стиль» с помощью подтипов «Стили и форматирование». Эта панель содержит список стилей, которые используются в вашем документе.

Для представления дипломной или курсовой работы часто требуется презентация. Презентацию можно оформить, например, в программе PowerPoint. Для быстрого перехода между слайдами надо знать, как сделать оглавление в РowerРoint. Автоматически создать оглавление можно в версии PowerPoint2003 и ниже. Выводят панель инструментов «Структура» на экран: Вид => Панели инструментов => Структура (отметить галочкой). Выделяют все слайды документа и на панели инструментов «Структура» нажимают кнопку «Итоговый Слайд». Затем оглавление можно корректировать вручную.

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

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

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

Довольно просто, поскольку у меня есть только один заголовок за уровень, он уверен, что это будет хорошо. Вероятно, вы заметили, что в диалоговом окне для выбора типа номера есть кнопка «Настроить». Эта кнопка откроет дополнительное диалоговое окно, чтобы изменить нумерацию ваших заголовков.

Работа в современных текстовых редакторах требует умения использовать их широкие возможности. Как оформлять оглавление в курсовой, дипломной работе, в презентации — ответ на этот вопрос надо знать любому пользователю. Автоматически созданное оглавление можно отформатировать согласно требованиям, предъявляемым к оформлению работы. Важно! Изменения оформления будут утеряны при выборе в контекстном меню команды «Обновить поле» =>Обновить целиком (например, для обновления номеров станиц). Менять внешний вид оглавления надо на последнем этапе работы, когда уже не будет изменений.

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

Иерархические уровни документа

Все элементы, вставленные в документ, не имеют одинакового иерархического уровня. Да, здесь и есть лидеры. Документы организованы в четыре иерархических уровня: символ, параграф, страница и раздел. Какой, на ваш взгляд, самый высокий уровень иерархии, то есть тот, который налагает свои параметры на всех других уровнях?

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

Три наиболее важные части этого диалогового окна. Представление, которое дает итоговый вид результата. Стиль, к которому будет применяться этот уровень. Вы можете получить доступ к этому живому диалогу через меню. Мы модифицируем некоторые элементы и визуализируем полученный результат. Первый элемент, который мы будем изменять, — это число.

Возможно, будет полезно почитать:

  • Как сделать содержание в word ;
  • От чего планшет завис и не заряжается? ;
  • Почему отключается планшет сам по себе ;
  • Приложение Samsung Galaxy остановлено: как решить вопрос без сброса настроек ;
  • Советы по подключению компьютера к телевизору ;
  • Программы для чтения электронных книг в формате epub на стационарных компьютерах и ноутбуках ;
  • Подключение телевизора к интернету через wifi: инструкция для смарт ТВ и обычного телевизора ;
  • Как сделать таблицу в word горизонтально ;

Sırala

Преобразование чисел в текст (Word)macros-VBA

4 il əvvəl

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

Сумма прописью в Excelsprosinas kak

3 il əvvəl

Как сделать, чтобы вместо числа отображалась сумма прописью в Excel? Ответ в этом видеоуроке HD Сумма прописью…

Как считать сумму в таблице Word1kfirst

2 il əvvəl

word.konstantinfirst.com — обучение Word’у. Функция подсчета суммы столбца таблицы в текстовом редакторе Microsoft Word…

Числа в текстовом формате в ExcelNikolay Pavlov

2 il əvvəl

6 способов преобразовать числа в текстовом формате в Excel в полноценные числа. Файл-пример можно скачать…

Как конвертировать числа в текст в ExcelData Digger

5 il əvvəl

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

Как писать над чертой в ворде, не разрывая ееДмитрий Костин

Il əvvəl

В данном видео вы узнаете, как можно писать в ворде над чертой, не разрывая этой линии. koskomp.ru/microsoft-word/kak-pi…

Преобразование числа в текст прописью по-русскиmacros-VBA

4 il əvvəl

Надстройка для Excel позволяет быстро преобразовать числа выбранного диапазона в текст прописью. Предусмотр…

Word для начинающих. Урок 35: Серия однотипных документов методом слиянияДмитрий Кивганов

2 il əvvəl

Как сделать любое количество однотипных документов, у которых меняются только некоторые участки текста?…

Сумма прописью в excel. Быстрая настройкаPavel T

3 il əvvəl

в видео показано, как быстро настроить и использовать функцию «сумма прописью». Функция позволяет конвертир…

Автовозможности текстового редактора Word (часть 2)SpecialistTV

2 il əvvəl

Вторая часть семинара про автовозможности Word (первая часть — azclip.net/video/BFPXQS27Z30/video.html). Будут рассмотрены…

Ввод текста. Функция автозамены в Word 2013.TeachVideo

3 il əvvəl

Оригинал и полная запись находится по адресу: www.teachvideo.ru.

Число,сумма прописью в ExcelРуслан

Il əvvəl

В видео показанео как прописать число прописью ,в описании оставляю ссылки на скачивание макроса .Всем…

Автозамена в Word 2007Виталий

6 il əvvəl

Если вы часто работаете с документами Microsoft Word, то наверняка не раз уже задумывались, что неплохо было, если…

Сезон 2010: Урок №6. Изучаем числаБаир Жигмитов

7 il əvvəl

Урок №6. Изучаем числа.

Преобразование чисел в текст и обратноmacros-VBA

6 ay əvvəl

Несколько способов, позволяющих преобразовать числа в текст как стандартными средствами Excel, так и при…

Сумма прописью в ExcelВиталий Б

Il əvvəl

Скачать надстройку можно по ссылке; drive.google.com/open?id=0B3A8_z_zeZ7Bei1NbDAySDJGNjA.

Автоматическое преобразование написания чисел прописью в excelИТ аутсорсинг

3 il əvvəl

Автоматическое преобразование чисел в пропись на русском и украинском языке в excel Скачать надстройки можн…

Возможности офисных программ Microsoft Office (Excel, Word, Outlook) о которых Вы не зналиEkaterinburg1C

2 il əvvəl

Подписывайтесь на наш канал об «1С»: azclip.net/user/Ekat…

Генерация документов по шаблонуprostoysoft

4 il əvvəl

Cоздание офисных документов формата Word, Excel, RTF, HTML по шаблонам на основе информации, имеющейся в базе данных…

Автоматическое заполнение договоров в Word 2007/2010/2013/2016 данными из Excelmacros-VBA

4 il əvvəl

Надстройка для Word, позволяющая автоматически заполнять договоры на основе данных, внесенных в диалоговое…

Пример вставки суммы прописью в MS Excel (без макроса)nefmont

Il əvvəl

Файл доступен по ссылке: drive.google.com/open?id=0B8asQWDsek0UMnVzU3FIYjluNmc.

Словом, число мест или письмом на страницах, перечислюAprende Fácil Ya

5 il əvvəl

Словом, число мест или письмом на страницах, перечислю Словом, число мест или букву на страницы, список…

Сумма прописью Google SpreadsheetsAlexander Ivanov

5 il əvvəl

Сумма прописью Google Spreadsheets Код gist.github.com/oshliaer/365a29498206ffa612c01ad33fc6457b.

Как добавить сумму прописью с белорусскими рублями и копейкамиСмешнотики YouTube Channel

2 il əvvəl

Текст который необходимо вставить в белое окно ищете в самом первом комментарии!!! А вот и сам макрос: =Propis(C5;…

Игорян.Word.Exel.VBA.Связь приложенийИгорь Ваганов

3 il əvvəl

как … написать метр квадратный в WordАниКей Скайвокер

2 il əvvəl

два способа написания надстрочных символов квадрата, куба или другой степени в Ворде.

как … преобразовать число в текст и наоборот в ExcelАниКей Скайвокер

2 il əvvəl

как написать перед числом нуль в Эксель, как преобразовать формат из текстового в числовой и наоборот.

3 Макрос в Word, Савинкова В 6512Валерия Савинкова

Il əvvəl

как … написать число прописью по тайски в ExcelАниКей Скайвокер

2 il əvvəl

функция БАТТЕКСТ() в Эксель.

FillDocuments: Надстройка для заполнения документов Word и Excel по шаблонамExcelVBA.ru

5 il əvvəl

Программа заполнения документов (шаблонов Word и Excel) данными из таблицы Excel. excelvba.ru/programmes/FillDocuments Надстрой…

Замена заглавных букв на строчные в WordАлексей

2 il əvvəl

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

Как сделать вертикальный текст в Ворде?officeprogs.ru

3 il əvvəl

Рассмотрим, как сделать текст вертикально в Ворде с помощью текстового поля и таблицы, а также, как сделать…

MSO.22 Использование вычисляемых полей (кодов полей) в Microsoft WordDenis Butorin

3 il əvvəl

Что такое поля в MS Word, что такое коды полей в MS Word. Как вставить количество страниц в текст документа. Как…

КАК ПЕРЕВЕСТИ МИЛЛИОНЫ В ТЫСЯЧИ РУБЛЕЙ В EXCELЯрослав Будников

Il əvvəl

Это простой урок научит вас преобразовать миллионы в тысячи рублей. Вы узнаете как произвести расчет через…

Подсветка дат и сроков в ExcelNikolay Pavlov

4 il əvvəl

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

Преобразование текста в число в Excelmacros-VBA

5 il əvvəl

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

Как сделать из кавычек » » кавычки « » в Microsoft WordОбЗор полеЗных беЗплатных программ и не только

3 il əvvəl

Как сделать из кавычек » » кавычки « »

Преобразование текста, написанного прописью в число (Excel)macros-VBA

3 il əvvəl

Как в Excel преобразовать текст, написанный прописью, в число? Надстройка для Excel позволяет трансформировать…

Десятичные знаки в Excel. Автоматическая установка запятойМой Друг Компьютер

2 il əvvəl

Десятичные знаки в excel. В Excel очень много функций, о которых мы даже не подозреваем, и поэтому многие просто…

Функции №11. Перевод текста в числа и чисел в текст.RuExcel

Il əvvəl

Уроки для новичков. О том как переводить текст в числа и числа в текст.

Как в Word вставить название текстового поляIT видео

2 il əvvəl

Excel: как изменить цифры на буквы в заголовках столбцов?BestMerlin

3 il əvvəl

Видеоурок на проекте Античайник. my7sky.com Сергея Авраменко Адрес статьи с бесплатным обучением my7sky.com/…

Перевод текста и определение языка ячейки в Google Docs (44/56)TeachVideo

6 il əvvəl

www.teachvideo.ru/catalog/23 — еще больше обучающих роликов по офису и работе с документами ответят на ваши вопросы…

EXCEL 2010 Печать документа.MrAstambur

7 il əvvəl

Макрос excel, сортировка, Климов Р.И 6511Роман Климов

Il əvvəl

Кодирование и декодирование в Excel Kuanysh Magauin

2 il əvvəl

Как кодировать и декодировать в Excel Функция СИМВОЛ и КОДСИМВ Любой компьютер для представления символов…

24 Группа `Редактирование` Функция СУММАTeachProTube

5 il əvvəl

Смотрите полную версию курса Microsoft Excel 2010 здесь: teachpro.ru/Course/Excel2010?utm_source=youtube&utm_campaign=excel2010 …

C# уроки. Числа. Преобразования чисел. decade

4 il əvvəl

Статья — 4fps.ru/programming/c-sharp-tutorials/numbers-convert/ Получилось скучновато и сонно) В этом уроке: работа с числами…

Шрифт Primo.mp4Ольга Тавченкова

6 il əvvəl

В этом видеоуроке мы расскажем о том, как скачать рукописный шрифт Primo и как работать с ним дальше.

С чего начать 1 Текстовый форматExcel это просто

Il əvvəl

Серия коротких уроков для быстрого и полноценного освоения Excel для новичков и профессионалов. Начало работ…

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

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

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

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

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

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

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

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

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

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

Кроме того в некоторых случаях при формировании документов в Word можно автоматизировать их заполнение.

видео по работе с надстройкой

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

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

Источник

Число или сумма прописью в Ворде (Word) — как сделать?

Как в Ворде автоматически преобразовать число в текст, то есть написать его прописью?

1 505 200 — один миллион пятьсот пять тысяч двести.

Можно ли это сделать?

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

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

Ставим курсор в нужное место и жмём на клавиши Ctrl + F9 — появятся фигурные скобки.

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

После этого в Ворде нужное вам число будет записано прописью.

Если число очень большое, то писать его прописью очень утомительно.

Также можно из-за невнимательности где-то допустить ошибку.

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

Для этого можно использовать поле, в которое записывается специальная конструкция.

Порядок действий:

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

Появятся фигурные скобки, внутри которых и нужно будет поместить конструкцию.

2) В эти скобки нужно записать:

Понятно, что здесь 12060 — это число, которое нужно написать прописью.

В свою очередь * CardText — это ключ поля (ключ представляет собой конструкцию, которая выполняет определённые действия).

3) Теперь нужно нажать на клавишу «F9».

Число будет написано в нужном нам формате, то есть «12060» запишется как «двенадцать тысяч шестьдесят».

Если вам по каким-то причинам потребовалось изменить число, которое вы записывали прописью, то воспользуйтесь комбинацией клавиш «Shift» + «F9».

Эта комбинация клавиш меняет режим отображения поля — то есть можно всегда возвращаться в формулу и редактировать её.

Проще всего, конечно воспользоваться помощью Интернета, ввести запрос числа прописью онлайн и далее в программе просто ввести наше число, потом его скопировать в ворд.

Но если Интернета вдруг нет, то можно обойтись просто средствами ворда.

Итак, дать команду вставка-экспресс блоки — поле.

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

Как вставить число прописью в Word

Как сделать число прописью в Word

Если вы работаете с финансовыми документами, то поймёте меня лучше, чем кто бы то ни было:

переписывать сумму прописью после каждого созвона с клиентом — мягко говоря — надоедает

А ведь ещё можно ошибиться . или попросту забыть подправить!

Давайте жизнь сделаем проще.

Для суммы прописью в Word есть решение:

  1. Нажмите одновременно Ctrl и F9
  1. В появившихся фигурных скобках введите знак равно и сразу за ним число, которое вам нужно написать прописью
  1. После числа вбейте «заклинание»: *cardtext

Должно получиться так:

Естественно, число 1047 заменяйте своим.

  1. Нажмите пару раз F9, затем Shift+F9

В документе увидим:
одна тысяча сорок семь

Пояснения по работе с полями в Word:

По нажатию Ctrl+F9 в документ вставляется вычисляемое поле. Оно выделяется серым фоном и фигурными скобками.

По нажатию Shift+F9 внутри вычисляемого поля изменяется режим отображения. Можно смотреть либо результат вычисления, либо формулы.

По нажатию Alt+F9 вы изменяет режим отображения вычисляемых полей во всём документе.

Клавиша F9, нажатая внутри поля, выполняет пересчёт значений. Если хотите пересчитать во всем документе, то нажите Ctrl+A и затем нажмите F9.

Чтобы запретить обновление поля (защита от самого себя), нажмите в поле Ctrl+F11. Чтобы снять запрет воспользуйтесь Ctrl+Shift+F11.

Важное замечание №1. Заклинание *cardtext работает не со всеми числами. Только положительные до миллиона. Дробные числа округляются до целого.

Важное замечание №2. Если перед началом ввода переключиться с русского языка на английский, то число прописью выводится на АНГЛИЙСКОМ.

После *cardtext можно добавить:

  • заклинание *Upper — число прописью выводится прописными буквами


ONE THOUSAND FORTY-SEVEN

  • заклинание *FirstCap — только первая буква будет прописной


One thousand eighty-nine

Вместо *cardtext можно ввести:

  • *roman — число выводится строчными римскими
  • *ROMAN — римские, но уже прописные

Решение неидеальное, но интересная игрушка, правда?

Опубликован: 25 января 2016, 13:20

получилось! оказалось, дело в том, что у меня ноутбук НР, и чтобы нажать F9, надо одновременно держать «fn».

  • Шурик
  • 04 февраля 2016, 13:39

Здравствуйте! А где «взять» фигурную скобку? На клавиатуре не вижу.

Установите курсор в нужное место и просто нажмите ctrl+f9. Скобки на сером фоне сами нарисуются ))

  • Валентина
  • 04 февраля 2016, 14:00

Константин, огромное Вам спасибо. Давно подписана на Вашу рассылку и слежу за Вашими публикациями. Я с WORDом на Вы и по этому постоянно обращаюсь к Вашим , как я их назвала ,,шпаргалкам,, Очень помогает в написании текстов. Сильно облегчаете работу начинающим пользователям. Успехов Вам.

  • Зинаида
  • 04 февраля 2016, 22:45

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

  • Раиса
  • 10 февраля 2016, 14:11

Классно. Буду знать. Спасибо.
(Ваша система ругается, говорит, слишком мало написал. Я просто хотел поблагодарить.)

  • Игорь
  • 09 марта 2016, 18:33
  • Заметки блога
  • Как выполнить замену текста в нескольких документах Word
  • Учимся набирать текст на компьютере
  • Как сделать гиперссылку в MS Word
  • Автосохранение в Word для забывчивых пользователей
  • Хитрости работы со списками в Word
  • 3 способа конвертировать PDF в Word
  • Литература по Word для начинающих
  • Как в Word преобразовать таблицу в текст и обратно
  • Как строить диаграммы и графики в Microsoft Word
  • Как перенести страничку сайта в Word
  • Перемещение текста в Word по одной кнопке
  • Как перевести текст на другой язык в Word’е
  • Как сделать число прописью в Word
  • Генератор русских панграмм
  • Как сохранить документ Только для чтения
  • Как разделить Word на 2 части
  • Как уменьшить размер файла Word
  • Ещё заметки по теме

Компьютер Для Чайников — Copyright © 2011—2021 Все права защищены · Политика приватности

Как в ворде написать сумму прописью из цифры через функции

  • Главная
  • Excel
  • Готовые решения
  • Форумы
  • Библиотека
  • Видеосалон
  • Справочники
  • Разработчик

Информация о сайте

Инструменты и настройки

Excel Windows
и
Excel Macintosh

Вопросы и решения

Работа и общение

Работа форума и сайта

Функции листа Excel

= Мир MS Excel/Цифры прописью в Word — Мир MS Excel

Источник

Понравилась статья? Поделить с друзьями:
  • Макрос для суммирования ячеек в excel
  • Макрос для среднего значения в excel
  • Макрос для сравнения ячеек excel
  • Макрос для сравнения двух файлов excel
  • Макрос для сравнения двух столбцов excel