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: Администрации форума: Зачем пятьдесят раз спрашивать, как звали Каренину?
