WordVBA多级编号的设置

　　一、需要达到的效果
　　文档中样式＂标题 1＂到＂标题 9＂分别链接到相应级别列表
　　各级列表与文字间不用默认的制表符连接，而用空格连接
　　完成对激活文档（当前文档）光标所选区域符合要求的标题段落（样式为＂标题 n＂的段落）应用此列表
　　多级列表目标效果二、代码Sub 多级列表()
　　Dim numFormatStr As String
　　Dim i As Byte
　　Dim doc As Document
　　Dim listTemp As Word.ListTemplate
　　Set doc = ActiveDocument
　　Set listTemp = Word.Application.ListGalleries(wdOutlineNumberGallery).ListTemplates(1)
　　For i = 1 To 9
　　numFormatStr = numFormatStr & ＂.%＂ & i
　　If Left(numFormatStr, 1) = ＂.＂ Then
　　numFormatStr = Mid(numFormatStr, 2)
　　End If
　　With listTemp.ListLevels(i)
　　.NumberFormat = numFormatStr
　　.TrailingCharacter = Word.WdTrailingCharacter.wdTrailingSpace
　　.NumberStyle = Word.WdListNumberStyle.wdListNumberStyleArabic
　　.NumberPosition = CentimetersToPoints(0)
　　.Alignment = Word.WdListLevelAlignment.wdListLevelAlignLeft
　　.TextPosition = CentimetersToPoints(0)
　　.ResetOnHigher = i - 1
　　.StartAt = 1
　　.LinkedStyle = ＂标题 ＂ & i
　　With .Font
　　.name = doc.Styles(＂标题 ＂ & i).Font.name
　　.NameFarEast = doc.Styles(＂标题 ＂ & i).Font.NameFarEast
　　.Size = doc.Styles(＂标题 ＂ & i).Font.Size
　　.Bold = doc.Styles(＂标题 ＂ & i).Font.Bold
　　.Italic = doc.Styles(＂标题 ＂ & i).Font.Italic
　　End With
　　End With
　　Next
　　For Each pa In Selection.Paragraphs
　　If pa.Style.NameLocal Like ＂标题 #＂ Then
　　pa.Range.ListFormat.ApplyListTemplateWithLevel _
　　ListTemplate:=listTemp, _
　　ContinuePreviousList:=True, _
　　ApplyTo:=wdListApplyToWholeList, _
　　DefaultListBehavior:=wdWord10ListBehavior
　　End If
　　Next
　　Set doc = Nothing
　　Set listTemp = Nothing
　　End Sub