کریستوفر متعجب است که آیا راهی برای نمایش خودکار نام کاربری فعلی در نوار وضعیت Word یا نوار عنوان وجود دارد؟ به عنوان یک بازبین متن آزاد، او اغلب مجبور است نام کاربری را تغییر دهد تا از Track Changes برای یک کار خاص استفاده کند، و سپس باید به یاد داشته باشد که قبل از ایجاد یک سند یا استفاده از Track Changes برای یک مشتری دیگر، آن را بازنشانی کند. اگر کریستوفر فراموش کند، ممکن است برای او زمان و شرمندگی تمام شود. او احساس می کند که نمایش نام کاربری در نوار وضعیت یا نوار عنوان یک یادآوری مفید خواهد بود.
افزودن اطلاعات به نوار وضعیت در واقع نسبتاً آسان است. تنها کاری که باید انجام دهید این است که یک خط را در ماکرو خود بگنجانید، مانند زیر:
Application.StatusBar = Application.UserName
ماکرو مقدار ویژگی UserName را از شی Application (که خود Word را نشان می دهد) می گیرد و سپس آن اطلاعات را در ویژگی StatusBar قرار می دهد. ساده است، درست است؟
با این حال، چند مشکل در این مورد وجود دارد. بزرگترین مشکل این است که Word از نوار وضعیت برای بسیاری از چیزها استفاده می کند، به این معنی که هر چیزی که در آنجا قرار می دهید برای مدت طولانی در آنجا باقی نمی ماند. برای مثال، تنها کاری که باید انجام دهید این است که یک کاراکتر را تایپ کنید و ورد هر چیزی را که روی آن قرار داده اید بازنویسی کند. نوار وضعیت
متأسفانه، Word هیچ گونه کنترل کننده رویداد داخلی را ارائه نمی دهد که بتواند بازنشانی نوار وضعیت را آغاز کند. البته می توانید یک ماکرو مبتنی بر تایمر ایجاد کنید که به طور دوره ای نوار وضعیت را با نام کاربر به روز کند، اما این می‌تواند حواس‌تان را پرت کند، زیرا منجر به چشمک زدن ماکرو و ورد شما برای آنچه در آنجا نمایش داده می‌شود، می‌شود.
همچنین باید بدانید که مایکروسافت ظاهراً ویژگی StatusBar را در Word 2013 منسوخ کرده است:
http://msdn.microsoft.com/en-us/library/office/ff845291%28v=office.15%29.aspx
من می گویم "ظاهرا" زیرا این بی اعتباری کمی گیج کننده است. آزمایش نشان می دهد که ویژگی StatusBar در Word 2013 درست مانند نسخه های قبلی برنامه به خوبی کار می کند. (شاید در نسخه بعدی 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
هنگامی که سند برای اولین بار باز می شود و هر زمان که از دستور Save As استفاده می شود، ماکروها نام کاربری را به انتهای نام فایل در نوار عنوان پنجره اضافه می کنند. (هنگامی که نام فایل سند تغییر می کند، نوار عنوان توسط Word بازنویسی می شود.)
