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

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

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

PureBasic

'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 Шаблоны

@Настаев · 10.02.2011, 19:52

редко программирую в Word, но попробуй так:

Word.WdDefaultFilePath.wdUserTemplatesPath

@Ципихович Эндрю · 10.02.2011, 20:09 **[ТС]**

PureBasic

1
2
3

Местонахождение_папки_автозагрузки_документов_Word_Startup = Application.StartupPath
 
Местонахождение_папки_Шаблоны = Application. UserTemplatesPath

Решил, забыл написать

@Ципихович Эндрю · 17.02.2011, 17:41 **[ТС]**

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

@Настаев 65 / 51 / 2 Регистрация: 15.12.2010 Сообщений: 297
	10.02.2011, 19:52	2
	редко программирую в Word, но попробуй так: Word.WdDefaultFilePath.wdUserTemplatesPath 0

@Ципихович Эндрю 1390 / 531 / 67 Регистрация: 10.04.2009 Сообщений: 8,727
	17.02.2011, 17:41 [ТС]	4
	Местонахождение папки Шаблоны узнаю таким образом: Шаблоны = Application.UserTemplatesPath но сел за компьютер, где Винда 7 ка, выделяет ".UserTemplatesPath", и сообщение - метод не определён ??? думал проблема в Винде 7 ке нет, оказывается и на ХР стало выделять, ранее не выделяло, странно, что произошло ??? 0