Col registratore di macro ho creato tramite vba un elenco puntato. Questo il codice:
- Codice: Seleziona tutto
Selection.MoveLeft Unit:=wdCharacter, Count:=19
Selection.MoveUp Unit:=wdLine, Count:=6
Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend
With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = ChrW(61656)
.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 = "Wingdings"
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
ma quando provo a scrivere una riga dopo questo elenco con, per esempio,
- Codice: Seleziona tutto
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.TypeText Text:="Prova"
viene aggiunta all'elenco col simbolo a sinistra ed indentata.
NOn capisco come si fa per "uscire" dall'elenco.
Grazie
