Я создал макрос, который добавляет страницу в конец документа и изменяет текст заголовка в заголовке. Я хочу иметь возможность добавить несколько страниц и иметь букву в автоинкременте заголовка:
ГРАФИК А
ГРАФИК «Б»
ГРАФИК «С»
и т.п.
Я попытался использовать поле 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
Но это дает мне эту ошибку во время выполнения:
Метод или свойство недоступны, поскольку текущий выбор заблокирован для изменений формата