Lettered List

[ueape]

I'm trying to write a macro which allows me to select the first letter
of numbered list like:

d) xxxxxxxxxx
e) xxxxxxxxxxxx
f) xxxxxxxxxxxxxxx

The following macro works for numbered lists (with
wdListNumberStyleArabic instead of wdListNumberStyleLowercaseLetter),
but for lettered list, it works only if I enter the number of the
letter (e.g. 4 for letter d) instead of the letter itself.

Sub EnterStartLetter()
Dim NumName As String
NumName = InputBox("Mit welchem Buchstabe beginnen?")
With ListGalleries(wdNumberGallery).ListTemplates(2).ListLevels(1)
.NumberFormat = "%1)"
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = CentimetersToPoints(0.51)
.Alignment = wdListLevelAlignRight
.TextPosition = CentimetersToPoints(0.63)
.TabPosition = CentimetersToPoints(0.63)
.ResetOnHigher = 0
.StartAt = NumName
With .Font
…….
…….
……..
End Sub

I suppose the problem can be solved with a „Select Case" routine, but
I have no idea how to write it and to include it in the macro. Any
help is highly appreciated.

My system: Office XP, Windows XP

Andreas

 

[Word Heretic]

G'day (e-mail address removed),

for a start, I never use ListGalleries, name your list templates and
access the one in the document directly.

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


(e-mail address removed) reckoned: