Кто силён в VBA и работе с MS Office?

Новый комментарий
 

В общем такой вопрос.

Создал шаблон(удалил), в нём(при редактировании шаблона) при запуске открывается форма и выполняется макрос, всё работает.

Но вот как только создаётся документ по этому шаблону, то форма открывается, а сам макрос не срабатывает.

Кто может подсказать в чём причина. Макросы разрешены. Word 2010

 
Что-то не вижу макроса. Может не туда смотрю.
 

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


 
я макросом назвал код, который выполняется по нажатию кнопок в форме, может это как-то по другому называется )
 
вот ещё раз, может не то скинул первый раз )
Файлы:
yu8e27.zip  26 kb
 

Я тоже почему-то не вижу.


 
Alexandr Bryzgalov:
я макросом назвал код который выполняется по нажатию кнопок в форме, может это как-то по другому называется )
Правильно, так и называется. Теперь есть. Но изначально что-то глючит. Один раз жму - ничего, второй раз - неправильно дата введена.  
 
Dmitry Fedoseev:
Правильно, так и называется. Теперь есть. Но изначально что-то глючит. Один раз жму - ничего, второй раз - неправильно дата введена.  

ну это да, в логику забито так, что бы правильность даты проверялась.

если запустить кнопкой из редактора кода, то всё работает.

а если запускать через создание документа по шаблону то нет.

 

вот этот участок отвечает за корректность введённой даты:

With MyForm.tbDate
   If Not IsDate(.Text) Then  'если данные введены не в формате даты, то
      MsgBox "В поле ""Дата составления заявления"" неверно введены данные."   'выводим сообщение
      .Text = Format(Now, "dd MMMM yyyy") 'автоматически заполняем поле текущей датой
      .SetFocus   'фокус на поле "Дата"
      .SelStart = 0  '
      .SelLength = Len(.Text) 'выделяем весь текст в поле, начиная с левого края
      Exit Sub
   Else
      Set rng = bm("data").Range 'присваиваем переменной rng ссылку на закладку "data"
      rng.Text = .Text & " г."   'определяем новый текст закладки
      bm.Add "data", rng   'заменяем закладку
   End If
End With

но он не влияет на работу. пробовал убирал.

 
Даже с пустой формой - один раз жму ничего, второй раз -сообщение про дату, снова жму - ничего, еще раз - сообщение и там можно бесконечно. 
 
Dmitry Fedoseev:
Даже с пустой формой - один раз жму ничего, второй раз -сообщение про дату, снова жму - ничего, еще раз - сообщение и там можно бесконечно. 

а срабатывает ли, если открыть в ворде как шаблон, нажать Alt+F11 и запустить выполнение зелёным треугольником?

12
Новый комментарий