我创建了一个宏,用于在文档末尾添加一页并更改页眉中的标题文本。我希望能够添加多个页面并让标题中的字母自动增加:
附表“A”
附表“B”
附表“C”
等等。
我尝试使用 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
但它给了我这个运行时错误:
该方法或属性不可用,因为当前选择已被锁定,无法更改格式