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

  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

shufusheng

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值