如何用VBA实现Word中图片单独分页？解决Pages对象未识别问题

问题根源 #

你之前的代码报错是因为Word的VBA对象模型里没有Pages这个可直接访问的集合对象，Word是流式排版文档，不能像Excel工作表那样直接按页码调用Pages(x)操作内容，Activepage、Pages(i)这类写法都是无效的。

解决方案 #

下面提供两种可行的VBA代码，根据需求选择：

方法一：给所有图片前后添加分页符（快速实现单图单页）

Sub 图片单独占一页()
    Dim shp As InlineShape
    ' 从后往前遍历，避免插入分页符打乱未处理图片的索引
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
        Set shp = ActiveDocument.InlineShapes(i)
        ' 图片前插入分页符
        shp.Range.InsertBefore Chr(12)
        ' 图片后插入分页符
        shp.Range.InsertAfter Chr(12)
    Next i
    ' 清理文档开头多余的分页符
    If ActiveDocument.Range(0, 1).Text = Chr(12) Then
        ActiveDocument.Range(0, 1).Delete
    End If
End Sub

方法二：将已有多图页面拆分，每张图片移到单独页面

Sub 拆分图片到单独页面()
    Dim shp As InlineShape
    Dim doc As Document
    Set doc = ActiveDocument
    ' 从后往前处理，防止索引偏移
    For i = doc.InlineShapes.Count To 1 Step -1
        Set shp = doc.InlineShapes(i)
        ' 剪切图片
        shp.Range.Cut
        ' 在原位置插入分页符后粘贴
        shp.Range.InsertBefore Chr(12)
        shp.Range.Paste
        ' 清理开头多余分页符
        If i = 1 And doc.Range(0, 1).Text = Chr(12) Then
            doc.Range(0, 1).Delete
        End If
    Next i
End Sub

额外注意 #

• 如果你的图片是浮动式（Shape对象，不是InlineShape），需要先转换成嵌入式，可在代码开头添加遍历转换的逻辑：

  Dim s As Shape
  For Each s In ActiveDocument.Shapes
      s.ConvertToInlineShape
  Next s
  

• 运行代码前建议备份文档，避免意外修改。

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