1 Тема от АлексВ

  • АлексВ
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.05.2013
  • Сообщений: 3

Тема: Автозамена числа числительным

Нужна ваша помощь: в договорах требуется наряду с числовым обозначением суммы договора в скобках указывать это число словами. Есть ли возможность делать это автоматически: при написании числа word автоматически в скобках прописывает это число словами?

2 Ответ от АлексВ

  • АлексВ
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.05.2013
  • Сообщений: 3

Re: Автозамена числа числительным

Забыл: используется Word 2003.

3 Ответ от АлексВ

  • АлексВ
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.05.2013
  • Сообщений: 3

Re: Автозамена числа числительным

Еще уточнение.
Требуется не просто представить число в текстовом виде (для этого есть специальные програмки). Нужно вот так:
Написал, например 76830 - выделил это число - нажал на волшебную кнопочку smile - и Word заменил "76830" на "76830 руб. 00 коп. (Семьдесят шесть тысяч восемьсот тридцать рублей 00 коп.)"
...ну как-то так smile

4 Ответ от Alex_Gur

  • Автозамена числа числительным
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Автозамена числа числительным

Посмотрите, пожалуйста, здесь:
http://wordexpert.ru/page/chislo-ili-summa-propisyu

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5 Ответ от Alex_Gur

  • Автозамена числа числительным
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Автозамена числа числительным

Вот пример макроса, который формирует из целой и дробной частей числа "... руб. ... коп.":

Sub Macro_Currency()
  Dim MyString As String
  Dim Number As Integer
  Dim Number1 As Long, Number2 As Long
  MyString = ","
  Number = InStr(Selection.Range, MyString)
  MsgBox Number
  If Number <> 0 Then
    Number1 = CLng(Mid(Selection.Range, 1, Number - 1))
    Number2 = CLng(Mid(Selection.Range, Number + 1, Len(Selection.Range)))
    MsgBox (CStr(Number1) + " руб. " + CStr(Number2) + " коп. ")
  Else: MsgBox (CStr(CLng(Selection.Range)) + " руб. " + "00 коп. ")
  End If
End Sub

Число должно быть выделено, целая и дробная части должны быть отделены запятой.
Теперь сможете сами сформировать нужный вам макрос?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.