If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
modify template
i know how to modify the template location on a single computer, but i wanted
do it on several computers have someone a vbs script to do it ? thanks -- nt |
#2
|
|||
|
|||
modify template
i was searching since a few days and finally after posting i found the solution
so i give you the code On Error Resume Next Const wdAutoRecoverPath = 5 Const wdBorderArtPath = 19 Const wdCurrentFolderPath = 14 Const wdDocumentsPath = 0 Const wdGraphicsFiltersPath = 10 Const wdPicturesPath = 1 Const wdProgramsPath = 9 Const wdProofingToolsPath = 12 Const wdStartupPath = 8 Const wdStyleGalleryPath = 15 Const wdTempFilesPath = 13 Const wdTextConvertersPath = 11 Const wdToolsPath = 6 Const wdTutorialPath = 7 Const wdUserOptionsPath = 4 Const wdUserTemplatesPath = 2 Const wdWorkgroupTemplatesPath = 3 Set objWord = CreateObject("Word.Application") Set objOptions = objWord.Options objOptions.DefaultFilePath(wdUserTemplatesPath) = "C:\testmodele3" msgbox ("opération terminées") objWord.Quit -- nt "nicolas29" wrote: i know how to modify the template location on a single computer, but i wanted do it on several computers have someone a vbs script to do it ? thanks -- nt |
Thread Tools | |
Display Modes | |
|
|