Как маркеровать текст?

[RomanNovi4ok]

Подскажите, как сделать, чтобы выгружаемый из навижн текст в WORD маркеровался?

• один
• два
• три

СПАСИБО!

[RomanNovi4ok]

Никто не знает как перевести вот этот макрос из WORD на язык навижн?

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
End Sub

[InTacto]

Сейчас нет времени все переводить, но могу дать пару советов
- везде где вызываеются элементы по индексам - ListTemplates(1) - замените на ListTemplates.Item(1).
- значение перечисленных констант можно узнать через кнопку F2 дезайнера макросов, вбив ее название в поиске
- вместо selection пишите прямую ссылку до объекта.

[romeo]

...
или создать вордовый шаблон, нарисовать одну строку списка, в коде копировать/вставлять ее столько раз, сколько элементов списка надо вывести (с форматированием). Не пробовал, не знаю. Но должно получиться.

[RomanNovi4ok]

СПАСИБО! попробую перевести сначала(про ф2 и не знал... вот лопух), потом если не получится то шаблоном сделаю