主题：[求助] 追问：代码自动完成与代码精灵，获取枚举值

比较麻烦，你要用循环，或者递归，最后得出值

Functions.remove("函数")
Dim Code As String
Code = "return gettype(PrintDoc)"
Functions.Add("函数",Code)
Functions.Complie()
Dim o = Functions.Execute("函数")

Dim p = o.GetProperty("PageFooter")

Functions.remove("函数")
Code = "return gettype(" & p.PropertyType.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")

p = o.GetProperty("BreakAfter")

Functions.remove("函数")
Code = "return gettype(" & p.PropertyType.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")
msgbox(o.tostring)

Functions.remove("函数")
Code = "return gettype(" & o.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")
For Each c As object In  [Enum].GetValues(o)
    output.Show(c.Tostring)
Next

哪里需要查询表啊？

比如你敲击.的时候，就截取这段 Doc.PageFooter.BreakAfter，然后分割出来。先获取doc的类型，然后获取PageFooter的类型，然后获取BreakAfter的类型，最后就能得到你要的属性方法等东西。