Пишу скрипт на VB 2003 .Net, создаю програмно стиль параграфа, все необходимые параметры задал, а вот как привязать к стилю шорткат в мануалах никак не найду... Может кто уже сталкивался с данной проблемой? :rolleyes:
Описание стиля выглядит следующим образом:
Dim myStyle = myDoc.ParagraphStyles.Add()
With myStyle
.Name = "Основной"
.appliedFont = "Helios"
.appliedLanguage = "Russian"
.composer = "Adobe Single-line Composer"
.fillColor = mySwatches(3)
.firstLineIndent = "4 mm"
.fontStyle = "Regular"
.HyphenateAfterFirst()
.HyphenateAfterFirst = 2
.HyphenateBeforeLast = 2
.HyphenateCapitalizedWords = True
.HyphenateLadderLimit = 0
.HyphenateWordsLongerThan = 3
.HyphenationZone = "6.35 mm"
.Hyphenation = True
.justification = 1818915700
.kerningMethod = "metrics"
.leading = "9.6 pt"
.pointSize = 9
.position() = 1852797549
End With
Описание стиля выглядит следующим образом:
Dim myStyle = myDoc.ParagraphStyles.Add()
With myStyle
.Name = "Основной"
.appliedFont = "Helios"
.appliedLanguage = "Russian"
.composer = "Adobe Single-line Composer"
.fillColor = mySwatches(3)
.firstLineIndent = "4 mm"
.fontStyle = "Regular"
.HyphenateAfterFirst()
.HyphenateAfterFirst = 2
.HyphenateBeforeLast = 2
.HyphenateCapitalizedWords = True
.HyphenateLadderLimit = 0
.HyphenateWordsLongerThan = 3
.HyphenationZone = "6.35 mm"
.Hyphenation = True
.justification = 1818915700
.kerningMethod = "metrics"
.leading = "9.6 pt"
.pointSize = 9
.position() = 1852797549
End With