Имя: Пароль:
1C
 
Программно поставить маркер в WORD
0 Daget
 
04.08.16
16:56
Добрый день. Подскажите как программно поставить маркер в WORD с помощью 1с 8.3, заранее благодарен.
1 Мимохожий Однако
 
04.08.16
17:18
Сначала научи это делать макросом Word. После перепиши этот макрос в 1С. Пожалуйста.
2 Daget
 
04.08.16
17:58
(1) Просто создал макрос, но там слишком много строк.... как по моему мнению лишнего
3 Мимохожий Однако
 
04.08.16
17:59
Сначала упрости макрос
4 Daget
 
04.08.16
18:00
With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = CentimetersToPoints(0.63)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.27)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior (3)
5 Daget
 
04.08.16
18:01
Если поставить другой маркер, то просто изменяется .Name = "Symbol" данная строка
6 Мимохожий Однако
 
04.08.16
18:07
Обычно берут готовый макет Word с маркёрами  и сохраняют в хранилище. А оттуда берут для печати. ИМХО, это проще сабжа
7 Daget
 
04.08.16
18:10
(6) у меня так же, тока мне надо изменять маркер в зависимости от условия.
8 Dmitry77
 
04.08.16
18:36
Маркеры хранишь в отдельном файле. Разобраться как работает выделить/вставить...
9 Daget
 
04.08.16
19:15
(8) (6) благодарю за помощь), всё понял как сделать, сам тока начинаю постигать 1с.
AdBlock убивает бесплатный контент. 1Сергей