89 lines
2.7 KiB
Batchfile
89 lines
2.7 KiB
Batchfile
|
|
Rem #########################################################################
|
|
|
|
Rem
|
|
Rem 將 "Microsoft Office 快捷列.lnk" 檔案從 Office 安裝根目錄複製到
|
|
Rem 目前使用者的 [啟動] 功能表。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Office97" Goto Skip0
|
|
If Exist "%USER_STARTUP%\Microsoft Office 快捷列.lnk" Goto Skip0
|
|
If Not Exist "#INSTDIR#\Microsoft Office 快捷列.lnk" Goto Skip0
|
|
Copy "#INSTDIR#\Microsoft Office 快捷列.lnk" "%USER_STARTUP%\Microsoft Office 快捷列.lnk" >Nul: 2>&1
|
|
:Skip0
|
|
|
|
Rem
|
|
Rem 在使用者主目錄中建立應用程式指定資料的目錄。
|
|
Rem
|
|
|
|
call TsMkUDir "%RootDrive%\Office97"
|
|
call TsMkUDir "%RootDrive%\Office97\Startup"
|
|
|
|
|
|
|
|
call TsMkUDir "%RootDrive%\Office97\Templates"
|
|
|
|
call TsMkuDir "%RootDrive%\Office97\XLStart"
|
|
call TsMkUDir "%RootDrive%\%MY_DOCUMENTS%"
|
|
|
|
Rem
|
|
Rem 將下列檔案從所有使用者範本中複製到目前使用者範本所在位置。
|
|
Rem
|
|
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\WINWORD8.DOC" copy "%ALLUSERSPROFILE%\%TEMPLATES%\WINWORD8.DOC" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\EXCEL8.XLS" copy "%ALLUSERSPROFILE%\%TEMPLATES%\EXCEL8.XLS" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|
If Not Exist "%UserProfile%\%TEMPLATES%\BINDER.OBD" copy "%ALLUSERSPROFILE%\%TEMPLATES%\BINDER.OBD" "%UserProfile%\%TEMPLATES%\" /Y >Nul: 2>&1
|
|
|
|
Rem
|
|
Rem 將系統工具列複製到使用者的主目錄 (如果系統工具列不存在的話)。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Office97\ShortCut Bar" Goto Skip1
|
|
If Not Exist "#INSTDIR#\Office\ShortCut Bar" Goto Skip1
|
|
Xcopy "#INSTDIR#\Office\ShortCut Bar" "%RootDrive%\Office97\ShortCut Bar" /E /I >Nul: 2>&1
|
|
:Skip1
|
|
|
|
Rem
|
|
Rem 複製表單目錄，讓 Outlook 可以使用 Word 作為編輯器。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Windows\Forms" Goto Skip2
|
|
If Not Exist "%SystemRoot%\Forms" Goto Skip2
|
|
Xcopy "%SystemRoot%\Forms" "%RootDrive%\Windows\Forms" /e /i >Nul: 2>&1
|
|
:Skip2
|
|
|
|
Rem
|
|
Rem 將 ARTGALRY.CAG 複製到使用者 windows 目錄。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Windows\ArtGalry.Cag" Goto Skip3
|
|
If Not Exist "%SystemRoot%\ArtGalry.Cag" Goto Skip3
|
|
Copy "%SystemRoot%\ArtGalry.Cag" "%RootDrive%\Windows\ArtGalry.Cag" >Nul: 2>&1
|
|
:Skip3
|
|
|
|
Rem
|
|
Rem 將 Custom.dic 檔案複製到使用者目錄。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Office97\Custom.Dic" Goto Skip4
|
|
If Not Exist "#INSTDIR#\Office\Custom.Dic" Goto Skip4
|
|
Copy "#INSTDIR#\Office\Custom.Dic" "%RootDrive%\Office97\Custom.Dic" >Nul: 2>&1
|
|
:Skip4
|
|
|
|
Rem
|
|
Rem 將 Graph 檔案複製到使用者目錄。
|
|
Rem
|
|
|
|
If Exist "%RootDrive%\Office97\GR8GALRY.GRA" Goto Skip5
|
|
If Not Exist "#INSTDIR#\Office\GR8GALRY.GRA" Goto Skip5
|
|
Copy "#INSTDIR#\Office\GR8GALRY.GRA" "%RootDrive%\Office97\GR8GALRY.GRA" >Nul: 2>&1
|
|
:Skip5
|
|
|
|
If Exist "%RootDrive%\Office97\XL8GALRY.XLS" Goto Skip6
|
|
If Not Exist "#INSTDIR#\Office\XL8GALRY.XLS" Goto Skip6
|
|
Copy "#INSTDIR#\Office\XL8GALRY.XLS" "%RootDrive%\Office97\XL8GALRY.XLS" >Nul: 2>&1
|
|
:Skip6
|
|
|
|
|
|
|