tegl 发表于 2016-1-17 16:10:22

请问如何用Au3判断word文档中是否应用了项目符号

请问如何用Au3判断word.doc文档中最后3段是否应用了项目符号●

以下是录制的宏Sub Macro3()
'
' Macro3 Macro
' 宏在 2016/1/17 由 User 录制
'
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
      .NumberFormat = ChrW(61548)
      .TrailingCharacter = wdTrailingTab
      .NumberStyle = wdListNumberStyleBullet
      .NumberPosition = CentimetersToPoints(0)
      .Alignment = wdListLevelAlignLeft
      .TextPosition = CentimetersToPoints(0.74)
      .TabPosition = CentimetersToPoints(0.74)
      .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.ApplyListTemplate ListTemplate:=ListGalleries( _
      wdBulletGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _
      wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
End Sub

kevinch 发表于 2016-1-20 20:22:58

paragraphs集合可以枚举各段落，然后判断range.listformat.liststring即可

xz00311 发表于 2016-1-21 18:42:25

尝试一下先
页: [1]
查看完整版本: 请问如何用Au3判断word文档中是否应用了项目符号