Cách cắt file Word online

Nếu bạn có một tài liệu word khổng lồ mà bạn cần chia thành nhiều tài liệu, hãy dành vài phút để đọc hướng dẫn này. Hướng dẫn này sẽ chỉ cho bạn hai phương pháp để chia một tài liệu thành nhiều tài liệu.

Tách tài liệu Word bằng dấu phân cách được chỉ định với VBA

Thay vì chia tài liệu thành nhiều tài liệu theo cách thủ công, phương pháp này sẽ giới thiệu một VBA để chia tài liệu Word theo dấu phân cách được chỉ định trong Word. Vui lòng làm như sau:

1. nhấn Alt + F11 các phím với nhau để mở cửa sổ Microsoft Visual Basic for Application;

2. Nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào cửa sổ Mô-đun mở mới.

VBA: Chia tài liệu Word thành nhiều tài liệu bằng dấu phân cách

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

3. Sau đó nhấn vào chạy hoặc nhấn phím F5 để áp dụng VBA.

4. Trong tài liệu Microsoft Word hiện ra, vui lòng nhấp vào nút Có để tiếp tục.

Lưu ý:
(1) Đảm bảo thêm dấu phân cách của bạn giống như "///" trong bài kiểm tra phụ đối với tài liệu giữa mỗi phần văn bản mà bạn muốn tách biệt. Ngoài ra, bạn có thể thay đổi "///" cho bất kỳ dấu phân cách nào để đáp ứng nhu cầu của bạn.
(2) Bạn có thể thay đổi các tài liệu "Ghi chú" trong bài kiểm tra phụ để phù hợp với nhu cầu của bạn. (3) Và các tài liệu tách sẽ được lưu vào cùng một nơi với tệp gốc.

(4) Bạn không cần thêm dấu phân cách vào cuối tệp gốc, nếu bạn làm vậy, sẽ có một tài liệu trống sau khi tách.

Chia tài liệu Word theo từng trang bằng VBA

Đây là một VBA khác để giúp bạn nhanh chóng chia một tài liệu Word thành nhiều trang trong Word. Vui lòng làm như sau:

1. nhấn Alt + F11 các phím với nhau để mở cửa sổ Microsoft Visual Basic for Application;

2. Nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào cửa sổ Mô-đun mở mới.

VBA: Chia tài liệu thành nhiều tài liệu theo trang trong Word

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 '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 + 1 '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", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'save the new single-paged document iCurrentPage = iCurrentPage + 1 '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 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub

3. Sau đó nhấn vào chạy nút hoặc bấm F5 để áp dụng VBA.

Lưu ý: Các tài liệu tách sẽ được lưu vào cùng một nơi với tệp gốc.

Tách tài liệu Word theo tiêu đề / trang / ngắt phần / ngắt trang bằng cách sử dụng Kutools cho Word

Nếu bạn đã cài đặt Kutools cho Word, bạn có thể áp dụng chẻ có chức năng dễ dàng chia một tài liệu thành nhiều tài liệu theo trang, tiêu đề, ngắt phần hoặc ngắt trang khi bạn cần trong Word ..

Kutools cho Word là một phần bổ trợ tiện dụng để giúp bạn dễ dàng hơn trong công việc và nâng cao khả năng xử lý tài liệu văn bản. Dùng thử miễn phí trong 60 ngày! Lấy nó ngay!

1.Nhấp chuột Kutools Plus > chẻ để cho phép chẻ tính năng này.

2. Trong hộp thoại Tách mở trên màn hình, bạn có thể làm như sau:

(1) Chọn cách tách từ Chia theo danh sách thả xuống. Tính năng này hỗ trợ 6 cách tách: tiêu đề 1, ngắt trang, ngắt phần, trang, mỗi n trang và phạm vi trang tùy chỉnh như hình minh họa bên dưới:

(2) Nhấp vào Xem nút

 để cụ thể hóa thư mục đích mà bạn sẽ lưu các tài liệu được chia thành;

(3) Nhập từ khóa làm tiền tố của tên tài liệu mới trong Tiền tố tài liệu cái hộp.

Lời khuyên:
(1) Nếu bạn chỉ định chia tài liệu hiện tại theo Mỗi n trang, bạn cần chỉ định số trong Mỗi n trang cái hộp;

(2) Nếu bạn chỉ định tách tài liệu hiện tại theo phạm vi trang tùy chỉnh, bạn cần nhập các phạm vi trang tùy chỉnh này được phân tách bằng dấu phẩy trong Trang , ví dụ: nhập 1, 3-5, 12 vào hộp.

3. Nhấn vào Ok nút để bắt đầu tách.

Sau đó, tài liệu hiện tại được chia theo cách tách được chỉ định và các tài liệu mới sẽ được lưu hàng loạt vào thư mục đích.

Có thể bạn đã quen với việc xem nhiều trang web trong Firefox / Chrome / IE và chuyển đổi giữa chúng bằng cách nhấp vào các tab tương ứng một cách dễ dàng. Ở đây, Tab Office hỗ trợ xử lý tương tự, cho phép bạn duyệt nhiều tài liệu Word trong một cửa sổ Word và dễ dàng chuyển đổi giữa chúng bằng cách nhấp vào tab của chúng. Nhấp để dùng thử miễn phí đầy đủ các tính năng!

Các bài báo tương đối:

Công cụ năng suất Word được đề xuất

• Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
• Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
• Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
• Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
• Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.

Tìm hiểu thêm Tải xuống Ngay Mua

Nếu bạn có một tài liệu Word đồ sộ và bạn cần cắt file Word này thành nhiều tài liệu nhỏ hơn thì hãy dành vài phút đọc hướng dẫn này. Gitiho sẽ chỉ cho bạn 2 cách để chia nhỏ file Word thành nhiều tài liệu dễ dàng và nhanh nhất.

Tuyệt đỉnh Microsoft Word - Chuyên gia soạn thảo văn bản

Các cách cắt file Word nhanh nhất

Cách cắt file Word bằng dấu phân cách với VBA

Thay vì cắt file Word thành nhiều phần bằng cách thủ công thì phương pháp này sẽ giới thiệu một VBA (ứng dụng lập trình cơ bản trong Microsoft Office) theo dấu phân cách. Bạn hãy làm theo các bước sau để tách file Word nhé.

• Bước 1: Nhấn đồng thời  hai phím Alt và F11 để mở cửa sổ Microsoft Visual Basic. 
• Bước 2: Chọn Insert, chọn Module và sau đó sao chép + dán mã VBA sau vào cửa sổ mới mở.

VBA: Tách file Word thành nhiều File word khác bằng Delimiter

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

• Bước 3: Chọn Run hoặc nhấn nút F5 để chạy.
  
• Bước 4: Hộp thoại Microsoft Word được mở ra, bạn hãy nhấn Yes.

Như vậy là chúng ta đã hoàn thành thao tác tách file Word thành nhiều file nhỏ rồi!

Một số lưu ý khi cắt file Word bằng mã VBA:

1. Nhớ đảm bảo rằng đã thêm dấu phân cách /// giữa mỗi phần văn bản mà bạn muốn phân tách. Ngoài ra bạn có thể thay đổi dấu /// bằng bất kỳ dấu phân cách nào để đáp ứng nhu cầu của mình.

2. Bạn có thể thay đổi các tài liệu “Notes” trong Sub Test để phù hợp với nhu cầu của mình.

3. Các tài liệu được tách sẽ lưu vào cùng nơi với tệp gốc.

4. Bạn không cần thêm dấu phân cách vào cuối tệp gốc, nếu bạn thêm thì sẽ có một tài liệu trống sau khi tách.

Xem thêm: Cách tạo AutoText giúp soạn thảo văn bản nhanh trong Word

Cách cắt file Word bằng Page với VBA

Chúng ta sẽ học thêm một phương pháp cắt file Word sử dụng VBA. Đây là một ứng dụng lập trình cơ bản khác (VBA) có thể giúp bạn tách file Word thành nhiều tài liệu nhỏ bằng Page trong Word. Hãy làm như sau:

• Bước 1: Nhấn đồng thời Alt và F11 để mở cửa sổ Microsoft Visual Basic for Application window.
• Bước 2: Chọn Insert, chọn Module và sau đó dán mã VBA dưới đây vào cửa sổ mới mở.

Mã VBA: tách tài liệu thành nhiều tài liệu bằng Page trong Word

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

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 '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 + 1 '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", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'save the new single-paged document iCurrentPage = iCurrentPage + 1 '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 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub

• Bước 3: Sau đó chọn Run hoặc ấn nút F5 để áp dụng VBA cắt file Word,

Khi sử dụng mã VBA này để chia nhỏ file Word, bạn cần lưu ý rằng các tài liệu được tách sẽ được lưu vào cùng nơi với tệp gốc.

Xem thêm: Hướng dẫn sử dụng VBA để sao chép dữ liệu từ Excel sang Word

Tổng kết

Vậy là chúng ta đã thực hành 2 phương pháp cắt file Word thành nhiều file nhỏ bằng cách sử dụng VBA. Có thể bạn vẫn còn xa lạ với VBA trong Word, vậy thì từ ngày hôm nay hãy bắt đầu tìm hiểu về tính năng này của Word nhé. Mình chắc chắn rằng bạn sẽ mở khóa được rất nhiều tính năng hữu ích không tưởng đấy.

Nhiều người nhầm tưởng, dùng Word soạn thảo ra được một tài liệu tương đối dễ nhìn thì được coi là thành thạo. Tuy nhiên kỹ năng dùng Word lại nhiều hơn bạn tưởng, kể cả chiều sâu lẫn rộng. Để trở thành chuyên gia dùng Word và tự tin trước mọi thứ liên quan đến Word hãy sở hữu ngay cho mình trọn bộ kiến thức: Chinh phục MOS Word 2013 và Tuyệt đỉnh Microsoft Word. Đừng quên tham khảo các bài viết trên blog Gitiho để tự bổ sung kiến thức mới mỗi ngày nhé.

Gitiho chúc bạn thành công!

Gitiho.com - Nền tảng học online duy nhất tại Việt Nam tập trung vào phát triển kỹ năng làm việc dành cho người đi làm

Với sứ mệnh: “Mang cơ hội phát triển kỹ năng, phát triển nghề nghiệp tới hàng triệu người”, đội ngũ phát triển Gitiho.com đã và đang làm việc với những học viện, trung tâm đào tạo, các chuyên gia đầu ngành để nghiên cứu và xây dựng lên các chương trình đào tạo từ cơ bản đến chuyên sâu xung quanh các lĩnh vực: Tin học văn phòng, Phân tích dữ liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án...

Gitiho tự hào khi được đồng hành cùng:

• 50+ khách hàng doanh nghiệp lớn trong nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…

• 100.000+ học viên trên khắp Việt Nam

Nếu bạn quan tâm đến các khóa tin học văn phòng của Gitiho, với mong muốn giỏi tin học để tăng năng suất làm việc lên gấp 5 lần, hãy truy cập ngay TẠI ĐÂY để tìm cho mình khóa học phù hợp nhé!



0 câu trả lời

3890 lượt xem

vỗ tay