如何向文档的“备注”字段写入信息？

如何向文档的“备注”字段写入信息？
问：
嗨，Scripting Guy！能否使用脚本向文件的“备注”字段添加文字？
-- EF
答：
嗨，EF。如果您们当中有谁不明白 EF 所说的问题，请在 Windows 资源管理器中右击一个文档，然后单击“属性”。在弹出的对话框中，单击“摘要”选项卡。看到了标注为“备注”的文本框了吗？那就是 EF 想要使用脚本填充的字段。
那么，可以办到吗？实际上可以，前提是先访问Microsoft.com 上的“下载中心” 并下载 Dsofile。Dsofile 会安装一个新的 COM 对象，使您可以在文档的摘要信息字段中进行读写操作。例如，这里有一个脚本可以在文档的“备注”字段中加入灵活的备注：“This is a comment”。
Set objPropertyReader = CreateObject("DSOleFile.PropertyReader")Set objDocument = objPropertyReader.GetDocumentProperties _("C:\Scripts\Test.doc")objDocument.Comments = "This is a comment."
非常不错吧？可使用脚本修改的摘要信息字段包括：“作者”；“类别”；“备注”；“公司”；“关键字”；“最后一次保存者”；“管理器”；“主题”；“标题”。
当然，也可以读取摘要信息字段：
Set objPropertyReader = CreateObject("DSOleFile.PropertyReader")Set objDocument = objPropertyReader.GetDocumentProperties _("C:\Scripts\Test.doc")Wscript.Echo "App name: " & objDocument.AppNameWscript.Echo "Author: " & objDocument.AuthorWscript.Echo "Byte count: " & objDocument.ByteCountWscript.Echo "Category: " & objDocument.CategoryWscript.Echo "Character count: " & objDocument.CharacterCountWscript.Echo "Character count with spaces: " & objDocument.CharacterCountWithSpacesWscript.Echo "CLSID: " & objDocument.CLSIDWscript.Echo "Comments: " & objDocument.CommentsWscript.Echo "Company: " & objDocument.CompanySet colCustomProperties = objDocument.CustomPropertiesFor Each strProperty in colCustomPropertiesWscript.Echo vbTab & strProperty.Name & ": " & strProperty.ValueNextWscript.Echo "Date created: " & objDocument.DateCreatedWscript.Echo "Date last printed: " & objDocument.DateLastPrintedWscript.Echo "Date last saved: " & objDocument.DateLastSavedWscript.Echo "Has macros: " & objDocument.HasMacrosWscript.Echo "Hidden slides: " & objDocument.HiddenSlidesWscript.Echo "Icon: " & objDocument.IconWscript.Echo "Is read only: " & objDocument.IsReadOnlyWscript.Echo "Keywords" & objDocument.KeywordsWscript.Echo "Last edited by: " & objDocument.LastEditedByWscript.Echo "Line count: " & objDocument.LineCountWscript.Echo "Location: " & objDocument.LocationWscript.Echo "Manager: " & objDocument.ManagerWscript.Echo "Multimedia clips: " & objDocument.MultimediaClipsWscript.Echo "Name: " & objDocument.NameWscript.Echo "Page count: " & objDocument.PageCountWscript.Echo "Paragraph count: " & objDocument.ParagraphCountWscript.Echo "Presentation format: " & objDocument.PresentationFormatWscript.Echo "Presentation notes: " & objDocument.PresentationNotesWscript.Echo "ProgID: " & objDocument.ProgIDWscript.Echo "Revision number: " & objDocument.RevisionNumberWscript.Echo "Slide count: " & objDocument.SlideCountWscript.Echo "Subject: " & objDocument.SubjectWscript.Echo "Template: " & objDocument.TemplateWscript.Echo "Thumbnail: " & objDocument.ThumbnailWscript.Echo "Title: " & objDocument.TitleWscript.Echo "Version: " & objDocument.VersionWscript.Echo "Word count: " & objDocument.WordCount
在您提问之前，我们不知道操作系统内部中有任何方法可以让您修改摘要信息字段；必须下载 Dsofile 来完成此任务。当然可以使用 Windows Shell（外壳）对象至少读取部分这类信息。如需详细信息，请参见Microsoft Windows 2000 脚本指南.