カスタム検索
その他

Wordのスタートアップフォルダを開く(VBS)

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