Vikash Kumar

Vikash Kumar

  • NA
  • 959
  • 20.3k

How to paste the split word document into target bookmarks

May 10 2017 1:48 AM

Hi, 
I want to split a big word document by section break into target documents with target bookmarks(The section from the big wor document should be pasted to another documents after a bookmark in the target document and similarly for other documents)
I used this code to split but I want to target dedicated files in a dedicated folder. 
What should I be doing?

Here's the split code:
Sub BreakOnSection()
' Used to set criteria for moving through the document by section.
Application.Browser.Target = wdBrowseSection

'A mailmerge document ends with a section break next page.
'Subtracting one from the section count stop error message.
For i = 1 To ((ActiveDocument.Sections.Count) - 1)

'Select and copy the section text to the clipboard
ActiveDocument.Bookmarks("\Section").Range.Copy

'Create a new document to paste text from clipboard.
Documents.Add
Selection.Paste

' Removes the break that is copied at the end of the section, if any.
Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1

ChangeFileOpenDirectory "C:\"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
ActiveDocument.Close
' Move the selection to the next section in the document
Application.Browser.Next
Next i
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Thanks in advance.

Answers (1)