用代码对Word添加自动编号，这种情况为什么不管用呢？

chenlifeng123

用录制宏的方法，给word段落添加自动编号，发现：
1、如果通过  导入图片的方式  添加自动编号之后，
2、再用代码 进行  非导入图片的方式 添加自动编号。
结果：显示的自动编号 依旧是上一次的导入图片的方式样子。
    除非不用代码，而是再在word上手动操作才能改回。在改回的过程中，我录制宏，反复对比导入图片与不导入图片的区别，然后把这些区别也写入代码，但还是无济于事。
    请问有哪位老师遇到过这个问题么？


（记得以前碰到过：给文档添加边框或背景色时也是如此，录制宏的代码不起作用，原来百度是录制宏默认了某句代码而省略写进去了，我们加上即可。不知道这个问题是否也有类似？）

duquancai

无附件，完全看不懂

chenlifeng123

1. Sub 非导入图片的方式()
   
2.     With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
   
3.         .NumberFormat = ChrW(61618)
   
4.         .TrailingCharacter = wdTrailingTab
   
5.         .NumberStyle = wdListNumberStyleBullet
   
6.         .NumberPosition = CentimetersToPoints(0)
   
7.         .Alignment = wdListLevelAlignLeft
   
8.         .TextPosition = CentimetersToPoints(0.74)
   
9.         .TabPosition = wdUndefined
   
10.         .ResetOnHigher = 0
    
11.         .StartAt = 1
    
12.         With .Font
    
13.             .Bold = wdUndefined
    
14.             .Italic = wdUndefined
    
15.             .StrikeThrough = wdUndefined
    
16.             .Subscript = wdUndefined
    
17.             .Superscript = wdUndefined
    
18.             .Shadow = wdUndefined
    
19.             .Outline = wdUndefined
    
20.             .Emboss = wdUndefined
    
21.             .Engrave = wdUndefined
    
22.             .AllCaps = wdUndefined
    
23.             .Hidden = wdUndefined
    
24.             .Underline = wdUndefined
    
25.             .Color = wdUndefined
    
26.             .Size = wdUndefined
    
27.             .Animation = wdUndefined
    
28.             .DoubleStrikeThrough = wdUndefined
    
29.             .Name = "Wingdings"
    
30.         End With
    
31.         .LinkedStyle = ""
    
32.     End With
    
33.     ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    
34.     Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    
35.         ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
    
36.         False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
    
37.         wdWord10ListBehavior
    
38. End Sub

复制代码

1. Sub 导入图片的方式添加自动编号()
   
2.     With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
   
3.         .NumberFormat = ChrW(61548)
   
4.         .TrailingCharacter = wdTrailingTab
   
5.         .NumberStyle = wdListNumberStylePictureBullet
   
6.         .NumberPosition = CentimetersToPoints(0)
   
7.         .Alignment = wdListLevelAlignLeft
   
8.         .TextPosition = CentimetersToPoints(0.74)
   
9.         .TabPosition = wdUndefined
   
10.         .ResetOnHigher = 0
    
11.         .StartAt = 1
    
12.         With .Font
    
13.             .Bold = wdUndefined
    
14.             .Italic = wdUndefined
    
15.             .StrikeThrough = wdUndefined
    
16.             .Subscript = wdUndefined
    
17.             .Superscript = wdUndefined
    
18.             .Shadow = wdUndefined
    
19.             .Outline = wdUndefined
    
20.             .Emboss = wdUndefined
    
21.             .Engrave = wdUndefined
    
22.             .AllCaps = wdUndefined
    
23.             .Hidden = wdUndefined
    
24.             .Underline = wdUndefined
    
25.             .Color = wdColorAutomatic
    
26.             .Size = wdUndefined
    
27.             .Animation = wdUndefined
    
28.             .DoubleStrikeThrough = wdUndefined
    
29.             .Name = "Symbol"
    
30.         End With
    
31.         .LinkedStyle = ""
    
32.     End With
    
33.     ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1). _
    
34.         ApplyPictureBullet FileName:="D:\1.png"
    
35.     ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    
36.     Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    
37.         ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
    
38.         False, ApplyTo:=wdListApplyToSelection, DefaultListBehavior:= _
    
39.         wdWord10ListBehavior
    
40. End Sub
    

复制代码

两段代码的区别是：
     1、导入图片的代码：
.NumberFormat = ChrW(61548)
.NumberStyle = wdListNumberStylePictureBullet
ApplyPictureBullet FileName:="D:\1.png"
上面三句及上述代码中最后一句；
  
    2、非导入图片的方式：
.NumberFormat = ChrW(61618)
.NumberStyle = wdListNumberStyleBullet
及对应代码的最后一句。

     我反复对比这两段代码的异同，却不知道如何处理了。
感谢老师关注，我第一次没有表达清楚，实在浪费老师的时间，对不起~！

duquancai

不明所以，到底是自动编号还是项目符号？完全看不懂你想干什么。

chenlifeng123

duquancai 发表于 2017-6-9 22:15
不明所以，到底是自动编号还是项目符号？完全看不懂你想干什么。

自动编号或项目编符号，都是一回事。
不同的是：自动编号用的是数字序号，项目符号用的是非数字