ジュディスは、自分の作業を保存できず、プログラムを終了しても保存されないユーザーに問題を抱えていました。その結果、ユーザーは不満を感じ、サポート部門はさらに不満を募らせました。

もちろん、この問題への1つの対応は、保存しないのはばかげていることを単に指摘することであり、ユーザーは自分の見落としに苦しむ必要があります。

結局のところ、Wordは、終了時にドキュメントを破棄する前に保存するかどうかを尋ねてきます。

そうは言っても、すべてを保存する方法があり、その方法は、Wordがデフォルトで機能する方法とは根本的に異なります。新しいアプローチでは、ドキュメントの作成時にファイル名を保護する必要があります。したがって、ドキュメントを作成することを選択した場合、Wordはファイル名を要求し、その名前を使用して空のファイルをすぐに保存します。その後、プログラムを終了するかドキュメントを閉じるたびに、Wordはファイルの現在の状態を自動的に保存します。これは、ファイル名が既に保護されているため、保存できます。

このようなシステムを実装するには、AutoNewとAutoCloseの2つの特別なマクロを設定する必要があります。最初のマクロであるAutoNewは、新しいドキュメントが作成されるたびに機能します。このマクロの目的は、ユーザーにファイル名の入力を求め、その名前を使用してドキュメントを保存することです。以下は、まさにそれを実行するマクロの例です。

Sub AutoNew()

Dim sMyFile As String

On Error Resume Next     sMyFile = InputBox("File Name", " Save File ")



With Dialogs(wdDialogFileSummaryInfo)

.Title = sMyFile         .Execute     End With

Dialogs(wdDialogFileSaveAs).Show End Sub

このAutoNewマクロをNormalテンプレート（Wordのバージョンに応じてNormal.dotまたはNormal.dotmのいずれか）に配置すると、ユーザーが新しいドキュメントを作成するたびに、そのマクロが実行されます。 （唯一の例外は、Wordが最初に起動し、新しいドキュメントが表示されるときです。）

2番目のマクロであるAutoCloseは非常に単純です。ドキュメントを保存するだけで、質問はありません：

Sub AutoClose()

ActiveDocument.Save End Sub

これで、終了するたびに、変更が保存されます。何らかの理由でドキュメントに名前が付けられていない場合（たとえば、ユーザーがWordの起動時に最初に表示されるデフォルトのドキュメントの入力を開始した場合）、[名前を付けて保存]ダイアログボックスが表示され、ユーザーはファイル名を入力できます。

これらのマクロを使用するときにドキュメントを保存しないことは可能ですが、それははるかに面倒なプロセスです。その結果、ほとんど何も失われません。もちろん、これにはいくつかの興味深い管理上の課題があります。

たとえば、ディスク容量はすぐに非常にまれな商品になる可能性があります。これは、複数のドキュメントバージョンの保存またはドキュメントの命名に関していくつかのポリシーが必要になる場合があることを意味します。このアプローチに関連する他の多くの管理上の問題があるため、これは、いわば氷山の一角にすぎません。

これはまったく別の質問を引き起こします。どちらが悪いのでしょうか。自分でドキュメントを保存できないユーザーに対処するのか、それともすべてのドキュメントを保存せざるを得ないユーザーに対処するのか。もちろん、答えは会社によって異なります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1469）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkSavingEverything。