|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше |
|
2003/XP/2000 - Сумма прописью для MS Word версии 2003 и выше
|
Новый участник Сообщения: 27 |
СУММА ПРОПИСЬЮ ДЛЯ MS WORD ВЕРСИИ 2003 И ВЫШЕ
Недавно ко мне обратилась соседка с просьбой помочь с шаблоном суммы прописью для MS Word. Посмотрел в Интернет. Нашел бесплатные "багированные" программы типа "Сумма прописью" и умопомрачительные "ограниченные" макросы от "домашних умельцев". Любят наши "программеры" двигаться "окольными путями". Пришлось сделать самому по стандартной методике для MS Office (см. российский и украинский варианты во вложении), где вообще макросы не нужны. Аналогичную методику можно применить для любых документов MS Word, включая таблицы. Инструкция прилагается. Дополнительно советую внимательно изучить содержимое кодов для каждого поля. Будут вопросы - пишите в тему. |
|
------- Отправлено: 23:08, 14-08-2013 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Smolenkov_BN:
Первое — макросы позволяют избежать указанных ограничений CardText. Второе — род только мужской. Третье — потребность двух и более сумм прописью в документе кладут описанный Вами Copy/Paste-подход «на лопатки». |
|
Отправлено: 23:48, 14-08-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 27
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Iska:
![]() Цитата Iska:
Цитата Iska:
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:
Цитата Iska:
СуммаБезПДВ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 } Там есть "умышленные" ошибки, но Вы, думаю, с этим легко справитесь. Попробуйте создать сумму прописью хотя бы до сотен триллионов. Можем сделать это вместе прямо в этой теме. В целом, судя по сообщениям в форуме, Вы - неплохой специалист. Вот только торопитесь иногда. ![]() |
|||||
------- Последний раз редактировалось Smolenkov_BN, 18-08-2013 в 18:34. Отправлено: 18:23, 18-08-2013 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Сумма прописью - Форпост 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 |
|