Кристофер задается вопросом, есть ли способ автоматически отображать текущее имя пользователя в строке состояния Word или в строке заголовка. Как внештатный рецензент текстов, ему часто приходится менять имя пользователя, чтобы использовать Отслеживание изменений для конкретной работы, а затем он должен не забыть сбросить его перед созданием документа или использованием Отслеживания изменений для другого клиента. Если Кристофер забудет, это может стоить ему времени и затруднений.

Он считает, что отображение имени пользователя в строке состояния или в строке заголовка было бы полезным напоминанием.

Добавить информацию в строку состояния на самом деле довольно просто. Все, что вам нужно сделать, это включить в макрос одну строку, например:

Application.StatusBar = Application.UserName

Макрос получает значение свойства UserName из объекта Application (который представляет сам Word), а затем вставляет эту информацию в свойство StatusBar. Все просто, правда?

Однако с этим есть несколько проблем. Самая большая проблема заключается в том, что Word использует строку состояния для множества вещей, а это означает, что все, что вы поместите туда, не останется там надолго. Например, все, что вам нужно сделать, это ввести один символ, и Word перезапишет все, что вы поместили в строку состояния.

К сожалению, Word не предоставляет встроенных обработчиков событий, которые могли бы вызвать сброс строки состояния. Вы, конечно, можете создать макрос на основе таймера, который будет периодически обновлять строку состояния с именем пользователя, но это может отвлекать, потому что это приведет к миганию, поскольку ваш макрос и Word борются за то, что там отображается.

Вы также должны знать, что Microsoft явно устарела свойство 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

Макросы добавляют имя пользователя в конец имени файла в строке заголовка окна при первом открытии документа и всякий раз, когда используется команда «Сохранить как». (Строка заголовка перезаписывается Word при изменении имени файла документа.)

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13321) относится к Microsoft Word 2007, 2010 и 2013.