示例代码：

Sub SplitWordDocument()

Dim doc As Document

Set doc = ActiveDocument

' 定义拆分位置（例如第10页末尾）

Dim splitPos As Integer

splitPos = doc.Range.Information(wdNumberOfPagesInDocument) / 2

' 复制前半部分

doc.Bookmarks("\Page").Range.Select

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=splitPos + 1

Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend

Selection.Copy

Documents.Add

Selection.Paste

ActiveDocument.SaveAs2 "前半部分.docx"

ActiveDocument.Close

' 删除原文档中的前半部分

Selection.Delete

doc.SaveAs2 "后半部分.docx"

End Sub

注意：使用VBA需要启用宏功能，建议在测试文档上先尝试。