レイチェルには、タイトルプロパティを変更する必要がある数百のドキュメントがあります。 （これは、他のドキュメントプロパティで維持されるtitleプロパティです。）彼女は、このような多数のドキュメントでこの変更を簡単に行う方法があるかどうか疑問に思います。

Wordには、同時に多数のドキュメントに影響を与える組み込みの方法はありませんが、マクロを作成して作業を行うことができます。覚えておくべき重要なことは、組み込みのドキュメントTitleプロパティにアクセスできるようにすることです。これは、VBAでBuiltInDocumentPropertiesコレクションをいじることによって行います。たとえば、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

マクロの先頭近くで、Directory変数がデスクトップの「temp」フォルダへのフルパスに等しく設定されていることに注意してください。変更するドキュメントがある場所へのフルパスにディレクトリが設定されていることを確認する必要があります。また、パスはバックスラッシュで終了することに注意してください。これは非常に重要です。

変更する必要があるもう1つの変数は、sTitle変数に格納する新しいタイトルです。 Directoryフォルダー内のすべてのドキュメントのTitleプロパティは、sTitle変数に格納されているものに変更されます。

マクロの最初の部分は、ターゲットディレクトリ内のすべてのファイルをステップスルーし、そこにあるDOCXファイルの名前を取得します。これらはsFiles配列に格納されます。これが完了すると、アレイがステップスルーされ、開いて変更するファイルのガイドとして使用されます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13543）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。