Автоматизация издания приказов

[Andrey_410]

Добрый день!
Приходится практически каждый день писать один и тот же повторяющийся приказ и хотелось бы чтобы дата и номер приказа подставлялись автоматически. Ну например, если сегодня был приказ №254 то завтра открыв шаблон приказа мы видим №255 ну и так далее...

[viter.alex]

Смотрите пример, надеюсь это то, что вы хотите.
Если нужно, то можно и сохранять приказ под определенным именем.

В документе номер приказа помещен в закладку OrderNum. Когда вы создаете на основе этого шаблона документ, макрос Document_New увеличивает содержимое этой закладки на 1. А дата вставлена с помощью поля DATE: { DATE \@ "d MMMM yyyy 'г.'" }

[Andrey_410]

Спасибо что ответили.
Что то у меня ничего не выходит. Открываю шаблон, вижу дату и приказ №44, печатаю пару слов ниже и сохраняю документ под именем приказ 44.
После этого выбираю создать новый документ из шаблона при открытии вижу теже дату и номер приказа 44, хотя по идее должен быть №45. Может я что то не так делаю?
Кстати забыл сказать,что для чистоты эксперимента системную дату на завтра я менял.

[viter.alex]

Скачайте шаблон заново. Я ошибся в первом варианте, не добавил сохранение нового номера в шаблоне.

[Andrey_410]

Блин фигня какая то
Скачал шаблон заново, но ничего не изменилось.
Может я что то не так делаю? Если Вам не затруднительно опишите пошаговую процедуру моих действий пожалуйста

[viter.alex]

Фишка состоит в какой-то непрозрачной работе с объектом ThisDocument. Срабатывает через раз. Я изменил немного код. Откройте шаблон для редактирования (ПКМ→Открыть) и замените макрос на нижеприведенный. Должно помочь. У меня работает.

Private Sub Document_New()
  Dim oDoc As Document
  Dim oRng As Range
  Dim bm As Bookmarks
  
  'Запоминаем последний созданный документ
  Set oDoc = Documents(1)
  
  'Запоминаем закладки в документе
  Set bm = oDoc.Bookmarks
  
  'Запоминаем положение интересующей нас закладки
  Set oRng = bm("OrderNum").Range
  
  'Увеличиваем текст в закладке на 1
  oRng.Text = CInt(oRng.Text) + 1
  
  'Поскольку при таком добавлении содержимого в закладку эта закладка уничтожается,
  'то нужно вернуть закладку в документ
  bm.Add "OrderNum", oRng
  
  'Теперь в той же последовательности сохраняем обновленную закладку в шаблон
  Set bm = ThisDocument.Bookmarks
  Set oRng = bm("OrderNum").Range
  oRng.Text = oDoc.Bookmarks("OrderNum").Range.Text
  bm.Add "OrderNum", oRng
  oDoc.AttachedTemplate.Save
End Sub

[Aent]

Если брать/сохранять номер из переменной документа (variables), то
не придётся модифицировать закладки.

[viter.alex]

Aent, совершенно верно. Но в шаблон нельзя сохранить переменную документа. Или я ошибаюсь?

[viter.alex]

Еще один вариант, но уже с применением поля DOCVARIABLE, по предложению Aent
Макрос выглядит так:

Private Sub Document_New()
  Dim oDoc As Document
  
  'Запоминаем последний созданный документ
  Set oDoc = Documents(1)
  
  'Изменяем переменную в документе
  oDoc.Variables("OrderNum").Value = oDoc.Variables("OrderNum").Value + 1
  'Обновляем поля в документе
  oDoc.Fields.Update
  'Записываем новое значение переменной в шаблон
  ThisDocument.Variables("OrderNum").Value = oDoc.Variables("OrderNum").Value
  'Сохраняем шаблон
  oDoc.AttachedTemplate.Save
End Sub