[Hỏi đáp] Tách file Word thành nhiều file nhỏ

[trantrungnam88]

Hi all!

E có 1 file word tổng hợp giờ muốn tách thành từng chương nhỏ (mỗi chương 1 file). E đã tìm đc 1 code ở trên mạng rất hay như dưới. Code này sẽ tách chương dựa trên ký hiệu phân cách là dấu "$". Kết quả chạy thì ok rồi nh mỗi file nhỏ sau khi tách lại mất hết định dạng của file gốc (cỡ chữ, font).
Vậy bác nào có thể sửa thêm giúp em đoạn code mà file con vẫn có format của file gốc ko ạ?
Hoặc ko thì để đơn giản thì file con có font "Time new roman", cỡ 14 là đc ạ.
Cảm ơn cả nhà!

Sub SplitNotes(delim As String, strFilename As String)
Dim doc As Document
Dim arrNotes
Dim I As Long
Dim X As Long
Dim Response As Integer
arrNotes = Split(ActiveDocument.Range, delim)
Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections.Do you wish to proceed?", 4)
If Response = 7 Then Exit Sub
For I = LBound(arrNotes) To UBound(arrNotes)
If Trim(arrNotes(I)) <> "" Then
X = X + 1
Set doc = Documents.Add
doc.Range = arrNotes(I)
doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
doc.Close True
End If
Next I
End Sub
Sub test()
'delimiter & filename
SplitNotes "$", "Notes "
End Sub

 

[trantrungnam88]

Ai rành VBA nghiên cứu giúp e cái. hic