powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма прописью для поля слияния в Word
11 сообщений из 11, страница 1 из 1
Сумма прописью для поля слияния в Word
    #39696937
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте, уважаемые форумчане.
Благодаря Михаилу Ч. использую в Access чудесный макрос «Сумма прописью»: http://www.sql.ru/forum/1080298/summa-propisu-v-ms-word.

Не могли бы вы рассказать, как использовать макрос для поля слияния в Word?
Что нужно делать, чтобы при переходе к следующему документу и изменению суммы в поле слияния сумма прописью тоже менялась. Замечу, что \*CardText не подходит, т.к. не выводит копейки, только целое число. \*DollarText тоже не подходит, потому что выводит значение в неподходящем формате, например, «Четырнадцать и 55/100».

Поясню. Из запроса Access выгружаются поля слияния в Word. Одно из полей имеет значение суммы с НДС. Нужно, чтобы рядом сумма из этого поля писалась прописью. Если использовать макрос в запросе Access, то там все работает прекрасно, но тогда запрос становится недоступным для слияния. Поэтому пришлось удалить из запроса поле с выражением, в котором используется этот чудесный макрос. А что делать, чтобы применить этот макрос в Word именно к полю слияния [Сумма_с_НДС], я не знаю. Помогите, пожалуйста. В интернете есть похожие вопросы, но нет ни одного ответа.
Заранее спасибо.
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39698336
stepochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nat_S77, посмотрите в сторону использования поля DOCVARIABLE,
макросом нужно присвоить переменой значение функции сумма прописью по содержимому поля слияния.
Вот картинка с примером
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39704618
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stepochka,
Спасибо вам огромное, но не могли бы вы еще подсказать как "макросом присвоить переменой значение функции сумма прописью по содержимому поля слияния"?
Заранее спасибо.
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39704628
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stepochka,

У меня получилось решить проблему другим способом без макросов:

{=INT(Сумма_с_НДС) \* CardText \* FirstCap} руб{ Сумма_с_НДС \# ". 00 'коп.' "}
Тридцать тысяч руб. 00 коп.

Но все же очень хочется знать во всех подробностях, как "макросом присвоить переменной значение функции сумма прописью по содержимому поля слияния" :)
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39705016
stepochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nat_S77,
примерно так


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Sub setvar()

  Const MYVAR As String = "SumProp"

  Dim var As Variable

  On Error Resume Next
  Set var = ActiveDocument.Variables(MYVAR)
  ActiveDocument.Variables(MYVAR).Delete
  On Error GoTo 0

  If var Is Nothing Then
    Set var = ActiveDocument.Variables.Add(MYVAR)
  End If
 ActiveDocument.Variables.Add Name:=MYVAR, Value:=MSumProp$(ActiveDocument.Fields(1).Result)


  ActiveDocument.Fields.Update

End Sub


SumProp - имя установленное в поле DOCVARIABLE (переменная)
ActiveDocument.Fields(1) - индекс поля слияния которое надо перевести в слова

Если процедуру вставить на событие открытия документа то сразу будет актуальная сумма прописью
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39705911
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stepochka,
Что-то не получается... Выделяется MSumProp$ и появляется сообщение об ошибке: "Sub or Function not defined". Далее переходит к строке: Public Sub setvar(). Если я пишу Public Sub setvar(SumProp$), появляется следующее сообщение: "This action will reset your project, proceed anyway?" И затем открывается окно для создания макроса.
Я в макросах новичок, не знаю, что теперь с этим делать. И так пробую и эдак, ничего не выходит.
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39706077
stepochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nat_S77, ну у Вас функция MSumProp$ 'Автор MCH (Михаил Ч.), май 2012 в этом же проекте должна быть
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39706085
stepochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nat_S77,
вот пример
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39706230
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stepochka,
Да, функция там же есть, но при этом вот такая проблема.
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39706295
Nat_S77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stepochka,
Спасибо большое! Ваш файл помог разобраться в коде. Теперь все получилось.
Еще раз огромное спасибо!!!
...
Рейтинг: 0 / 0
Сумма прописью для поля слияния в Word
    #39713152
stepochka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Nat_S77, пожалуйста
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма прописью для поля слияния в Word
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]