使用BuiltInDocumentProperties设置或查询Word内置属性

!本文可能 超过1年没有更新,今后内容也许不会被维护或者支持,部分内容可能具有时效性,涉及技术细节或者软件使用方面,本人不保证相应的兼容和可操作性。

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

1
2
3
4
5
6
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描述如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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》

若无特别说明,本网站文章均为原创,原则上这些文章不允许转载,但是如果阁下是出于研究学习目的可以转载到阁下的个人博客或者主页,转载遵循创作共同性“署名-非商业性使用-相同方式共享”原则,请转载时注明作者出处谢绝商业性、非署名、采集站、垃圾站或者纯粹为了流量的转载。谢谢合作!
请稍后...

发表评论

电子邮件地址不会被公开。 必填项已用*标注