如何使用VB.NET在Word文档多页同一位置插入图片

要让图片在Word所有页面保持完全一致的位置，最省心高效的方案是利用页眉/页脚——它们会自动应用到所有页面，完全不用逐页手动处理。你的现有代码尝试逐页添加内容，但这种方式不仅繁琐，还很难保证跨页位置绝对统一，咱们来调整一下思路：

先聊聊你现有代码里的小问题 #

• 代码里oPara1 = oDoc.Content.Paragrap拼写错误，应该是oDoc.Content.Paragraphs.Add()
• 你通过循环手动插入分页和图片，但这种方式下图片只属于当前页内容，没法自动同步到新增页面
• 缺少oWord、oDoc这些核心对象的初始化代码，可能会导致运行报错

推荐方案：用页眉/页脚插入固定位置图片 #

直接把图片放到主页眉（或页脚）里，所有页面都会自动显示，而且位置完全一致。下面是完整的VB.NET代码示例：

Imports Microsoft.Office.Interop.Word

' 初始化Word应用和文档对象
Dim oWord As New Application()
Dim oDoc As Document = oWord.Documents.Add()
oWord.Visible = True ' 让Word可见，方便调试

Try
    ' 获取文档的主页眉（所有页面默认共用的页眉）
    Dim headerRange As Range = oDoc.Sections(1).Headers(WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    
    ' 方式1：插入嵌入式图片（跟随页眉文本流）
    Dim headerImage As InlineShape = headerRange.InlineShapes.AddPicture(
        FileName:="D:\logo.jpg",
        LinkToFile:=False,
        SaveWithDocument:=True,
        Range:=headerRange
    )
    headerImage.LockAspectRatio = MsoTriState.msoTrue ' 锁定宽高比
    headerImage.Width = oWord.InchesToPoints(1) ' 1英寸宽
    headerImage.Height = oWord.InchesToPoints(1) ' 1英寸高
    headerImage.Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight ' 右对齐

    ' 方式2：插入浮动图片（绝对固定位置，更适合你的需求）
    ' Dim headerShape As Shape = oDoc.Sections(1).Headers(WdHeaderFooterPrimary).Shapes.AddPicture(
    '     FileName:="D:\logo.jpg",
    '     LinkToFile:=False,
    '     SaveWithDocument:=True,
    '     Left:=oWord.InchesToPoints(2), ' 距离页面左侧2英寸
    '     Top:=oWord.InchesToPoints(0.5), ' 距离页面顶部0.5英寸
    '     Width:=75,
    '     Height:=75
    ' )
    ' headerShape.WrapFormat.Type = WdWrapType.wdWrapBehind ' 设置环绕方式为置于文字下方

    ' 测试添加几页内容，验证图片是否自动显示
    For i As Integer = 1 To 3
        oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter()
        oDoc.Bookmarks("\endofdoc").Range.InsertAfter($"这是第{i}页的内容，图片会自动显示在页眉固定位置")
        oDoc.Bookmarks("\endofdoc").Range.InsertBreak(WdBreakType.wdPageBreak)
    Next

Catch ex As Exception
    MessageBox.Show($"运行出错：{ex.Message}")
Finally
    ' 记得释放COM对象，避免Word进程残留
    ' System.Runtime.InteropServices.Marshal.ReleaseComObject(oDoc)
    ' System.Runtime.InteropServices.Marshal.ReleaseComObject(oWord)
End Try

关键说明： #

• 主页眉/页脚：wdHeaderFooterPrimary是文档默认的页眉，所有页面（除了单独设置的首页、奇偶页）都会共用这个内容
• 位置控制：嵌入式图片跟随文本流，适合和页眉文字搭配；浮动图片可以设置绝对位置（Left/Top参数），完美满足“固定位置”的需求
• 锁定设置：LockAspectRatio可以防止图片被误拉伸，保证跨页显示一致

特殊场景：必须逐页插入的方案 #

如果因为业务需求必须逐页手动插入，那你需要获取每一页的范围，然后在相同坐标插入浮动图片，核心代码如下：

' 循环遍历每一页
For pageNum As Integer = 1 To oDoc.ComputeStatistics(WdStatistic.wdStatisticPages)
    ' 获取当前页的范围
    Dim pageRange As Range = oDoc.GoTo(What:=WdGoToItem.wdGoToPage, Which:=WdGoToDirection.wdGoToAbsolute, Count:=pageNum)
    pageRange.End = pageRange.GoTo(What:=WdGoToItem.wdGoToPage, Which:=WdGoToDirection.wdGoToNext, Count:=1).Start - 1
    
    ' 在当前页固定位置插入图片
    Dim pageShape As Shape = oDoc.Shapes.AddPicture(
        FileName:="D:\logo.jpg",
        LinkToFile:=False,
        SaveWithDocument:=True,
        Left:=oWord.InchesToPoints(2),
        Top:=oWord.InchesToPoints(3),
        Width:=75,
        Height:=75
    )
    ' 绑定图片到当前页面，避免新增页面时移位
    pageShape.RelativeHorizontalPosition = WdRelativeHorizontalPosition.wdRelativeHorizontalPositionPage
    pageShape.RelativeVerticalPosition = WdRelativeVerticalPosition.wdRelativeVerticalPositionPage
Next

但这种方法不如页眉页脚高效，而且如果后续新增页面，还得重新处理，所以优先推荐页眉/页脚方案。

内容的提问来源于stack exchange，提问作者Mebala Pynhun Shylla