Wordのスタートアップフォルダを開くVBScriptです。
下記スクリプトの応用でドラッグ&ドロップすることでテンプレートをWordに登録する処理を行うこともできます。また、Windows 7 専用ですが、下記スクリプトをデスクトップの右クリックメニューから実行できるようにするツールもあります。
Option Explicit
Dim ret
ret = "" '初期化
On Error Resume Next
With CreateObject("Word.Application")
.Visible = False
ret = .StartupPath
.Quit 0
End With
Err.Clear
On Error GoTo 0
If Len(ret) < 1 Then
MsgBox "スタートアップフォルダのパスを取得できませんでした。", 16
Else
On Error Resume Next
CreateObject("Shell.Application").Open ret
If Err.Number <> 0 Then
MsgBox "エラーが発生しました。", 16
Err.Clear
End If
On Error GoTo 0
End If