スクリプトによる Word の保存オプションの制御
Microsoft Word 2003 の保存オプションの取得方法と設定方法を説明するサンプル VBScript スクリプトです。
|
ダイアログ ボックスと Word オブジェクト モデルの対応
以下に示すスクリプトの中で参照されているオプションは、[オプション] ダイアログ ボックスの [保存] タブにあるオプションに対応します。Microsoft Word 2003 でこれらのオプションにアクセスするには、[ツール] メニューの [オプション] をクリックし、[保存] タブをクリックします。このダイアログ ボックスで使用可能なオプションと Microsoft Word オブジェクト モデルの対応を下の図に示します。
ここに示すスクリプトは、Microsoft Word 2003 を使用してテストを行いました。少なくともいくつかの機能は、Visual Basic for Applications (VBA) をサポートしている Microsoft Word のすべてのバージョンで動作します。ただし、その他のバージョンでは、テストは行われていません。
値を取得するためのサンプル コード
Microsoft Word 2003 の [オプション] ダイアログ ボックスにある [保存] タブの設定情報を取得するサンプル スクリプトです。
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()
Wscript.Echo "Always create backup copy: " & _
objOptions.CreateBackup
Wscript.Echo "Allow fast saves: " & _
objOptions.AllowFastSave
Wscript.Echo "Allow background saves: " & _
objOptions.BackgroundSave
Wscript.Echo "Disable features: " & _
objOptions.DisableFeaturesByDefault
Wscript.Echo "Disable features introduced after: " & _
objOptions.DisableFeaturesIntroducedAfterByDefault
Wscript.Echo "Prompt for document properties: " & _
objOptions.SavePropertiesPrompt
Wscript.Echo "Prompt to save Normal template: " & _
objOptions.SaveNormalPrompt
Wscript.Echo "Save AutoRecover info every: " & _
objOptions.SaveInterval & " minutes"
Wscript.Echo "Embed TrueType fonts: " & _
objDoc.EmbedTrueTypeFonts
Wscript.Echo "Embed characters in use only: " & _
objDoc.SaveSubsetFonts
Wscript.Echo "Do not embed common system fonts: " & _
objDoc.DoNotEmbedSystemFonts
Wscript.Echo "Embed smart tags: " & objDoc.EmbedSmartTags
Wscript.Echo "Save data only for forms: " & _
objDoc.SaveFormsData
Wscript.Echo "Embed linguistic data: " & _
objDoc.EmbedLinguisticData
Wscript.Echo "Save smart tags as XML properties in Web pages: " & _
objDoc.SmartTagsAsXMLProps
Wscript.Echo "Save Word files as: " & _
objWord.DefaultSaveFormat
objWord.Quit
値を変更するためのサンプル コード
Microsoft Word の [バックアップ ファイルを作成する] チェック ボックスをオンに設定するサンプル スクリプトです。
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
objOptions.CreateBackup = TRUE
objWord.Quit
本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは、何等保障もない現状有姿のままで提供されるものです。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。お客様がこのサンプル スクリプトおよびドキュメントの運用または機能から受けた影響については、お客様が負うものです。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも一切責任を負いません。