軟體:excel
版本:2007
我有個excel檔案裡面的表格想貼入word內
每貼一個表格就插入換頁符號 把下一個表格貼到下一頁去
vba這樣寫:
Set WdObj = CreateObject("Word.Application") '設定開啟word程式
With WdObj
.Visible = False '執行時候不要看見word
.Documents.Add '增加一個新的word檔案
a = WorksheetFunction.Max(Range("H1:H100")) + 1
Range("A1:G" & a).Copy
.Selection.PasteExcelTable False, False, False
.Selection.TypeParagraph
.Selection.InsertBreak Type:=wdPageBreak
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
都會錯在這一行
不知道正確的插入換頁符號在這邊要怎麼寫?
b = WorksheetFunction.Max(Range("N1:N100")) + 1
Range("I1:M" & b).Copy
.Selection.PasteExcelTable False, False, False