Dividir documento de word en varios

Hola, necesito ayuda con un documento en word que tienen 72 hojas, necesito que cada hoja se convierta en un documento diferente, para eso estoy utilizando la siguiente macro
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:=wdDoNotSaveChanges
End Sub
El problema que tengo con esa macro es que cuando abro cada archivo independiente, me salen 3 hojas de cada archivo y necesito que sea solo una hoja y no tres.