Code VB tạo ra nhiều file tài liệu sau khi trộn thư merge mail

Posted on 08/11/2016 by Toktips

Sử dụng đoạn code sau để tách 1 file word sau khi trộn thư ra nhiều file riêng lẻ

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

‘có thể thay đổi địa chỉ đường dẫn nơi lưu các file được tách ra bên dưới’

ChangeFileOpenDirectory “C:”

DocNum = DocNum + 1
‘ có thể thay đổi tên lưu mặc định của file mới được tạo ra’

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