1

Я создал макрос, который добавляет страницу в конец документа и изменяет текст заголовка в заголовке. Я хочу иметь возможность добавить несколько страниц и иметь букву в автоинкременте заголовка:

ГРАФИК А
ГРАФИК «Б»
ГРАФИК «С»
и т.п.

Я попытался использовать поле AUTONUM, но получаю уведомление « Только основной документ ».

Sub AddSchedule()
'
' AddSchedue Macro
' Press Ctrl+End to add a schedule to a Policy.
'

    Selection.EndKey Unit:=wdStory
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
' Unlink Header from Previous - Is this necessary? The macro seems to work without it...   
    Selection.Tables(1).Cell(Row:=1, Column:=2).Range.Text = "SCHEDULE '"
    Selection.Tables(1).Cell(Row:=1, Column:=2).Range.Select
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.MoveEnd Unit:=wdCharacter, Count:=-1
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTONUM  \* ALPHABETIC \s ' ", PreserveFormatting:=False
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


End Sub

Как я могу получить заголовки моих страниц с автоинкрементом в заголовках?

Кроме того, я предполагал, что мне нужно отсоединить мои заголовки от предыдущего в моем макросе. Я не мог заставить эту часть работать, но за исключением полей, которые не работают должным образом, все остальное работает нормально. Заголовок отображает новый заголовок, хотя он говорит, что он все еще связан Должен ли я просто оставить это? Или как мне отсоединить заголовки? Я пытался с помощью:

Selection.HeaderFooter.LinkToPrevious = False

Но это дает мне эту ошибку во время выполнения:

Метод или свойство недоступны, поскольку текущий выбор заблокирован для изменений формата

1 ответ1

0

Вы можете достичь этого без макроса, используя вместо этого вычисляемое поле в заголовке - вы были очень близки с использованием поля раздела. Просто нужно вычесть 2, чтобы он отображал правильное значение.

Заголовок раздела 3 необходимо будет отсоединить от предыдущего раздела, прежде чем вставить поле, но последующие разделы могут быть связаны, и номер расписания будет обновляться автоматически (например, в разделе 4 заголовок будет содержать «Расписание 2»).

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