3

Мне нужно записать макрос, который включает в себя верхний / нижний колонтитул. Я хочу запустить макрос внутри нескольких файлов на основе одного и того же шаблона.

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

|источник

2 ответа2

4

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

  1. Нажмите кнопку « Офис», выберите « Параметры Word» и нажмите « Настроить».

  2. В нижней части окна нажмите кнопку « Настроить» рядом с сочетаниями клавиш.

  3. В поле « Настроить клавиатуру» выберите « Вставить вкладку» в категориях. Теперь команды появятся в правой части окна.

  4. Прокрутите вниз и выберите команду ViewFooterOnly. При его выборе в нижней части диалогового окна появится краткое описание.

  5. Нажмите внутри поля с надписью Нажмите новый ярлык.

  6. Нажмите клавишу быстрого доступа, которую вы хотите использовать. Включите клавиши Ctrl, Shift или Ctrl + Shift .

  7. Если в данный момент назначена комбинация клавиш, Word сообщит, какая команда в данный момент использует комбинацию клавиш.

  8. Вы можете переназначить комбинацию клавиш или выбрать новую.

  9. Выберите, хотите ли вы сохранить комбинацию клавиш в обычном шаблоне (все документы) или только в текущем документе.

  10. Нажмите Назначить, когда вы довольны своими изменениями.

  11. Перейдите к шагу 4 и выберите команду ViewHeaderOnly, также назначьте для нее ярлык.

  12. Нажмите Закрыть. Теперь у вас есть два ярлыка для перехода к верхнему / нижнему колонтитулам в Word.

альтернативный текст

|источник
1

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

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.AttachedTemplate.BuildingBlockEntries(" Blank").Insert Where:=Selection.Range, RichText:=True
Selection.TypeText Text:="HEADER"
WordBasic.GoToFooter
Selection.TypeText Text:="FOOTER"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .