如何使标题中的值自动增加?

如何使标题中的值自动增加?

我创建了一个宏,用于在文档末尾添加一页并更改页眉中的标题文本。我希望能够添加多个页面并让标题中的字母自动增加:

附表“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

但它给了我这个运行时错误:

该方法或属性不可用,因为当前选择已被锁定,无法更改格式

答案1

您可以在不使用宏的情况下通过在标题中使用计算字段来实现此目的 - 使用部分字段非常接近。只需减去 2 即可显示正确的值。

在此处输入图片描述

在插入字段之前,需要取消第 3 节标题与前一节的链接,但可以链接后续节并且时间表编号将自动更新(例如,在第 4 节中,标题将显示时间表 2)。

相关内容