1

Тема: Автоматизация нумерации в случайных местах документа

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

2

Re: Автоматизация нумерации в случайных местах документа

Artyom52 пишет:

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

Вы можете использовать для нумерации поле SEQ. Например, если у вас два независимых потока нумерации CH и PW (соответственно для учебных часов и для практических работ), то соответствующие макросы могли бы выглядеть так:

Sub NewNum_CH()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
            Text:="SEQ CH \n"
End Sub
Sub NewNum_PW()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
            Text:="SEQ PW \n"
End Sub

Поместите эти макросы в доступный модуль (напр., в модуль NewMacros) и назначьте им горячие клавиши.
PS: Администрации форума: Зачем пятьдесят раз спрашивать, как звали Каренину?

3

Re: Автоматизация нумерации в случайных местах документа

Artyom52 пишет:

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

Если правило для учебных часов у вас особое, то надо будет соответственно изменить параметр Text в операторе добавления поля.