У Рэйчел есть несколько сотен документов, в которых ей нужно изменить право собственности. (Это свойство title поддерживается вместе с другими свойствами документа.) Она задается вопросом, есть ли способ легко внести это изменение в такое большое количество документов.

Word не имеет встроенного способа одновременного воздействия на большое количество документов, но вы можете создать макрос, который сделает всю работу за вас. Важно помнить, что вы хотите иметь доступ к встроенному свойству документа Title, и вы делаете это в VBA, возясь с коллекцией BuiltInDocumentProperties. Например, вы можете изменить свойство Title в VBA следующим образом:

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

Обратите внимание, что в начале макроса переменная Directory устанавливается равной полному пути к папке «temp» на рабочем столе. Вы должны убедиться, что в Каталоге указан полный путь к тому месту, где у вас есть документы, которые вы хотите изменить. Также обратите внимание, что путь заканчивается обратной косой чертой — это очень важно.

Другая переменная, которую вы захотите изменить, — это новый заголовок, который вы сохраняете в переменной sTitle. Свойство Title каждого документа в папке Directory будет изменено на то, что хранится в переменной sTitle.

Первая часть макроса проходит через все файлы в целевом каталоге и получает имя любого файла DOCX там. Они хранятся в массиве sFiles. Как только это будет завершено, массив обрабатывается и используется в качестве руководства для файлов, которые нужно открывать и изменять.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13543) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.