|
Программно поставить маркер в 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с.
|
|
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn