![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
jaw |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.8.2007 Репутация: нет Всего: нет |
В акцессе есть сумма в запросе (вычисляемая из других полей). Затем делается слияние с Вордом. Необходимо в Ворде эту сумму написать буквами. Для каждого договора писать с клавы вломы.
Скачал исходник на VBA и теперь в запросе есть еще одно поле, в котором пишется сумма прописью. НО тогда невозможно сделать слияние с Вордом(((. Access 97. В 2003 эта проблема не возникает, но его на этой машине устанавливать НЕЛЬЗЯ. Подскажите как разрулить эту проблему. Может есть какие другие варианты? Например преобразование в самом Ворде. (С помощью ctrl+f9). |
|||
|
||||
bopoha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1283 Регистрация: 10.5.2006 Где: Беларусь, Минск Репутация: нет Всего: 21 |
Я пишу в Word программно... в связи с этим проблемм не возникает. В Вашем случае могу порекомендовать завести промежуточнку таблицу, в кторую перед слиянием записывать расчитанне данные...
|
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 13 Всего: 454 |
Затолкайте формулу СуммаПрописью() в normal.dot и используйте ее в бланке. Взять код можно в репозитории на сайте Майкрософт или адаптировать имеющися.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
jaw |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.8.2007 Репутация: нет Всего: нет |
Объясните, пожалуйста, как это сделать. ДОТ-файлы в блокноте не редактируются => надо править в Ворде. Предположил что надо создавать макрос, через сервис->макросы. Но у меня не получается. |
|||
|
||||
jaw |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.8.2007 Репутация: нет Всего: нет |
Уважаемый, акина, ну чесно слово, неудобно выполнять каждый раз макрос. Как сделать такую функцию {MERGEFIELD "сумма" \* DollarText}. Только чтоб вместо DollarText было Сумма_в_рублях. Или может где можно исправить DollarText, чтоб она нормальные копейки выводила. |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 13 Всего: 454 |
Вот именно так и должно выглядель, только в поле должно стоять не значение, а вызов публик-функции из нормалдота. В крайнем случае этот вызов должен сделать источник данных, вернув нужную строку. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
jaw |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.8.2007 Репутация: нет Всего: нет |
Хорошо. Тогда такой вопрос: Что нужно написать вместо Selection.Text в этой строке Summa$ = ResultSumma$(Selection.Text, 1, "", "", "", 0) чтоб он брал сумму, написаную перед командой "Число прописью" |
|||
|
||||
jaw |
|
|||
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 23.8.2007 Репутация: нет Всего: нет |
Решение этой проблемы (если вдруг кому надо будет):
В самом ворде {SET S {MERGEFIELD "сумма" \# "0,00"}} {SET zel {=INT(S}} {SET dr {=({s}- {zel}) * 100} } {QUOTE {zel \*CARDTEXT} " руб."}{QUOTE {dr} " коп."} тема закрыта. P.S. могли бы и подсказать такую мелочь |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Работа с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Работа с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |