powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма прописью в WORD
8 сообщений из 8, страница 1 из 1
Сумма прописью в WORD
    #35382521
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как сделать сумму прописью в Excel - понятно. Подключаем макрос, в ячейке пишем формулу типа "=Суммапрописью(1234,56)"

Как сделать то же самое в WORD?
...
Рейтинг: 0 / 0
Сумма прописью в WORD
    #35383639
Менеджер2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еслы Вы такой умный, то не могли бы выложить Ваш макрос к суперфункции СУММАПРОПИСЬЮ()...
...
Рейтинг: 0 / 0
Сумма прописью в WORD
    #35383711
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Менеджер2Еслы Вы такой умный, то не могли бы выложить Ваш макрос к суперфункции СУММАПРОПИСЬЮ()...

Пока karly думает...
http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/Data/227.mspx
...
Рейтинг: 0 / 0
Сумма прописью в WORD
    #35391244
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Менеджер2Еслы Вы такой умный, то не могли бы выложить Ваш макрос к суперфункции СУММАПРОПИСЬЮ()...К сожалению, или к счастью, он не мой :) А взял я его здесь

Вопрос был скорее не в тексте макроса, а в пользовательском интерфейсе - как пользователь может указать Ворду, где вставлять сумму прописью.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Сумма прописью в WORD
    #37999610
Spatzilla1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В WORD нажать Ctrl+F9 - появятся скобки {} . Внутри скобок написать =555\*CardText и нажать F9 .
555 - должно отобразиться прописью. Правда возможно по английски - в зависимости от локализации WORD.
...
Рейтинг: 0 / 0
Сумма прописью в WORD
    #37999842
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не от локализации, а от языка этого фрагмента!
В 2000: Сервис - Язык - Выбрать язык, потом F9 (обновить поля в выделении).

Вот, например, испанский: Quinientos cincuenta y cinco
немецкий: Fünfhundertfünfundfünfzig
французский: cinq cent cinquante-cinq

Там моя функция "текст в число" с выбором языка: http://programmersforum.ru/showthread.php?t=193596
...
Рейтинг: 0 / 0
Сумма прописью в WORD
    #38000905
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Казанский, а в этом же духе
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim x As Long
x = 1100
Dim lang As Long
'1049 - русский язык
lang = 1049

With CreateObject("word.document")
    .Range.LanguageID = lang
    .Fields.Add .Range, Type:=-1, Text:="=" & x & " \* cardtext"
    Dim num_text_word As String
    num_text_word = Replace(.Range.Text, vbCr, "")
    .Close 0
End With


не создавая документ никак?
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Сумма прописью в WORD
    #38838280
квч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у меня пишет = отсутствует оператор
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма прописью в WORD
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]