Находим папку шаблоны

[Ципихович Эндрю]

Местонахождение_папки_автозагрузки_ документов_Word_Startup = Application.StartupPath
А как узнать где находится папка шаблоны??, только так???, всегда это сработает??

'C:\Documents and Settings\user1\Application Data\Microsoft\Шаблоны
'C:\Documents and Settings\user1\Application Data\Microsoft\Word\STARTUP
Место_расположения_файла = Application.StartupPath
'1 цифра - с какой буквы строки ..., 2 цифра - сколько знаков строки ...
Предпоследняя = Mid(Место_расположения_файла, 1, InStrRev(Место_расположения_файла, "\") - 1)
Шаблоны = Mid(Место_расположения_файла, 1, InStrRev(Предпоследняя, "\") - 1) & "\Шаблоны"
Debug.PRINT Место_расположения_файла
Debug.PRINT Шаблоны

Спасибо

[viter.alex]

  'Пользовательские шаблоны
  Debug.Print Options.DefaultFilePath(wdUserTemplatesPath)
  'Шаблоны автозагрузки
  Debug.Print Options.DefaultFilePath(wdStartupPath)

[Ципихович Эндрю]

просто то как, спасибо!

[Sasha_Smirnov]

Еще так: вставить в документ поле (по Ctrl-F9, например), и туда вбить:

template \p

Обновить это поле (F9) — увидите путь к шаблону, на котором создан этот документ.

[Ципихович Эндрю]

Местонахождение папки Шаблоны узнаю таким образом:

Шаблоны = Application.UserTemplatesPath

но сел за компьютер, где Винда 7 ка, выделяет ".UserTemplatesPath", и сообщение - метод не определён ???
думал проблема в Винде 7 ке нет, оказывается и на ХР стало выделять, ранее не выделяло, странно, что произошло ???
Или не правильно я понял ответ

Debug.Print Options.DefaultFilePath(wdUserTemplatesPath)

как

Шаблоны = Application.UserTemplatesPath

??????

[Ципихович Эндрю]

'пользовательские шаблоны
Debug.Print Options.DefaultFilePath(wdUserTemplatesPath)
Местонахождение_папки_Шаблоны = ActiveDocument.AttachedTemplate.Path
Имя_шаблона = ActiveDocument.AttachedTemplate.Name
'шаблоны автозагрузки
Debug.Print Options.DefaultFilePath(wdStartupPath)
Местонахождение_папки_автозагрузки_документов_Word_Startup = Application.StartupPath