Display de gebruikersnaam in de statusbalk of de titelbalk

Christopher vraagt ​​zich af of er een manier is om de huidige gebruikersnaam automatisch in het Woord statusbalk of de titelbalk wordt weergegeven. Als freelance tekst recensent heeft hij vaak naar de gebruikersnaam om Wijzigingen bijhouden gebruiken voor een bepaalde baan te veranderen, en dan moet hij niet vergeten om het te resetten voordat u een document of met behulp van Track Changes voor een andere klant. Als Christopher vergeet, kan het hem kostte tijd en verlegenheid. Hij voelt dat je de gebruikersnaam weergegeven in de statusbalk of de titelbalk een bruikbare herinnering zou zijn.

De informatie toe te voegen aan de statusbalk is eigenlijk vrij eenvoudig. Het enige wat u hoeft te doen is voorzien van een enkele lijn in uw macro, zoals deze:

Application.StatusBar = Application.UserName

De macro grijpt de waarde van het onroerend goed gebruikersnaam van het object Application (dat Woord zelf vertegenwoordigt) en propt die informatie in het pand StatusBar. Simpel, toch?

Er zijn een paar problemen met dit echter. Het grootste probleem is dat Word gebruikt de statusbalk voor veel dingen, wat betekent dat wat je plaatst zal er niet lang blijven. Zo, alles wat je hoeft te doen is typ een enkel karakter en Word overschrijft wat je ook geplaatst op de statusbalk.

Helaas, Word geen enkele ingebouwde event handlers dat een reset van de statusbalk kunnen leiden. Je kan natuurlijk, het creëren van een timer op basis van macro die periodiek de statusbalk met de naam van de gebruiker zou werken, maar dat storend kan zijn omdat het zou leiden tot knipperen als je de macro en Word worstelen voor wat wordt er weergegeven.

Je moet ook weten dat Microsoft heeft blijkbaar deprecated het eigendom StatusBar in Word 2013:

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

Ik zeg "blijkbaar", omdat deze afschrijvingen is een beetje verwarrend. Testen blijkt dat het pand StatusBar werkt prima in Word 2013, net als in de vorige versies van het programma. (Misschien zal het geheel worden verwijderd, in de volgende versie van Word, maar wie weet?)

Vanwege deze nadelen kan het een betere keuze de naam van de gebruiker aan de titelbalk. De volgende macro's zal het lukken:

Sub AutoOpen ()
ActiveWindow.Caption = ActiveWindow.Caption & "Gebruiker:" & _
"Gebruiker:" & Application.UserName
End Sub

Sub FileSaveAs ()
Als Application.Dialogs (wdDialogFileSaveAs) .Show Dan
ActiveWindow.Caption = ActiveWindow.Caption & _
"Gebruiker:" & Application.UserName
End If
End Sub

De macro's toe te voegen de gebruikersnaam om het einde van de bestandsnaam in de titelbalk van het venster wanneer het document eerst wordt geopend en wanneer de opdracht Opslaan als wordt gebruikt. (De titelbalk wordt overschreven door Word wanneer het document bestandsnaam wordt gewijzigd.)

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (13.321) is van toepassing op Microsoft Word 2007, 2010 en 2013.