スクリプト センター > 製品とテクノロジ別 > Microsoft Office > 図解 : Microsoft Office 管理

スクリプトによる 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()
Set objWindow = objWord.ActiveDocument.ActiveWindow
Set objView = objWord.ActiveDocument.ActiveWindow.View
Set objComments = objDoc.Comments

Wscript.Echo "Startup Task Pane: " & objWord.ShowStartupDialog
Wscript.Echo "Status bar: " & objWord.DisplayStatusBar
Wscript.Echo "Windows in Taskbar: " & _
    objWord.ShowWindowsInTaskbar
Wscript.Echo "Highlight: " & objView.ShowHighlight
Wscript.Echo "Bookmarks: " & objView.ShowBookmarks
Wscript.Echo "Tab characters: " & objView.ShowTabs
Wscript.Echo "Spaces: " & objView.ShowSpaces
Wscript.Echo "Paragraph marks: " & objView.ShowParagraphs
Wscript.Echo "Drawings: " & objView.ShowDrawings
Wscript.Echo "Object anchors: " & objView.ShowObjectAnchors
Wscript.Echo "Text boundaries: " & objView.ShowTextBoundaries
Wscript.Echo "Wrap to window: " & objView.WrapToWindow
Wscript.Echo "Animated text: " & objView.ShowAnimation
Wscript.Echo "Smart tags: " & objView.DisplaySmartTags
Wscript.Echo "Picture placeholders: " & _
    objView.ShowPicturePlaceholders
Wscript.Echo "All: " & objView.ShowAll
Wscript.Echo "Field codes: " & objView.ShowFieldCodes
Wscript.Echo "Hidden text: " & objView.ShowHiddenText
Wscript.Echo "Optional hyphens: " & objView.ShowHyphens
Wscript.Echo "Background colors and images: " & _
    objView.DisplayBackgrounds
Wscript.Echo "Field shading: " & objView.FieldShading
For Each strComment in objComments
    Wscript.Echo "Screen tips: " & strComment.ShowTip
Next
Wscript.Echo "Horizontal scroll bar: " & _
    objWindow.DisplayHorizontalScrollBar
Wscript.Echo "Vertical scroll bar: " & _
    objWindow.DisplayVerticalScrollBar
Wscript.Echo "Vertical ruler: " & _
    objWindow.DisplayVerticalRuler

objWord.Quit
ページのトップへページのトップへ

値を変更するためのサンプル コード

Microsoft Word の [起動時作業ウィンドウ] チェック ボックスをオンに設定するサンプル スクリプトです。 

On Error Resume Next

Set objWord = CreateObject("Word.Application")
objWord.ShowStartupDialog = TRUE

objWord.Quit
ページのトップへページのトップへ

本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは、何等保障もない現状有姿のままで提供されるものです。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。お客様がこのサンプル スクリプトおよびドキュメントの運用または機能から受けた影響については、お客様が負うものです。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも一切責任を負いません。


ページのトップへページのトップへ