Если у вас открыто несколько документов Word, с которыми вы одновременно работаете, то для перемещения между ними вы, вероятно, выбираете нужные вам документы из списка в меню Окно (Window).

Хотя, возможно, вы знаете и более быстрый способ: используя сочетания клавиш Ctrl + F6 или Shift + Ctrl +F6.

Сочетание Ctrl + F6 позволяет перемещаться от самого последнего созданного документа (по времени) к первому (в обратном порядке), в то время как сочетание Shift + Ctrl +F6 позволяет перемещаться между документами в порядке очередности их создания - от первого к последнему.

Если вам использовать указанные сочетания клавиш по каким-то причинам неудобно, то можно воспользоваться следующим макросом:

Sub ChangeWindow()
'Источник: http://wordtips.vitalnews.com/
    On Error GoTo ChangeWinErr
    Set bb = ActiveWindow.Next
    If Windows.Count > 1 Then
        bb.Activate
        Exit Sub
    End If
    ChangeWinErr:
        Windows(1).Activate
End Sub

Чтобы создать макрос с этим кодом, нужно:

1. Зайти в меню Сервис (Tools) и в дополнительном списке команд Макрос (Macro) выбрать команду Макросы (Macros). Откроется одноименное диалоговое окно.
2. В поле шмя (Macro name) введите подходящее имя для макроса, например: ChangeWindow.
3. Щелкните на кнопке Создать (Create). Вы попадете в редактор кода Microsoft Visual Basic в готовое окно для вставки вышеприведенного кода.
4. Вставьте в то место, где мигает курсор, код. Обратите внимание, что в окне кода уже присутствуют строки Sub ChangeWindow() и End Sub. Значит, просто скопируйте код между этими строками в нашем примере.
5. Закройте программу Microsoft Visual Basic.

Теперь необходимо поместить кнопку этого макроса на панель инструментов. Для этого:

• Зайдите в меню Сервис (Tools) и выберите команду Настройка (Customize).
• В появившемся диалоговом окне выберите вкладку Команды (Commands) и в левой области найдите и выберите категорию Макросы (Macros). В правой области появятся доступные макросы. Выберите созданный вами макрос с именем Normal.NewMacros.ChangeWindow.
• Удерживая левую кнопку мыши нажатой, перенесите эту команду на вашу панель инструментов. На панели появится кнопка с именем макроса.
• Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.

Созданный нами макрос по своему назначению соответствует нажатию сочетания клавиш Shift + Ctrl +F6.

]]> ]]>