スクリプトによる 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
Wscript.Echo "Fractions with fraction character: " & _
objOptions.AutoFormatAsYouTypeReplaceFractions
Wscript.Echo "Straight quotes with smart quotes: " & _
objOptions.AutoFormatAsYouTypeReplaceQuotes
Wscript.Echo "Ordinals (1st) with superscript: " & _
objOptions.AutoFormatAsYouTypeReplaceOrdinals
Wscript.Echo "*Bold* and _italic_ with real formatting: " & _
objOptions.AutoFormatAsYouTypeReplacePlainTextEmphasis
Wscript.Echo "Hyphens with dash: " & _
objOptions.AutoFormatAsYouTypeReplaceFarEastDashes
Wscript.Echo "Internet and network paths with hyperlinks: " & _
objOptions.AutoFormatAsYouTypeReplaceHyperlinks
Wscript.Echo "Automatic bulleted lists: " & _
objOptions.AutoFormatAsYouTypeApplyBulletedLists
Wscript.Echo "AUtomatic numbered lists: " & _
objOptions.AutoFormatAsYouTypeApplyNumberedLists
Wscript.Echo "Border lines: " & _
objOptions.AutoFormatAsYouTypeApplyBorders
Wscript.Echo "Tables: " & objOptions.AutoFormatAsYouTypeApplyTables
Wscript.Echo "Built-in Heading styles: " & _
objOptions.AutoFormatAsYouTypeApplyHeadings
Wscript.Echo "Format beginning of list item like the one before it: " & _
objOptions.AutoFormatAsYouTypeFormatListItemBeginning
Wscript.Echo "Set left- and first-indent with tabs and backspaces: " & _
objOptions.AutoFormatAsYouTypeApplyFirstIndents
Wscript.Echo "Define styles based on your formatting: " & _
objOptions.AutoFormatAsYouTypeDefineStyles
objWord.Quit
値を変更するためのサンプル コード
Microsoft Word の [分数 (1/2, 1/4, 3/4) を分数文字 (組み文字) に変更する] チェック ボックスをオフに設定するサンプル スクリプトです。
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
objOptions.AutoFormatAsYouTypeReplaceFractions = FALSE
objWord.Quit
本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは、何等保障もない現状有姿のままで提供されるものです。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。お客様がこのサンプル スクリプトおよびドキュメントの運用または機能から受けた影響については、お客様が負うものです。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも一切責任を負いません。