提醒：本页面将不再更新、维护或者支持，文章、评论所叙述内容存在时效性，涉及技术细节或者软件使用方面不保证能够完全有效可操作，请谨慎参考！

Word的内置属性（WdBuiltInProperty）往往给我们提供了很多有用的信息，我们可以通过BuiltInDocumentProperties的方式进行访问这些属性，参考下面的VBScript代码：

Dim wdApp
Set wdApp = WSH.CreateObject("Word.Application")
wdApp.ActiveDocument.BuiltInDocumentProperties(Index)
' Set doc = wdApp.Documents.Open(...)
' doc.BuiltInDocumentProperties(Index) 这样也可以
Set wdApp = Nothing

注意这里的Index索引属性，其取值不同就代表操作不同的内置属性，其相关取值用Visual Basic描述如下：

Public Enum wdAttributes
  wdPropertyTitle = &H00000001 ' 标题
  wdPropertySubject = &H0000002 ' 主题
  wdPropertyAuthor = &H0000003 ' 作者
  wdPropertyKeywords = &H0000004 ' 关键词
  wdPropertyComments = &H0000005 ' 注释
  wdPropertyTemplate = &H0000006 ' 模板
  wdPropertyLastAuthor = &H0000007 ' 最后一次作者
  wdPropertyRevision = &H0000008 ' 校对修改
  wdPropertyAppName = &H0000009 ' 应用程序名
  wdPropertyTimeLastPrinted = &H000000A ' 最后一次打印时间
  wdPropertyTimeCreated = &H000000B ' 创建时间
  wdPropertyTimeLastSaved = &H000000C ' 最后一次保存时间
  wdPropertyVBATotalEdit = &H000000D ' VBA Edits的数目
  wdPropertyPages = &H000000E ' 总页数
  wdPropertyWords = &H000000F ' 总字数
  wdPropertyCharacters = &H0000010 ' 总字符数
  wdPropertySecurity = &H0000011 ' 安全设置
  wdPropertyCategory = &H0000012 ' 类别
  wdPropertyFormat = &H0000013 ' (尚未支持)
  wdPropertyManager = &H0000014 ' 管理器
  wdPropertyCompany = &H0000015 ' 公司
  wdPropertyBytes = &H0000016 ' 字节数
  wdPropertyLines = &H0000017 ' 行数
  wdPropertyParas = &H0000018 ' 段落数
  wdPropertySlides = &H0000019 ' (尚未支持)
  wdPropertyNotes = &H000001A ' 便签数
  wdPropertyHiddenSlides = &H000001B ' (尚未支持)
  wdPropertyMMClips = &H000001C ' (尚未支持)
  wdPropertyHyperlinkBase = &H000001D ' (尚未支持)
  wdPropertyCharsWSpaces = &H000001E ' 带空白字符的字符统计
end Enum

参考.NET版实现 《WdBuiltInProperty Enumeration》 。