[原创]用VBA修改文档属性

keypress

Sub resetProperties() Dim proArray(30) As Variant, mySet() As Variant mySet = Array(1, 3, 21) proArray(1) = ActiveDocument.Paragraphs(1) proArray(3) = "keypress" proArray(21) = "个人电脑" For Each i In mySet ActiveDocument.BuiltInDocumentProperties(i) = proArray(i) MsgBox ActiveDocument.BuiltInDocumentProperties(i).Value On Error Resume Next Next End Sub

keypress

若要返回代表指定内置文档属性的单一 DocumentProperty 对象，请使用 BuiltinDocumentProperties(index)，其中 index 是一个 WdBuiltInProperty 常量。 ID WdBuiltInProperty常量 实际名称 1 wdPropertyTitle Title= 2 wdPropertySubject Subject= 3 wdPropertyAuthor Author= 4 wdPropertyKeywords Keywords= 5 wdPropertyComments Comments= 6 wdPropertyTemplate Template= Normal.dot 7 wdPropertyLastAuthor Last author= 8 wdPropertyRevision Revision number= 1 9 wdPropertyAppName Application name= Microsoft Office Word 10 wdPropertyTimeLastPrinted Last print date= 11 wdPropertyTimeCreated Creation date= 2006-2-25 15:41:00 12 wdPropertyTimeLastSaved Last save time= 13 wdPropertyVBATotalEdit Total editing time= 23 14 wdPropertyPages Number of pages= 18 15 wdPropertyWords Number of words= 4770 16 wdPropertyCharacters Number of characters= 17692 17 wdPropertySecurity Security= 0 18 wdPropertyCategory Category= 19 wdPropertyFormat Format= 20 wdPropertyManager Manager= 21 wdPropertyCompany Company= 22 wdPropertyBytes Number of bytes= 189952 23 wdPropertyLines Number of lines= 796 24 wdPropertyParas Number of paragraphs= 795 25 wdPropertySlides Number of slides= 26 wdPropertyNotes Number of notes= 27 wdPropertyHiddenSlides Number of hidden Slides= 28 wdPropertyMMClips Number of multimedia clips= 29 wdPropertyHyperlinkBase Hyperlink base= 30 wdPropertyCharsWSpaces Number of characters (with spaces)= 17692

[此贴子已经被作者于2006-2-25 18:58:37编辑过]

mashimaro135

我在Delphi中想更改文件的属性，怎么改不了啊，哪位可以帮我写个例子出来，多谢了。

守柔

并非所有文档属性都能修改的。

如果你在文件/属性的属性对话框中，可以直接修改的属性，VBA中自然也可以修改。

代码中你甚至可以直接为这些属性设置新的值，但设置后，但它不接受这些修改。

sgrshh29

原帖由 守柔 于 2006-7-29 05:57 发表
并非所有文档属性都能修改的。如果你在文件/属性的属性对话框中，可以直接修改的属性，VBA中自然也可以修改。代码中你甚至可以直接为这些属性设置新的值，但设置后，但它不接受这些修改。

那有没有办法让它接受修改后的属性值呢？我试了一下，先用vba修改属性，然后从菜单“文件”－“属性”中能看的修改的信息。必须要“确认”后再保存文档，这样就保存了修改的属性值了。但是vba中如何调用红色的这一段呢？

sgrshh29

问题已经解决，用sendkeys方法曲线一下。

让我在意什么

能查询到各类文档的属性-详细信息里面的标题值吗，还是要word excel等不同文档使用不同API