Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
1 / 1 / 1
Регистрация: 21.03.2014
Сообщений: 37
1

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

08.04.2015, 12:42. Показов 1408. Ответов 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)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2015, 12:42
Ответы с готовыми решениями:

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

Стиль "Абзаца" и "Выделения"
Столкнулся с таким, на мой взгляд, интересным "феноменом" (а может я чего не понимаю?) Есть два...

Как написать регулярное выражение для выдергивания английских букв и символов: "+", ",", ":", "-", " ", "!", "?" и "."
Не могу ни как собразить как написать регулярное выражение для выдергивания английских букв и...

Создать запись "Двигатель", которая содержит элементы "Название", "Мощность", "Скорость", "Цена"
Создать запись "Двигатель", которая содержит элементы "Название", "Мощность", "Скорость",...

__________________
5
Модератор
Эксперт MS Access
10043 / 4057 / 654
Регистрация: 07.08.2010
Сообщений: 11,386
Записей в блоге: 3
08.04.2015, 13:04 2
попробуйте ---хотя не уверена

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  [ТС] 3
К сожалению, не помогло. Снова создался связанный стиль.
0
6069 / 1313 / 195
Регистрация: 12.12.2012
Сообщений: 1,024
08.04.2015, 14:41 4
Лучший ответ Сообщение было отмечено vitaminsk как решение

Решение

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

Visual Basic
1
ActiveDocument.Styles.Add Name:="Style1", Type:=wdStyleTypeParagraphOnly
С уважением,
Аксима
1
Модератор
Эксперт MS Access
10043 / 4057 / 654
Регистрация: 07.08.2010
Сообщений: 11,386
Записей в блоге: 3
08.04.2015, 14:51 5
тогда
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  [ТС] 6
Огромное спасибо,Аксима! Все получилось!

Добавлено через 1 минуту
Огромное спасибо,shanemac51! Все получилось!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2015, 15:12

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Стиль Xaml для кнопки "крестик" и "свернуть"
Приветствую! В триггерах, сеттерах и т д не очень силён, подскажите пожалуйста, как можно...

В зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", "очень холодно"
В зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло",...

Получить значение из {"text1":"val1","text2":"val2","text3":{"text":"val"}}
Есть такая строка var my = '{"text1":"val1","text2":"val2","text3":{"text":"val"}}'; Как из...

Создать абстрактный класс "Издание" и производные классы "Книга", "Статья", "Электронный ресурс"
1. Создать абстрактный класс Издание с методами, позволяющими вывести на экран информацию об...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.