Word VBA开发需求：检查文档对象是否超出页边距并标记

以下是实现需求的VBA代码，可直接在Word的VBA编辑器中运行：

Sub CheckAndMarkOversizedObjects()
    Dim doc As Document
    Dim pageWidthAvailable As Double
    Dim tbl As Table
    Dim shp As Shape
    Dim inlineShp As InlineShape
    Dim oversizedPages As Collection
    Dim pgNum As Variant
    Dim rangeToInsert As Range
    
    Set doc = ActiveDocument
    ' 计算页面可用宽度：页面总宽度减去左右边距
    pageWidthAvailable = doc.PageSetup.PageWidth - doc.PageSetup.LeftMargin - doc.PageSetup.RightMargin
    
    ' 初始化集合存储超界页码，避免重复标记同一页面
    Set oversizedPages = New Collection
    
    ' 遍历所有表格
    For Each tbl In doc.Tables
        If tbl.PreferredWidth > pageWidthAvailable Then
            On Error Resume Next ' 忽略重复添加的错误
            oversizedPages.Add tbl.Range.Information(wdActiveEndPageNumber), Key:=CStr(tbl.Range.Information(wdActiveEndPageNumber))
            On Error GoTo 0
        End If
    Next tbl
    
    ' 遍历所有浮动形状（非嵌入式）
    For Each shp In doc.Shapes
        If shp.Width > pageWidthAvailable Then
            On Error Resume Next
            oversizedPages.Add shp.Anchor.Information(wdActiveEndPageNumber), Key:=CStr(shp.Anchor.Information(wdActiveEndPageNumber))
            On Error GoTo 0
        End If
    Next shp
    
    ' 遍历所有嵌入式图形
    For Each inlineShp In doc.InlineShapes
        If inlineShp.Width > pageWidthAvailable Then
            On Error Resume Next
            oversizedPages.Add inlineShp.Range.Information(wdActiveEndPageNumber), Key:=CStr(inlineShp.Range.Information(wdActiveEndPageNumber))
            On Error GoTo 0
        End If
    Next inlineShp
    
    ' 在超界页面顶部插入标记
    For Each pgNum In oversizedPages
        ' 定位到目标页面的第一行位置
        Set rangeToInsert = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=pgNum).GoTo(What:=wdGoToLine, Which:=wdGoToFirst)
        ' 插入标记并设置醒目样式
        rangeToInsert.InsertBefore "<TOO_LARGE>" & vbCr
        rangeToInsert.Font.ColorIndex = wdRed
        rangeToInsert.Font.Bold = True
    Next pgNum
    
    MsgBox "检查完成！共发现 " & oversizedPages.Count & " 个页面存在超界对象。"
End Sub

代码关键说明： #

• 可用宽度计算：通过PageSetup对象获取页面总宽度，减去左右边距得到实际可使用的宽度，以此作为超界判断阈值。
• 全对象覆盖：分别处理表格、浮动形状（Shapes）和嵌入式图形（InlineShapes），覆盖文档中所有常见的可视化对象类型。
• 页码去重：使用Collection存储超界页码，通过Key参数避免同一页面被重复标记。
• 标记插入逻辑：通过GoTo方法定位到目标页面的首行位置，在前方插入<TOO_LARGE>标记，并设置红色加粗样式提升辨识度。

使用步骤： #

1. 打开需要检查的Word文档。
2. 按下Alt + F11打开VBA编辑器。
3. 右键点击项目窗口中的文档名称 → 插入 → 模块。
4. 将上述代码粘贴到模块窗口中。
5. 按下F5运行宏，等待检查完成。

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