Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)"

@vitaminsk · Регистрация: 21.03.2014

Студворк — интернет-сервис помощи студентам

Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)".
По следующему коду создается стиль "Связанный (абзац и знак)". Где указать, что нет связи между абзацем и знаком?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 ActiveDocument.Styles.Add Name:="Style1", Type:=wdStyleTypeParagraph
 ActiveDocument.Styles("Style1").BaseStyle = "Обычный" 
 ActiveDocument.Styles("Style1").AutomaticallyUpdate = False
 
    With ActiveDocument.Styles("Style1").Font
        .Name = "Times New Roman"
        .Size = 14
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .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("Style1").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(4)
        .SpaceBefore = 12
        .SpaceBeforeAuto = False
        .SpaceAfter = 12
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphLeft
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
    ActiveDocument.Styles("Style1").NoSpaceBetweenParagraphsOfSameStyle = False
    ActiveDocument.Styles("Style1").ParagraphFormat.TabStops.ClearAll
    With ActiveDocument.Styles("Style1").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("Style1").NoProofing = False
    ActiveDocument.Styles("Style1").Frame.Delete

Спасибо

shanemac51 · 08.04.2015, 13:04

попробуйте ---хотя не уверена

Visual Basic
1
2
3
ActiveDocument.Styles.Add Name:="Style1", Type:=wdStyleTypeParagraph
 ActiveDocument.Styles("Style1").BaseStyle = "" 
 ActiveDocument.Styles("Style1").AutomaticallyUpdate = False

@vitaminsk · 08.04.2015, 13:41 **[ТС]**

К сожалению, не помогло. Снова создался связанный стиль.

Аксима · 08.04.2015, 14:41

vitaminsk, попробуйте так:

Visual Basic
1
ActiveDocument.Styles.Add Name:="Style1", Type:=wdStyleTypeParagraphOnly

С уважением,

Аксима

shanemac51 · 08.04.2015, 14:51

тогда

Visual Basic
1
2
3
ActiveDocument.Styles.Add Name:="Style1m", Type:=wdStyleTypeParagraphOnly
 ActiveDocument.Styles("Style1m").BaseStyle = "Обычный"
 ActiveDocument.Styles("Style1m").AutomaticallyUpdate = False

@vitaminsk · 08.04.2015, 15:12 **[ТС]**

Огромное спасибо,Аксима! Все получилось!

Добавлено через 1 минуту
Огромное спасибо,shanemac51! Все получилось!

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

@vitaminsk 1 / 1 / 1 Регистрация: 21.03.2014 Сообщений: 37
	08.04.2015, 13:41 [ТС]
	К сожалению, не помогло. Снова создался связанный стиль. 0

@vitaminsk 1 / 1 / 1 Регистрация: 21.03.2014 Сообщений: 37
	08.04.2015, 15:12 [ТС]
	Огромное спасибо,Аксима! Все получилось! Добавлено через 1 минуту Огромное спасибо,shanemac51! Все получилось! 0

Опции темы

Как в Word 2013 создать программно стиль "Абзаца", а не стиль "Связанный (абзац и знак)"

Решение