Christopherは、現在のユーザー名をWordのステータスバーまたはタイトルバーに自動的に表示する方法があるかどうか疑問に思います。フリーランスのテキストレビュー担当者として、特定のジョブで変更の追跡を使用するにはユーザー名を変更する必要があります。その後、ドキュメントを作成したり、別のクライアントで変更の追跡を使用したりする前に、ユーザー名をリセットすることを忘れないでください。クリストファーが忘れると、時間と恥ずかしさを犠牲にする可能性があります。

彼は、ステータスバーまたはタイトルバーにユーザー名を表示しておくと便利だと感じています。

ステータスバーに情報を追加するのは実際にはかなり簡単です。次のように、マクロに1行を含めるだけです。

Application.StatusBar = Application.UserName

マクロは、Applicationオブジェクト（Word自体を表す）からUserNameプロパティの値を取得し、その情報をStatusBarプロパティに詰め込みます。簡単ですよね？

ただし、これにはいくつかの問題があります。最大の問題は、Wordが多くのことにステータスバーを使用することです。つまり、そこに配置したものは何でもそこに長く留まることはありません。たとえば、必要なのは1文字を入力することだけで、Wordはステータスバーに配置したものをすべて上書きします。

残念ながら、Wordには、ステータスバーのリセットをトリガーする可能性のある組み込みのイベントハンドラーはありません。もちろん、ステータスバーをユーザーの名前で定期的に更新するタイマーベースのマクロを作成することもできますが、マクロとWordがそこに表示されているものと格闘するときに点滅するため、気が散る可能性があります。

また、MicrosoftがWord2013のStatusBarプロパティを非推奨にしたことも知っておく必要があります。

http://msdn.microsoft.com/en-us/library/office/ff845291%28v=office.15%29.aspx

この非推奨は少し混乱するので、私は「どうやら」と言います。テストの結果、以前のバージョンのプログラムと同様に、Word2013でもStatusBarプロパティが正常に機能することがわかりました。 （おそらく、Wordの次のバージョンで完全に削除されるでしょうが、誰が知っていますか？）

これらの欠点があるため、タイトルバーにユーザーの名前を追加することをお勧めします。次のマクロでうまくいきます：

Sub AutoOpen()

ActiveWindow.Caption = ActiveWindow.Caption & "  User: " & _       "  User: " & Application.UserName End Sub
Sub FileSaveAs()

If Application.Dialogs(wdDialogFileSaveAs).Show Then         ActiveWindow.Caption = ActiveWindow.Caption & _           "  User: " & Application.UserName     End If End Sub

マクロは、ドキュメントを最初に開いたとき、および[名前を付けて保存]コマンドを使用するたびに、ウィンドウのタイトルバーのファイル名の末尾にユーザー名を追加します。 （ドキュメントのファイル名が変更されると、タイトルバーはWordで上書きされます。）

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13321）は、Microsoft Word 2007、2010、および2013に適用されます。