Word VBA宏需求：为纯脚注空白页添加标记

你需要的是能覆盖所有页面（包括纯脚注页）的Word宏，下面是修改后的代码，会先判断页面是否有正文内容，没有的话直接在页面起始位置插入标记：

Sub InsertPageMarkers()
    Dim PageCounter As Long
    Dim FirstPageInput As String
    Dim PageRange As Range
    Dim InsertWord As String
    Dim hasBodyContent As Boolean
    
    FirstPageInput = InputBox("What is the initial page number for this article?", "First Page Number?")
    
    For PageCounter = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
        ' 定位到当前页面的起始位置
        Set PageRange = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, PageCounter)
        
        ' 判断当前页面是否有正文内容（排除脚注/尾注区域）
        hasBodyContent = False
        Dim tempRange As Range
        Set tempRange = PageRange.Duplicate
        tempRange.End = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, PageCounter + 1).Start - 1
        
        ' 检查范围内的正文内容（跳过脚注引用和脚注文本）
        Dim rng As Range
        For Each rng In tempRange.StoryRanges
            If rng.StoryType = wdMainTextStory Then
                If Len(Trim(rng.Text)) > 0 Then
                    hasBodyContent = True
                    Exit For
                End If
            End If
        Next rng
        
        ' 根据页面类型插入标记
        If PageCounter = 1 Then
            InsertWord = "!@" & FirstPageInput & "@! "
            PageRange.InsertBefore InsertWord
        Else
            InsertWord = " !@@! "
            PageRange.InsertBefore InsertWord
        End If
        
        ' 设置标记字体为极小尺寸
        With PageRange.Font
            .Size = 1
        End With
    Next PageCounter
End Sub

关键修改说明 #

• 页面内容判断：通过遍历页面范围内的wdMainTextStory（正文故事范围），检查是否有非空白的正文内容，以此区分纯脚注页和普通页面。
• 纯脚注页处理：不管页面是否有正文，都直接在页面起始位置插入标记，彻底避免跳过这类页面。
• 统一插入逻辑：全部使用InsertBefore插入标记，确保标记始终处于页面最开头位置，符合你的需求。

内容的提问来源于stack exchange，提问作者Isaac Samuel