Цитата
Iska:
Странно, что Вы не помните, что во времена, когда проводились конкурсы разработчиков Microsoft Office Extensions
2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
Вообще-то помню, потому что начал заниматься программированием ещё до появления корпорации Microsoft. Мне 60 лет и я уже пенсионер.
Цитата Iska:
CardText годился разве что в виде игрушки — как из-за своих ограничений (которые никуда не делись), так и одной досадной ошибки в реализации. Именно тогда массово появились многочисленные «СуммыПрописью» (и, кстати, занимали там призовые места). 2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
Не могу с Вами согласиться. Взгляните на обновленные мною файлы приложения. Я там заменил FORMTEXT на ASK/REF/SET/QUOTE. Получилось удобнее в работе. В CardText только один недостаток: "1000" воспроизводится как "Тысяча", а не "Одна тысяча". Но банки принимают платежки, начинающиеся с "Тысяча...", если слово "тысяча" написано с прописной буквы.
Цитата Iska:
Первое — макросы позволяют избежать указанных ограничений CardText.2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
Макросы уничтожают безопасность Ваших документов. В документах корпорации Microsoft постоянно об этом напоминается. Что касается ограничений, то они непреодолимы только для этих продуктов:
Article ID: 35596 - View products that this article applies to
http://support.microsoft.com/kb/35596/en-us#appliesto
Article ID: 35596 - Last Review: November 16, 2006 - Revision: 2.3
APPLIES TO
Microsoft Word 1.0 Standard Edition
Microsoft Word 1.1 Standard Edition
Microsoft Word 1.1 Standard Edition
Microsoft Word 2.0 Standard Edition
Microsoft Word 2.0a
Microsoft Word for Windows 2.0b
Microsoft Word 2.0c
Microsoft Word 6.0 Standard Edition
Microsoft Word 6.0a
Microsoft Word 6.0c
Microsoft Word 95 Standard Edition
Microsoft Word 95a
Microsoft Word 97 Standard Edition
Цитата
Iska:
Второе — род только мужской.
2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
Посмотрите вложенные формы украинской версии в посте №1.
Цитата
Iska:
Третье — потребность двух и более сумм прописью в документе кладут описанный Вами Copy/Paste-подход «на лопатки».
2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
Вы можете сделать столько сумм прописью, сколько выдержит нумерация закладок MS Word:
СуммаБезПДВ1, СуммаБезПДВ2, ... , СуммаБезПДВ(n).
Кстати, на лопатки от смеха лег не только я, но и Paul Edstein - завсегдатай "MS MVP - Word". Вот Вам от него пример, который показывает многообразие возможностей CardText:
{ QUOTE { ASK Val "What is he amount?" }{ SET AbsVal { =ABS(Val) }} { IF{=Val} < 0 "Minus " }
{ IF { =INT(AbsVal/100000000) } 0 "{ =INT(AbsVal/100000000) \* Cardtext} hundred " }
{ IF { =MOD(INT(AbsVal/1000000),100) } 0 "{ IF { =INT(AbsVal/100000000) } 0 "and "}" }
{ IF { =INT(AbsVal/1000000) } 0 "{ =MOD(INT(AbsVal/1000000),100) \* Cardtext} million, " }
{ IF { =INT(AbsVal/100000) } 0 "{ =MOD(INT(AbsVal/100000),10) \*Cardtext } hundred " }
{ IF { =MOD(INT(AbsVal1000),100) } 0 "{ IF { =INT(AbsVal/100000) } 0 "and "}" }
{ IF { =INT(AbsVal/1000) } 0 "{ =MOD(INT(AbsVal/1000),100) \* Cardtext } thousand, " }
{ IF { =MOD(INT(AbsVal/100),10) } 0 "{ =MOD(INT(AbsVal/100),10) \*Cardtext } hundred " }
{ IF { =MOD(INT(AbsVal),100) } 0 "{ IF { =INT(AbsVal/100) } 0 "and "}{=MOD(INT(AbsVal),100) \*Cardtext} " }
{ =INT(AbsVal) \# \dollar;; }{ IF { =INT(AbsVal) } > 1 "s" }
{ IF { =MOD(AbsVal,1) } 0 "{ IF { =INT(AbsVal)} 0 " and " }{ =MOD(AbsVal,1)*100 \*Cardtext } cent { IF { =MOD(AbsVal,1) } > 0.01 s }" } \* FirstCap }
Там есть "умышленные" ошибки, но Вы, думаю, с этим легко справитесь. Попробуйте создать сумму прописью хотя бы до сотен триллионов. Можем сделать это вместе прямо в этой теме. В целом, судя по сообщениям в форуме, Вы - неплохой специалист. Вот только торопитесь иногда.
