技术求助：如何按字符数拆分Word文件？

方法一：使用Word内置VBA宏 #

这是无需额外工具的原生解决方案，适合普通用户：

• 打开目标Word文档，按下Alt + F11打开VBA编辑器
• 插入新模块：右键左侧项目窗格中的文档名称 → 「插入」→ 「模块」
• 将以下代码粘贴到模块窗口，修改targetCharCount的值为你需要的单文件字符上限（默认5000，包含空格、标点等所有字符）

Sub SplitDocByCharCount()
    Dim targetCharCount As Long
    Dim currentCharCount As Long
    Dim newDoc As Document
    Dim para As Paragraph
    Dim i As Integer
    
    targetCharCount = 5000 ' 设置每个拆分文件的字符数
    
    Set newDoc = Documents.Add
    currentCharCount = 0
    i = 1
    
    For Each para In ActiveDocument.Paragraphs
        Dim paraCharCount As Long
        paraCharCount = Len(para.Range.Text)
        
        If currentCharCount + paraCharCount > targetCharCount Then
            newDoc.SaveAs2 FileName:=ActiveDocument.Path & "\拆分文档_" & i & ".docx"
            newDoc.Close
            Set newDoc = Documents.Add
            currentCharCount = 0
            i = i + 1
        End If
        
        para.Range.Copy
        newDoc.Content.Paste
        currentCharCount = currentCharCount + paraCharCount
    Next para
    
    ' 保存最后一个剩余内容的文档
    If newDoc.Content.Characters.Count > 1 Then
        newDoc.SaveAs2 FileName:=ActiveDocument.Path & "\拆分文档_" & i & ".docx"
        newDoc.Close
    End If
    
    Set newDoc = Nothing
    MsgBox "拆分完成！"
End Sub

• 按下F5运行宏，拆分后的文档会自动保存到原文档所在目录，命名为拆分文档_1.docx、拆分文档_2.docx等

方法二：使用Python脚本（适合有编程基础的用户） #

通过脚本可灵活控制拆分逻辑，比如自定义格式复制：

1. 先安装依赖库，打开命令提示符执行：

pip install python-docx

2. 创建Python脚本文件，修改input_file为你的Word文件路径，char_per_file为目标字符数：

from docx import Document

def split_doc_by_char_count(input_file, char_per_file=5000):
    doc = Document(input_file)
    current_chars = 0
    doc_index = 1
    new_doc = Document()
    
    for para in doc.paragraphs:
        para_text = para.text
        para_len = len(para_text)
        
        if current_chars + para_len > char_per_file:
            new_doc.save(f"拆分文档_{doc_index}.docx")
            new_doc = Document()
            current_chars = 0
            doc_index += 1
        
        # 复制段落内容与格式
        new_para = new_doc.add_paragraph(para_text)
        # 同步原段落的字体样式
        for run, new_run in zip(para.runs, new_para.runs):
            new_run.font.name = run.font.name
            new_run.font.size = run.font.size
            new_run.font.bold = run.font.bold
            new_run.font.italic = run.font.italic
        
        current_chars += para_len
    
    # 保存最后一份文档
    if current_chars > 0:
        new_doc.save(f"拆分文档_{doc_index}.docx")

if __name__ == "__main__":
    input_file = "你的文档路径.docx"  # 修改为实际路径
    split_doc_by_char_count(input_file, char_per_file=5000)

3. 运行脚本，拆分后的文档会保存在脚本所在目录

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