Vba split page

[zackilicious]

Option Explicit




Sub SplitIntoPages()
Dim docMultiple As Document
Dim docSingle As Document
Dim rngPage As Range
Dim iCurrentPage As Integer
Dim iPageCount As Integer
Dim strNewFileName As String

Application.ScreenUpdating = False
Set docMultiple = ActiveDocument
Set rngPage = docMultiple.Range
iCurrentPage = 1

iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticP ages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End
Else

Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1

rngPage.End = Selection.Start
End If
rngPage.Copy
Set docSingle = Documents.Add
docSingle.Range.Paste
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""

strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
docSingle.SaveAs strNewFileName
iCurrentPage = iCurrentPage + 1
docSingle.Close
rngPage.Collapse wdCollapseEnd
Loop
Application.ScreenUpdating = True


Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub

This code using in word (not excel)

I have this code, it works well when using it to split page (in word, split every single page to 01 file).

I would like to split x page (02 or 03 or more pages to 01 file), which parameter i would adjust, please advise.

Billions thanks for your valuable help

 

[zackilicious]

Up, plz help