使用VB.NET设置Word文档边距遇异常：MainDocumentPart实例重复

这个报错我之前用OpenXML操作Word文档时也踩过一模一样的坑！问题核心就在于MainDocumentPart的唯一性——每个Word文档包（WordprocessingDocument）只能有一个主文档部件，你现在的代码大概率是重复调用了AddMainDocumentPart()，或是在打开已有内容的文档时还试图新增主文档部件，直接触发了OpenXML的结构校验。

错误原因拆解 #

当你执行doc.AddMainDocumentPart()时，OpenXML会自动检查当前文档是否已存在MainDocumentPart：

• 如果是新建空白文档：第一次调用完全合法，但如果代码逻辑里不小心重复执行了这行（比如循环嵌套、分支重复触发），就会抛出这个异常。
• 如果是打开已有Word文档：文档本身已经自带了MainDocumentPart，此时再调用Add方法就会直接冲突。

修正后的VB.NET代码示例 #

场景1：创建全新的Word文档（含页面方向+边距设置）

确保只调用一次AddMainDocumentPart()，再按需配置页面属性：

Option Compare Text
Option Explicit On
Option Infer On
Option Strict On

Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Wordprocessing

Public Class WordPageSetupHelper
    Public Sub CreateLandscapeDocumentWithMargins(filePath As String)
        ' 创建全新Word文档
        Using doc As WordprocessingDocument = WordprocessingDocument.Create(filePath, WordprocessingDocumentType.Document)
            ' 仅添加一次主文档部件
            Dim mainPart As MainDocumentPart = doc.AddMainDocumentPart()
            ' 初始化主文档的基础结构
            mainPart.Document = New Document(New Body())

            ' 构建页面设置节点
            Dim sectionProps As New SectionProperties()
            
            ' 设置页面为横向
            Dim pageOrientation As New PageOrientation() With {.Val = PageOrientationValues.Landscape}
            sectionProps.Append(pageOrientation)

            ' 设置四向边距（单位：Twips，1英寸=1440 Twips）
            Dim pageMargin As New PageMargin() With {
                .Top = 720,    ' 0.5英寸
                .Right = 720,  ' 0.5英寸
                .Bottom = 720, ' 0.5英寸
                .Left = 720,   ' 0.5英寸
                .Header = 360, ' 0.25英寸
                .Footer = 360, ' 0.25英寸
                .Gutter = 0
            }
            sectionProps.Append(pageMargin)

            ' 将页面设置添加到文档主体
            mainPart.Document.Body.Append(sectionProps)

            ' 保存文档
            mainPart.Document.Save()
        End Using
    End Sub
End Class

场景2：打开已有Word文档修改页面设置

直接获取已存在的MainDocumentPart，绝对不要调用Add方法：

Public Sub UpdateExistingDocumentPageSetup(filePath As String)
    Using doc As WordprocessingDocument = WordprocessingDocument.Open(filePath, True)
        ' 获取已存在的主文档部件，避免重复添加
        Dim mainPart As MainDocumentPart = doc.MainDocumentPart
        ' 极端容错：极少数已有文档无主部件时再添加
        If mainPart Is Nothing Then
            mainPart = doc.AddMainDocumentPart()
            mainPart.Document = New Document(New Body())
        End If

        ' 后续修改页面布局的逻辑和上面一致
        ' ...
    End Using
End Sub

关键注意点 #

• 时刻牢记：一个WordprocessingDocument实例只能对应一个MainDocumentPart，重复添加必然触发结构异常。
• 调试时可以先判断doc.MainDocumentPart是否为Nothing，再决定是新增还是直接复用。

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