{"id":113,"date":"2015-09-10T10:34:23","date_gmt":"2015-09-10T10:34:23","guid":{"rendered":"http:\/\/99excel.com\/?p=113"},"modified":"2021-05-14T16:09:21","modified_gmt":"2021-05-14T16:09:21","slug":"split-word-document-into-multiple-documents-vba","status":"publish","type":"post","link":"https:\/\/99excel.com\/home\/split-word-document-into-multiple-documents-vba\/","title":{"rendered":"Split word document into multiple documents vba"},"content":{"rendered":"

Option Explicit ‘This goes in the Declarations section of your code module.
‘Hopefully it is already there because you have ticked the ‘Require Variable Declaration’
checkbox. (Tools\/Options, Editor tab.)<\/p>\n

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<\/p>\n

Application.ScreenUpdating = False ‘Makes the code run faster and reduces screen _
flicker a bit.
Set docMultiple = ActiveDocument ‘Work on the active document _
(the one currently containing the Selection)
Set rngPage = docMultiple.Range ‘instantiate the range object
iCurrentPage = 1
‘get the document’s page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
Do Until iCurrentPage > iPageCount
If iCurrentPage = iPageCount Then
rngPage.End = ActiveDocument.Range.End ‘last page (there won’t be a next page)
Else
‘Find the beginning of the next page
‘Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 4
‘Set the end of the range to the point between the pages
rngPage.End = Selection.Start
End If
rngPage.Copy ‘copy the page into the Windows clipboard
Set docSingle = Documents.Add ‘create a new document
docSingle.Range.Paste ‘paste the clipboard contents to the new document
‘remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:=”^m”, ReplaceWith:=””
‘build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, “.doc”, “<\/em>” & Right$(“000” & iCurrentPage, 4) & “.doc”)
docSingle.SaveAs strNewFileName ‘save the new single-paged document
iCurrentPage = iCurrentPage + 4 ‘move to the next page
docSingle.Close ‘close the new document
rngPage.Collapse wdCollapseEnd ‘go to the next page
Loop ‘go to the top of the do loop
Application.ScreenUpdating = True ‘restore the screen updating<\/p>\n

‘Destroy the objects.
Set docMultiple = Nothing
Set docSingle = Nothing
Set rngPage = Nothing
End Sub<\/p>\n

 <\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Option Explicit ‘This goes in the Declarations section of your code module. ‘Hopefully it is already there because you have ticked the ‘Require Variable Declaration’ checkbox. (Tools\/Options, Editor tab.) 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 … Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[],"tags":[],"class_list":["post-113","post","type-post","status-publish","format-standard","hentry"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/113","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/comments?post=113"}],"version-history":[{"count":1,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/113\/revisions"}],"predecessor-version":[{"id":898,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/posts\/113\/revisions\/898"}],"wp:attachment":[{"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/media?parent=113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/categories?post=113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/99excel.com\/home\/wp-json\/wp\/v2\/tags?post=113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}