请问Word中编号内容如何读取啊?
所有内容按编号列在文档中,
需要按编号一个个的读出来
[解决办法]
With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1. "
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = CentimetersToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = CentimetersToPoints(0.74)
.TabPosition = CentimetersToPoints(0.74)
.ResetOnHigher = 0
.StartAt = 1
.LinkedStyle = " "
End With
ListGalleries(wdNumberGallery).ListTemplates(1).Name = " "
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
Selection.TypeText Text:= "a "//这个地方读编号后的内容或者改内容
Selection.TypeParagraph
Selection.Paragraphs(1).SelectNumber
Selection.TypeText Text:= "3 "//这个地方可以修改编号
[解决办法]
ActiveDocument.Lists(1).ListParagraphs.Item(2)
2是第二行,