Tách trang cần giúp đỡ (1 người xem)

[zackilicious]

Em có đoạn code sau:

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(wdStatisticPages)
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




=> code dùng để tách trang trong word, tách thành công mỗi trang trong word thành 1file

Giờ em muốn tách 2 trang hoặc 3 trang trong word thành 1 file thì em chỉnh thông số nào? các anh chị em chú bác chỉ giúp.

Em chân thành cảm ơn

 

[zackilicious]

uppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp

 

[befaint]

uppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp

Bạn không nên spam bài.
Bạn vui lòng nêu rõ yêu cầu của mình thì sẽ có người xem giúp bạn.
File word của bạn có bao nhiêu trang? Tách 2 trang hoặc 3 trang nào? Đồng thời, bạn gửi file word đó lên cho trực quan.