[pancho6102]

Hola buen día estoy realizando un desarrollo que produce un archivo WORD mediante OLE automatization ya tengo casi todo (tamaño texto, tipo letra añlineaciones, etc) pero no he podido insertar viñetas en este caso numeraciones osea que cuando cree mi archivo de esto:

Prueba Texto 1.
Prueba Texto 2.
Prueba Texto 3.

sea:

1. Prueba Texto 1.
2. Prueba Texto 2.
3. Prueba Texto 3.


el codigo mediante macros hace esto:
Selection.MoveUp Unit:=wdLine, Count:=4
Selection.MoveRight Unit:=wdCharacter, Count:=15, Extend:=wdExtend
With ListGalleries(wdNumberGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = "%1."
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.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 = ""
End With
.LinkedStyle = ""
End With

pero no he podido transcribirlo en ABAP. he intentado esto pero no funciona:
GET PROPERTY OF v_objword 'Selection' = v_objselection .
GET PROPERTY OF v_objselection 'Range' = gs_range .
SET PROPERTY OF gs_range 'ListFormat' = 'ApplyNumberDefault(1)' .

pero no funciona.

Alguien ha intentado hacer esto con numeraciones o viñetas.

Saludos.