1 / 1 / 1
Регистрация: 21.03.2014
Сообщений: 37

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

08.04.2015, 12:42. Показов 2722. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как в 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
Спасибо
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.04.2015, 12:42
Ответы с готовыми решениями:

Как удалить стиль в MS Word 2013?
Доброго время суток. Столкнулся со следующей проблемой. Создал в Word 3 своих стиля и сохранил для всех документов: В итоге не...

Как в Word создать свой собственный стиль оглавления?
Доброго времени суток форумчане, подскажите кто знает как в word создать свой собственный стиль оглавления. Искал в гугл но ничего нет. На...

Как прописать стиль для абзаца
Доброго времени суток. Как прописать стиль так, чтобы содержание тега <p> не выходило за границы блока по вертикали. Вот пример <p...

5
Модератор
Эксперт MS Access
 Аватар для shanemac51
12179 / 5029 / 805
Регистрация: 07.08.2010
Сообщений: 14,831
Записей в блоге: 4
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
0
1 / 1 / 1
Регистрация: 21.03.2014
Сообщений: 37
08.04.2015, 13:41  [ТС]
К сожалению, не помогло. Снова создался связанный стиль.
0
6082 / 1327 / 195
Регистрация: 12.12.2012
Сообщений: 1,023
08.04.2015, 14:41
Лучший ответ Сообщение было отмечено vitaminsk как решение

Решение

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

Visual Basic
1
ActiveDocument.Styles.Add Name:="Style1", Type:=wdStyleTypeParagraphOnly
С уважением,
Аксима
1
Модератор
Эксперт MS Access
 Аватар для shanemac51
12179 / 5029 / 805
Регистрация: 07.08.2010
Сообщений: 14,831
Записей в блоге: 4
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
1
1 / 1 / 1
Регистрация: 21.03.2014
Сообщений: 37
08.04.2015, 15:12  [ТС]
Огромное спасибо,Аксима! Все получилось!

Добавлено через 1 минуту
Огромное спасибо,shanemac51! Все получилось!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
08.04.2015, 15:12
Помогаю со студенческими работами здесь

Не отображается стиль абзаца
Почему-то мой "р" с classом "titles" не влияет на HTML. <div class="greybox"> <p><span class="titles"> Easy to slide...

Как изменить стиль формы и вообще всех объектов на свой стиль?
Собственно вопрос в том как изменить стиль формы и вообще всех объектов на свой стиль?

Как динамически присвоить стиль кнопке, если стиль описан в файле xaml?
Здравствуйте, столкнулся с проблемой: нужно в коде присвоить стиль кнопке. Этот стиль находится в xaml с определённым x:Key. Я в этой...

Как задать новый стиль для тега, у которого уже есть стиль
Привет всем. У меня есть вот такая запись в таблице стилей #c_menu li{ list-style:none; padding: 5px 0px; border-bottom: 1px solid...

Как создать стиль в программе "Word"
Как создать стиль в программе "Word" средствами VBA? Проблема При создании стиля таким способом: ActiveDocument.Styles.Add...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

Новые блоги и статьи
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 занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru