Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> сумма в строку & слияние Access->Word 
:(
    Опции темы
jaw
Дата 20.2.2008, 11:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 23.8.2007

Репутация: нет
Всего: нет



В акцессе есть сумма в запросе (вычисляемая из других полей). Затем делается слияние с Вордом. Необходимо в Ворде эту сумму написать буквами. Для каждого договора писать с клавы вломы.
Скачал исходник на VBA и теперь в запросе есть еще одно поле, в котором пишется сумма прописью. НО тогда невозможно сделать слияние с Вордом(((. Access 97. В 2003 эта проблема не возникает, но его на этой машине устанавливать НЕЛЬЗЯ.

Подскажите как разрулить эту проблему. Может есть какие другие варианты?
Например преобразование в самом Ворде. (С помощью ctrl+f9).
PM MAIL   Вверх
bopoha
Дата 20.2.2008, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 21



Я пишу в Word программно... в связи с этим проблемм не возникает. В Вашем случае могу порекомендовать завести промежуточнку таблицу, в кторую перед слиянием записывать расчитанне данные...
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 20.2.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454



Затолкайте формулу СуммаПрописью() в normal.dot и используйте ее в бланке. Взять код можно в репозитории на сайте Майкрософт или адаптировать имеющися.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
jaw
Дата 21.2.2008, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 23.8.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 20.2.2008,  17:00)
Затолкайте формулу СуммаПрописью() в normal.dot и используйте ее в бланке. Взять код можно в репозитории на сайте Майкрософт или адаптировать имеющися.

Объясните, пожалуйста, как это сделать. ДОТ-файлы в блокноте не редактируются => надо править в Ворде. Предположил что надо создавать макрос, через сервис->макросы. Но у меня не получается.
PM MAIL   Вверх
jaw
Дата 22.2.2008, 05:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 23.8.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 20.2.2008,  17:00)
Затолкайте формулу СуммаПрописью() в normal.dot и используйте ее в бланке. Взять код можно в репозитории на сайте Майкрософт или адаптировать имеющися.

Уважаемый, акина, ну чесно слово, неудобно выполнять каждый раз макрос. Как сделать такую функцию {MERGEFIELD "сумма" \* DollarText}. Только чтоб вместо DollarText было Сумма_в_рублях. Или может где можно исправить DollarText, чтоб она нормальные копейки выводила.
PM MAIL   Вверх
Akina
Дата 22.2.2008, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454



Цитата(jaw @  22.2.2008,  06:05 Найти цитируемый пост)
неудобно выполнять каждый раз макрос. Как сделать такую функцию {MERGEFIELD "сумма" \* DollarText}. Только чтоб вместо DollarText было Сумма_в_рублях

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
jaw
Дата 26.2.2008, 04:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 23.8.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 22.2.2008,  09:04)
Вот именно так и должно выглядель, только в поле должно стоять не значение, а вызов публик-функции из нормалдота. В крайнем случае этот вызов должен сделать источник данных, вернув нужную строку.

Хорошо. Тогда такой вопрос:
Что нужно написать вместо Selection.Text в этой строке
Summa$ = ResultSumma$(Selection.Text, 1, "", "", "", 0)
чтоб он брал сумму, написаную перед командой "Число прописью"
PM MAIL   Вверх
jaw
Дата 28.2.2008, 04:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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. могли бы и подсказать такую мелочь
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Работа с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Работа с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1197 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.