Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Подскажите пожалуйста, как определить list format использованного ранее списка? Или, как списку, которому свойства были присвоены стилем, оставить эти свойства, изменив лишь
ContinuePreviousList:= True?
Подскажите пожалуйста, как определить list format использованного ранее списка? Или, как списку, которому свойства были присвоены стилем, оставить эти свойства, изменив лишь
ContinuePreviousList:= True?
Не знаю как редактировать сообщения, поэтому оставляю здесь уточнение, подразумевается и ListFormat (как например ApplyListTemplateWithLevel) и ListTemplate с его характеристиками.
Ещё одно уточнение: Суть задачи - применить к одному списку ListTemplate другого с одним изменением - ContinuePreviousList:=True вместо False.
Ещё одно уточнение: Суть задачи - применить к одному списку ListTemplate другого с одним изменением - ContinuePreviousList:=True вместо False.
Возможно я ошибаюсь, но то, что вы пишете, похоже на применение операции CopyFormat на исходном нумерованном абзаце, а затем PasteFormat на целевом нумерованном абзаце: нумерация и стиль в целевом абзаце будет унаследована из предыдущего абзаца. Для этой цели есть одноименные Word'овские встроенные макросы.
Fck_This пишет:Ещё одно уточнение: Суть задачи - применить к одному списку ListTemplate другого с одним изменением - ContinuePreviousList:=True вместо False.
Возможно я ошибаюсь, но то, что вы пишете, похоже на применение операции CopyFormat на исходном нумерованном абзаце, а затем PasteFormat на целевом нумерованном абзаце: нумерация и стиль в целевом абзаце будет унаследована из предыдущего абзаца. Для этой цели есть одноименные Word'овские встроенные макросы.
Спасибо. Это сработало, но было бы хорошо узнать ответ на свой вопрос. 
Может кто-то знает.
Ещё одно уточнение: Суть задачи - применить к одному списку ListTemplate другого с одним изменением - ContinuePreviousList:=True вместо False.
Можно применить такой VBA-код (в примере стиль нумерации из первого абзаца документа применяется к третьему абзацу):
Sub ApplyListTemplateToNumberedParagraph()
Dim lt As ListTemplate
Set lt = ActiveDocument.Paragraphs(1).Range.ListFormat.ListTemplate
If Not (lt Is Nothing) Then
ActiveDocument.Paragraphs(3).Range.ListFormat.ApplyListTemplate lt
End If
End SubFck_This пишет:Ещё одно уточнение: Суть задачи - применить к одному списку ListTemplate другого с одним изменением - ContinuePreviousList:=True вместо False.
Можно применить такой VBA-код (в примере стиль нумерации из первого абзаца документа применяется к третьему абзацу):
Sub ApplyListTemplateToNumberedParagraph() Dim lt As ListTemplate Set lt = ActiveDocument.Paragraphs(1).Range.ListFormat.ListTemplate If Not (lt Is Nothing) Then ActiveDocument.Paragraphs(3).Range.ListFormat.ApplyListTemplate lt End If End Sub
Премного благодарен. Данный метод позволяет создавать шаблоны для двух и более разных ListTemplate.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться