Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше

Ответить
Настройки темы
2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше

Аватара для Smolenkov_BN

Новый участник


Сообщения: 27
Благодарности: 5

Профиль | Сайт | Отправить PM | Цитировать


Изменения
Автор: Smolenkov_BN
Дата: 18-08-2013
Вложения
Тип файла: rar Сума_прописом.rar
(5.4 Kb, 43 просмотров)
Тип файла: rar Сумма_прописью.rar
(5.7 Kb, 52 просмотров)
СУММА ПРОПИСЬЮ ДЛЯ MS WORD ВЕРСИИ 2003 И ВЫШЕ

Недавно ко мне обратилась соседка с просьбой помочь с шаблоном суммы прописью для MS Word. Посмотрел в Интернет. Нашел бесплатные "багированные" программы типа "Сумма прописью" и умопомрачительные "ограниченные" макросы от "домашних умельцев". Любят наши "программеры" двигаться "окольными путями". Пришлось сделать самому по стандартной методике для MS Office (см. российский и украинский варианты во вложении), где вообще макросы не нужны. Аналогичную методику можно применить для любых документов MS Word, включая таблицы. Инструкция прилагается. Дополнительно советую внимательно изучить содержимое кодов для каждого поля. Будут вопросы - пишите в тему.

-------
E----=(Ответственность компетентного опыта - гарантия быстрого качества)=-


Отправлено: 23:08, 14-08-2013

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата Smolenkov_BN:
и умопомрачительные "ограниченные" макросы от "домашних умельцев". Любят наши "программеры" двигаться "окольными путями". Пришлось сделать самому по стандартной методике для MS Office »
Странно, что Вы не помните, что во времена, когда проводились конкурсы разработчиков Microsoft Office Extensions, CardText годился разве что в виде игрушки — как из-за своих ограничений (которые никуда не делись), так и одной досадной ошибки в реализации. Именно тогда массово появились многочисленные «СуммыПрописью» (и, кстати, занимали там призовые места).


Первое — макросы позволяют избежать указанных ограничений CardText. Второе — род только мужской. Третье — потребность двух и более сумм прописью в документе кладут описанный Вами Copy/Paste-подход «на лопатки».
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:48, 14-08-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Аватара для Smolenkov_BN

Новый участник


Сообщения: 27
Благодарности: 5

Профиль | Сайт | Отправить PM | Цитировать


Цитата Iska:
Странно, что Вы не помните, что во времена, когда проводились конкурсы разработчиков Microsoft Office Extensions»
Вообще-то помню, потому что начал заниматься программированием ещё до появления корпорации Microsoft. Мне 60 лет и я уже пенсионер.

Цитата Iska:
CardText годился разве что в виде игрушки — как из-за своих ограничений (которые никуда не делись), так и одной досадной ошибки в реализации. Именно тогда массово появились многочисленные «СуммыПрописью» (и, кстати, занимали там призовые места). »
Не могу с Вами согласиться. Взгляните на обновленные мною файлы приложения. Я там заменил FORMTEXT на ASK/REF/SET/QUOTE. Получилось удобнее в работе. В CardText только один недостаток: "1000" воспроизводится как "Тысяча", а не "Одна тысяча". Но банки принимают платежки, начинающиеся с "Тысяча...", если слово "тысяча" написано с прописной буквы.

Цитата Iska:
Первое — макросы позволяют избежать указанных ограничений CardText.»
Макросы уничтожают безопасность Ваших документов. В документах корпорации 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:
Второе — род только мужской.»
Посмотрите вложенные формы украинской версии в посте №1.

Цитата Iska:
Третье — потребность двух и более сумм прописью в документе кладут описанный Вами Copy/Paste-подход «на лопатки». »
Вы можете сделать столько сумм прописью, сколько выдержит нумерация закладок 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 }

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

-------
E----=(Ответственность компетентного опыта - гарантия быстрого качества)=-


Последний раз редактировалось Smolenkov_BN, 18-08-2013 в 18:34.


Отправлено: 18:23, 18-08-2013 | #3



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Сумма прописью - Форпост 5.00/5.10 OSZone Software Новости программного обеспечения 0 05-02-2013 09:30
Сумма прописью - Форпост 4.32 OSZone Software Новости программного обеспечения 0 03-01-2011 10:30
2003/XP/2000 - Виснет MS Word 2003. programfiles Microsoft Office (Word, Excel, Outlook и т.д.) 6 06-05-2010 18:22
2003/XP/2000 - [архив] Microsoft Word 2003 и более ранние версии Iriya Microsoft Office (Word, Excel, Outlook и т.д.) 580 31-01-2010 03:12
2003/XP/2000 - [архив] Microsoft Word 2003 и более старые версии Guest Microsoft Office (Word, Excel, Outlook и т.д.) 596 23-07-2006 23:22




 
Переход