jacob 将两个word文档合并

实际开发中需要给当前的word插入一个封面,调用insertFile 命令可以实现将封面与word文档内容合并,当时内容和封面出现在同一个页面上的问题;网上很多方法是通过自己录制宏命令给文档插入一个分节符在程序中调用宏命令进行调用实现。其实这种方法是没有必要的;直接比照vba脚本里的InsertBreak命令即可实现插入分节符,来解决合并文档内容拼接在一起问题;

Dispatch.call(selection,  "InsertBreak" ,  new Variant(2) );//插入换页分节符

Dispatch.call(selection, "InsertBreak" , new Variant(3) );//插入不换页分节符

参考vba脚本:

Sub QQ1722187970()
    Const wdPageBreak = 7
    Const wdSectionBreakContinuous = 3
    Const wdSectionBreakNextPage = 2
    Const wdGoToPage = 1
    Const wdGoToAbsolute = 1
    Dim oDoc As Document
    Dim oRng As Range
    Set oDoc = Word.ActiveDocument
    Dim iPageNo As Long
    '获取总页数
    With oDoc
    iPageNo = .Range.Information(wdNumberOfPagesInDocument)
        For i = iPageNo To 2 Step -1
            '定位到页开始
            Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
            Debug.Print oRng.Start, oRng.End
            '插入不换页分节符
            oRng.InsertBreak wdSectionBreakContinuous
        Next i
    End With
End Sub

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章