实际开发中需要给当前的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