實際開發中需要給當前的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