"левые" стили в шаблоне

Пожалуйста, напишите, какие стили в данном шаблоне вы считаете "левыми"? Несколько названий.

Применил к вашему шаблону макрос по выявлению стилей:

[code:1u0fhv7y]
Sub ShowStyles()
   Dim i As Integer
   MsgBox "Количество стилей: " & ActiveDocument.Styles.Count
   Selection.EndKey Unit:=wdStory
   For i = 1 To ActiveDocument.Styles.Count
       'вывод номеров стилей и их наименований в конец текущего файла
       'MsgBox (i & " " & ActiveDocument.Styles(i).NameLocal)
       Selection.Range.Text = i & " " & ActiveDocument.Styles(i).NameLocal
       Selection.EndKey Unit:=wdLine
       Selection.TypeParagraph
   Next i
End Sub
[/code:1u0fhv7y]

Макрос обнаружил 283 стиля, часть из которых в таблице стиле не показывается
Перечень стилей - в приложении.

[b:1j5vb8p4]sonriza[/b:1j5vb8p4], возможно, это и есть ответ на один из ваших вопросов - лишние стили могут добавляться из шаблона [b:1j5vb8p4]Normal.dot[/b:1j5vb8p4] (или [b:1j5vb8p4]Normal.dotx[/b:1j5vb8p4]).

Вы так и не написали пока: какие стили вы считаете лишними? Есть ли они в файле, который я приложил?

Заголовки [b:ttx318ds]Заголовок 1 - Заголовок 9[/b:ttx318ds] предустановленные. Стандартными методами их удалить нельзя.

Что касается стилей [b:ttx318ds]1 / 1.1 / 1.1.1[/b:ttx318ds] и [b:ttx318ds]1 / a / i[/b:ttx318ds], я подумаю.

Вот еще макрос, позволяющий напечатать только встроенные стили:

[code:2h8rxdey]
Sub ShowBuiltInStyles()
   Dim i As Integer
   Dim i1 As Integer
   'счетчик встроенных стилей
   Selection.EndKey Unit:=wdStory
   For i = 1 To ActiveDocument.Styles.Count
       If ActiveDocument.Styles(i).BuiltIn = True Then
       'печать перечня встроенных стилей с номерами стилей в коллекции
           Selection.Range.Text = i & " " & ActiveDocument.Styles(i).NameLocal
           Selection.EndKey Unit:=wdLine
           Selection.TypeParagraph
           i1 = i1 + 1
       End If
   Next i
   Selection.EndKey Unit:=wdLine
   Selection.TypeParagraph
   Selection.Range.Text = "Общее количество стилей: " & ActiveDocument.Styles.Count
   Selection.EndKey Unit:=wdLine
   Selection.TypeParagraph
   Selection.Range.Text = "Количество встроенных стилей: " & i1
End Sub
[/code:2h8rxdey]

В вашем файле их оказалось [b:2h8rxdey]264[/b:2h8rxdey] из общего количества [b:2h8rxdey]283[/b:2h8rxdey].
Список встроенных стилей прилагаю.

Верно, попробуйте их скрыть.


Мы не обращаем на них внимания.

[quote="sonriza"]Можете поделиться своим шаблоном?  Интересно как его делать профессионалы?/quote]

У нас используется корпоративный шаблон, созданный задолго до моего прихода в компанию.
Единственно, могу посоветовать добавлять в созданные вами стили идентификатор вашей компании.
Например, если компания называется "Айсберг", то стиль заголовка первого уровня может именоваться так:
[b:14fennqb]Айс - Заголовок 1[/b:14fennqb]
Так будет достаточно солидно и сразу будет видно, что это стиль вашей компании.

Для вариантов стилей мы используем знак [b:14fennqb]#[/b:14fennqb] в конце названия. Например, для второго варианта заголовка первого уровня название может выглядеть так:
[b:14fennqb]Айс - Заголовок 1##[/b:14fennqb]

Шаблон может быть размещен в сети и должен быть защищен от изменений (мы это уже обсуждали).
Оригинал шаблона должен храниться у вас.

Вот, это действие защиты стилей!  
Если вы хотите изменить выделить слова жирным шрифтом, то, тем самым, вы хотите изменить стиль [b:ppubyx9z]Обычный[/b:ppubyx9z]. Word это сделать не дает.
Поэтому я могу посоветовать пометить шаблон в операционной системе атрибутом [b:ppubyx9z]Только для чтения[/b:ppubyx9z]. Так у вас будет больше возможностей для маневра.

Если создать документ на основе шаблона с атрибутом Только для чтения, документ тоже нельзя же будет редактировать?