Rachel有数百个文档需要更改title属性。 （这是与其他文档属性一起维护的title属性。）她想知道是否有一种方法可以轻松地对如此大量的文档进行此更改。

Word没有内置的方法可以同时影响大量文档，但是您可以创建一个宏来为您完成工作。要记住的重要一点是，您希望能够访问内置文档的Title属性，并且可以通过摆弄BuiltInDocumentProperties集合在VBA中进行操作。例如，您可以通过以下方式在VBA中更改Title属性：

ActiveDocument.BuiltInDocumentProperties("Title") = "xyz"

为了使宏对大量文档有效，您需要做的就是确定要影响的文档的名称，依次加载每个文档，更改Title属性，然后保存该文档。以下宏完成了这组任务：

Sub ChangeTitles()

Dim Directory As String     Dim FType As String     Dim FName As String     Dim sTitle As String     Dim sFiles(250) As String     Dim iFiles As Integer     Dim J As Integer

Directory = Environ("USERPROFILE") & "\Desktop\temp\"

FType = "*.docx"

sTitle = "My New Doc Title"



' Get names of documents     iFiles = 0     FName = Dir(Directory & FType)

While FName <> ""

iFiles = iFiles + 1         sFiles(iFiles) = FName         FName = Dir     Wend

' Process files     For J = 1 To iFiles         Documents.Open FileName:=Directory & sFiles(J)

ActiveDocument.BuiltInDocumentProperties("Title") = sTitle         ActiveDocument.Close wdSaveChanges     Next J End Sub

请注意，在宏的开头附近，目录变量设置为等于桌面上“ temp”文件夹的完整路径。您应该确保目录设置为您要更改文档的完整路径。还要注意，路径以反斜杠结尾-这非常重要。

您要更改的另一个变量是存储在sTitle变量中的新标题。 Directory文件夹中的每个文档的Title属性都将更改为sTitle变量中存储的内容。

宏的第一部分逐步浏览目标目录中的所有文件，并在其中获取任何DOCX文件的名称。这些存储在sFiles数组中。完成此操作后，将逐步遍历该阵列并将其用作打开和更改文件的指南。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13543）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。