神人来帮帮忙,关于VBA的问题。

我有一个file，这个file 270页，老板要求每30页就要割成一份然后save，但是我只懂割成将270页成一页一页然后save，不知道有什么办法，
以下是割成一页页的方法，如何modify？

另外为什么会每次个了后会多一页白的，如何消除它？
Sub BreakOnPage()   ' Used to set criteria for moving through the document by page.   Application.Browser.Target = wdBrowsePage   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")            'Select and copy the text to the clipboard.      ActiveDocument.Bookmarks("\page").Range.Copy      ' Open new document to paste the content of the clipboard into.      Documents.Add      Selection.Paste' Removes the break that is copied at the end of the page, if any.      Selection.TypeBackspace      ChangeFileOpenDirectory "C:\"      DocNum = DocNum + 1      ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"      ActiveDocument.Close      ' Move the selection to the next page in the document.      Application.Browser.Next   Next i   ActiveDocument.Close savechanges:=wdDoNotSaveChangesEnd Sub   

顶！！！！！！！！！！！！！11