将Word文档拆分为较小的文档

你想做的是不平凡的!我在文档处理方面做了相当多的工作,也就是说,如果您现在使用的是docx,那么由于支持库的缘故,这并不算太糟糕,请参见:

http://openxmldeveloper.org/

旧版本会变得更困难,您需要为此提供一个库,或者按照建议使用宏。

“程序”是网站吗?如果是这样,确保你 不要 使用COM互操作!

我想说,您最好的办法是研究VSTO或VBA宏来完成这项工作。无论文档是什么版本,这两者都将使您能够完全访问对象模型。

HTML传输可能有帮助。它是一个非常老的软件,而且非常昂贵,从最初的搜索来看,它可能不再受支持。但是,它确实能够获取一个单词文档,并将其拆分为更小的部分(当然,它也将其转换为HTML)。可能是要调查的。谷歌“HTML传输”的更多研究和免费演示。

我很成功 Aspose.Words 用于文档操作和生成。

用于将文件拆分为子文档的VBA宏

子更新文档()

    Application.ScreenUpdating = False
    Dim strFolder As String, strFile As String, wdDoc As Document
    strFolder = GetFolder
    If strFolder = "" Then Exit Sub
    strFile = Dir(strFolder & "\*.doc", vbNormal)
    While strFile <> ""
        Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile,      AddToRecentFiles:=False, Visible:=False)
        With wdDoc
            'Call your other macro or insert its code here
            'BreakOnSection
            wdDoc.Activate

        ActiveDocument.ActiveWindow.View.Type = wdOutlineView
            Selection.WholeStory
        Selection.Copy
            ActiveDocument.Subdocuments.AddFromRange Range:=Selection.Range
            ActiveDocument.SaveAs "C:\Data\Split\" & ActiveDocument.Name

            ActiveDocument.Close SaveChanges:=True
    End With
    strFile = Dir()
    Wend
    Set wdDoc = Nothing
    Application.ScreenUpdating = True
End Sub

Function GetFolder() As String
    Dim oFolder As Object
    GetFolder = ""
    Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0,     

"Choose a folder", 0)
    If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
    Set oFolder = Nothing
End Function