我来帮你完善这段VBA代码，同时解决你提出的两个核心问题——在Word新页面添加文本，以及让Excel每行内容对应Word的一个独立页面。

关键实现要点 #

• 要在Word中生成新页面，我们可以插入分页符（因为用的是晚绑定模式，不能直接用Word内置的wdPageBreak常量，改用对应的数值7即可）
• 循环读取Excel数据行时，每写完一行内容就插入分页符，就能实现每行对应一个独立页面
• 注意语法细节：比如必须用英文半角引号，避免编译报错；最后一行不要插入分页符，防止末尾出现空页

完善后的完整代码 #

Sub marine()
    Dim i As Long, fD As Long
    Dim objWord As Object, objDoc As Object
    Dim rowContent As String
    
    ' 明确指定DATA工作表，避免因当前激活表变化导致错误
    With ThisWorkbook.Worksheets("DATA")
        fD = .Range("A" & .Rows.Count).End(xlUp).Row
        If fD = 1 Then
            MsgBox "No data on Data worksheet.", vbExclamation
            Exit Sub
        End If
        
        ' 创建Word应用实例和新文档（晚绑定，无需提前引用Word对象库）
        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Add
        objWord.Visible = True
        
        For i = 2 To fD
            ' 读取当前行内容（示例取A列，如需多列拼接可修改，比如A+B列：.Range("A"&i).Value & " | " & .Range("B"&i).Value）
            rowContent = .Range("A" & i).Value
            
            ' 将内容写入Word文档
            objDoc.Content.InsertAfter Text:=rowContent
            
            ' 插入分页符生成新页面，最后一行跳过避免空页
            If i < fD Then
                objDoc.Range.InsertBreak Type:=7 ' 7对应Word的wdPageBreak常量
            End If
        Next i
        
        ' 保存文档到当前Excel文件所在路径，指定文件名
        objDoc.SaveAs Filename:=ThisWorkbook.Path & "\Output.docx"
    End With
    
    ' 释放对象，避免内存泄漏
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

代码细节解释 #

1. 工作表引用优化：把With DATA改为With ThisWorkbook.Worksheets("DATA")，明确指定工作表，避免因当前激活表切换而出错
2. 内容读取灵活调整：示例中仅读取A列内容，你可以根据需求拼接多列内容，比如把姓名、手机号、地址放在同一页面
3. 分页逻辑优化：通过i < fD判断，确保最后一行内容后不会额外生成空页面
4. 语法错误修正：把原代码中的中文引号“Word.Application”改为英文半角引号"Word.Application"，否则会触发编译错误
5. 内存管理：最后添加对象释放代码，养成良好的VBA编码习惯

扩展：给页面内容添加格式 #

如果需要给每个页面的文本设置格式（比如标题样式、字体大小），可以在插入内容后添加这段代码：

' 选中刚插入的文本并设置格式（晚绑定模式用数值代替Word常量，wdCharacter=1）
With objDoc.Content
    .MoveEnd Unit:=1, Count:=-Len(rowContent)
    .Font.Name = "微软雅黑"
    .Font.Size = 16
    .Bold = True
    .ParagraphFormat.Alignment = 1 ' 1对应wdAlignParagraphCenter（居中对齐）
End With

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