VB.NET生成Word文档时Environment.NewLine换行失效问题求助

原因 #

使用Open XML SDK生成Word文档时，Environment.NewLine（即\r\n这类文本换行符）不会被Word自动解析为换行效果。Word的Open XML格式中，段落内的换行需要通过**Break元素**（对应Open XML SDK里的Break类）来实现，直接将带换行符的字符串传入Text对象，这些换行符会被Word忽略，导致看不到换行效果。

另外你的代码还有结构问题：创建的居中样式段落paragraph并未添加到文档body中，且所有内容都塞进同一个Run里，不符合Word文档的规范（通常一段文本对应一个Paragraph，不同格式块对应不同Run）。

解决办法 #

需要将TextCreator2返回的字符串按换行符拆分，在每个换行位置插入Break元素，以此实现Word识别的换行效果。同时调整文档结构，让内容块对应独立的段落和运行块。

以下是修改后的代码示例：

Dim DOCXPath As String = "C:\\Test.docx" ' 补充.docx后缀，确保文件能正常打开
Dim SelectedIndex As String = "Atlantic City"

Using wordDocument As WordprocessingDocument = WordprocessingDocument.Create(DOCXPath, WordprocessingDocumentType.Document)
    ' 添加主文档部分
    Dim mainPart As MainDocumentPart = wordDocument.AddMainDocumentPart()
    mainPart.Document = New Document()
    Dim body As Body = mainPart.Document.AppendChild(New Body())

    ' 遍历数据行
    For Each ActualRow As DataRow In DataTablePublication.Rows
        If ActualRow.Item(RefDocPubIndex).ToString = SelectedIndex Then
            ' 处理标题：独立段落+加粗样式
            Dim headerPara As Paragraph = body.AppendChild(New Paragraph())
            Dim headerRun As Run = headerPara.AppendChild(New Run())
            headerRun.AppendChild(New RunProperties(New Bold()))
            headerRun.AppendChild(New Text(HeaderCreator(ActualRow)))

            ' 处理TextCreator1：独立段落+加粗样式
            Dim text1Para As Paragraph = body.AppendChild(New Paragraph())
            Dim text1Run As Run = text1Para.AppendChild(New Run())
            text1Run.AppendChild(New RunProperties(New Bold()))
            text1Run.AppendChild(New Text(TextCreator1(ActualRow)))

            ' 处理TextCreator2：拆分换行内容并插入Break元素
            Dim text2Para As Paragraph = body.AppendChild(New Paragraph())
            Dim text2Run As Run = text2Para.AppendChild(New Run())
            Dim textContent As String = TextCreator2(ActualRow)
            ' 按系统换行符拆分字符串
            Dim lines As String() = textContent.Split({Environment.NewLine}, StringSplitOptions.None)
            
            For i As Integer = 0 To lines.Length - 1
                text2Run.AppendChild(New Text(lines(i)))
                ' 非最后一行添加换行标记
                If i < lines.Length - 1 Then
                    text2Run.AppendChild(New Break())
                End If
            Next
        End If
    Next

    wordDocument.Close()
End Using

关键修改说明： #

1. 为每个内容块创建独立的Paragraph和Run，符合Word文档的结构规范
2. 将带换行的字符串拆分后，用Break元素替代原有的文本换行符，让Word识别并渲染换行效果
3. 补充了文档路径的.docx后缀，避免文件无法正常打开

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