You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
100 lines
3.9 KiB
100 lines
3.9 KiB
|
|
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 のディレクトリを作成します。
|
|
Rem
|
|
|
|
call TsMkUDir "%RootDrive%\Office97"
|
|
call TsMkUDir "%RootDrive%\Office97\Startup"
|
|
|
|
call TsMkUDir "%RootDrive%\Office97\Template"
|
|
call TsMkUDir "%RootDrive%\Office97\Template\社外文書"
|
|
|
|
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 既にコピーされている場合はコピーしません。
|
|
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 グラフ ファイルをユーザーのディレクトリにコピーします。
|
|
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
|
|
|
|
REM
|
|
REM サンプル ウィザードがインストールされている場合、スタイル テンプレートをユーザー ディレクトリにコピーします。
|
|
REM
|
|
|
|
If Exist "#INSTDIR#\Template\社内文書\文例 ｳｨｻﾞｰﾄﾞ.wiz" Goto Skip7
|
|
If Exist "#INSTDIR#\Template\社外文書\文例 ｳｨｻﾞｰﾄﾞ.wiz" Goto Skip7
|
|
If Not Exist "#INSTDIR#\Template\その他の文書\文例 ｳｨｻﾞｰﾄﾞ.wiz" Goto Skip8
|
|
:Skip7
|
|
If Not Exist "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 1.dot" Copy "#INSTDIR#\Template\社外文書\ﾚﾀｰ 1.dot" "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 1.dot" >Nul: 2>&1
|
|
If Not Exist "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 2.dot" Copy "#INSTDIR#\Template\社外文書\ﾚﾀｰ 2.dot" "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 2.dot" >Nul: 2>&1
|
|
If Not Exist "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 3.dot" Copy "#INSTDIR#\Template\社外文書\ﾚﾀｰ 3.dot" "%RootDrive%\Office97\Template\社外文書\ﾚﾀｰ 3.dot" >Nul: 2>&1
|
|
:Skip8
|
|
|