Как создать стиль в программе "Word" средствами VBA?

[Скрипт]

Проблема

При создании стиля таким способом:

ActiveDocument.Styles.Add Name:=, Type:=

создаётся стиль на основе стиля, где находится текстовый курсор. Т.е. если, например, курсор находится в тексте со стилем "Заголовок 1", то созданный стиль будем иметь такое же оформление, как и стиль "Заголовок 1". Таким способом стиль удобно создавать в самой программе "Word", когда нужно создать стиль на основе выделенного текста. Но для VBA такой способ никак не подходит.


Вопрос

Вот как создать стиль на основе стиля "Обычный"? Только переместив курсор в текст, который имеет стиль "Обычный"?

[shanemac51]

ЗАПИСАТЬ МАКРОРЕКОВДЕРОМ ЗАГОТОВКУ И ПОЧИСТИТЬ

Sub WW91SCRIPT()

 
 WordBasic.FormatStyle Name:="Стиль1", NewName:="", BasedOn:="", NextStyle _
  :="", Type:=0, FileName:="", Link:=""
 With ActiveDocument.Styles("Стиль1").Font
  .Name = "Arial"
  .Size = 20
  .Bold = True
  .Italic = True
  .Underline = wdUnderlineSingle
  .UnderlineColor = wdColorAutomatic
  .StrikeThrough = False
  .DoubleStrikeThrough = False
  .Outline = False
  .Emboss = False
  .Shadow = False
  .Hidden = False
  .SmallCaps = False
  .AllCaps = False
  .Color = wdColorAutomatic
  .Engrave = False
  .Superscript = False
  .Subscript = False
  .Scaling = 100
  .Kerning = 0
  .Animation = wdAnimationNone
 End With
 With ActiveDocument.Styles("Стиль1").ParagraphFormat
  .LeftIndent = CentimetersToPoints(0)
  .RightIndent = CentimetersToPoints(0)
  .SpaceBefore = 0
  .SpaceBeforeAuto = False
  .SpaceAfter = 0
  .SpaceAfterAuto = False
  .LineSpacingRule = wdLineSpaceSingle
  .Alignment = wdAlignParagraphCenter
  .WidowControl = True
  .KeepWithNext = False
  .KeepTogether = False
  .PageBreakBefore = False
  .NoLineNumber = False
  .Hyphenation = True
  .FirstLineIndent = CentimetersToPoints(0.95)
  .OutlineLevel = wdOutlineLevelBodyText
  .CharacterUnitLeftIndent = 0
  .CharacterUnitRightIndent = 0
  .CharacterUnitFirstLineIndent = 0
  .LineUnitBefore = 0
  .LineUnitAfter = 0
  .MirrorIndents = False
  .TextboxTightWrap = wdTightNone
 End With
 ActiveDocument.Styles("Стиль1").NoSpaceBetweenParagraphsOfSameStyle = _
  False
 ActiveDocument.Styles("Стиль1").ParagraphFormat.TabStops.ClearAll
 With ActiveDocument.Styles("Стиль1").ParagraphFormat
  With .Shading
   .Texture = wdTextureNone
   .ForegroundPatternColor = wdColorAutomatic
   .BackgroundPatternColor = wdColorAutomatic
  End With
  .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  .Borders(wdBorderRight).LineStyle = wdLineStyleNone
  .Borders(wdBorderTop).LineStyle = wdLineStyleNone
  .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  With .Borders
   .DistanceFromTop = 1
   .DistanceFromLeft = 4
   .DistanceFromBottom = 1
   .DistanceFromRight = 4
   .Shadow = False
  End With
 End With
 ActiveDocument.Styles("Стиль1").LanguageID = wdRussian
 ActiveDocument.Styles("Стиль1").NoProofing = False
 ActiveDocument.Styles("Стиль1").Frame.Delete
 WordBasic.NewStyle
End Sub

[Скрипт]

Пункт 1

shanemac51, вот этот код не только создаёт стиль, но ещё и применяет его к тексту, где находится курсор. Поэтому тоже плохой вариант.

 WordBasic.FormatStyle Name:="Стиль1", NewName:="", BasedOn:="", NextStyle _
  :="", Type:=0, FileName:="", Link:=""

Пункт 2

Можно сделать стиль на основе стиля, в котором находится курсор, но потом надо писать кода на одну - две страницы по сбрасыванию настроек, т.к. у стиля очень много всего.

Пока остаётся один оптимальный вариант - помещение курсора в текст, в котором есть стиль "Обычный", и создание стиля.


Пункт 3

shanemac51, если для вас в интернете шрифт мелкий, то можно увеличивать масштаб. Я практически на всех страницах в интернете увеличиваю масштаб. Делаю так: Ctrl + "+".

[shanemac51]

при CTRL+ теряется размещение полей сообщения

форум настроен на некий размер, иначе [div] и [тb] или обрезаются или накладываются
---
для меня это крайне неудобно

[Скрипт]

shanemac51, я пользуюсь "Internet Explorer 9" и масштаб делаю 125% на всех веб-страницах и мне удобно и ничего никуда не уезжает. Монитор у меня 40 сантиметров по диагонали.

Если что-то плохо умещается на мониторе, то я уменьшаю масштаб.