前回の記事で、Word 2013で個人用テンプレート(カスタム テンプレート)を利用する場合は「個人用テンプレートの既定の場所」を設定する必要があることを説明しましたが、今回はその手順を自動的に行うためのWordマクロを紹介します。

Option Explicit

Public Sub SetPersonalTemplatesFolder()
  System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options", "PersonalTemplates") = Application.Options.DefaultFilePath(wdUserTemplatesPath)
End Sub

コードを見れば分かる通り「個人用テンプレートの既定の場所」は通常下記レジストリーに記録されています。

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options\PersonalTemplates

上記コードは、OptionsオブジェクトのDefaultFilePathプロパティから取得したテンプレートフォルダーのパスを、SystemオブジェクトのPrivateProfileStringプロパティを使ってレジストリーに書き込む処理を行っています。