Программно поставить маркер в 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с.