Nếu bạn đang gặp vấn đề với việc chia file Word lớn thành các file nhỏ hơn, hãy tham khảo bài viết sau đây. điện lạnh Thịnh Phát sẽ hướng dẫn bạn cách thực hiện việc này một cách dễ dàng, nhanh chóng và tiện lợi. Hãy tiếp tục đọc để biết cách thực hiện.
Cách tạo file PowerPoint từ file Word bằng VBA
Bạn không cần phải tốn thời gian cắt file Word thủ công nữa. Bây giờ, có một cách đơn giản hơn là sử dụng VBA để cắt file Word thành nhiều phần dựa trên các dấu phân cách. VBA (Visual Basic for Applications) là một ngôn ngữ lập trình mạnh mẽ được tích hợp trong Microsoft Office. Hãy theo dõi các bước sau để thực hiện quy trình này:
- Bước 1: Bắt đầu bằng cách nhấn đồng thời hai phím Alt và F11 để mở cửa sổ Microsoft Visual Basic.
- Bước 2: Tiếp theo, chọn “Insert,” sau đó chọn “Module.” Hãy sao chép đoạn mã VBA dưới đây và dán vào cửa sổ mới xuất hiện
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: Tiếp theo, chọn lệnh “Run” hoặc nhấn phím F5 để thực thi mã VBA.
- Bước 4: Sau khi xuất hiện hộp thoại Microsoft Word, hãy chọn “Yes” để tiếp tục quá trình tách file. Khi đó, tài liệu đã được chia thành các phần nhỏ sẽ được tạo ra thành các tài liệu riêng biệt.
Lưu ý những điểm sau đây trong quá trình sử dụng VBA để cắt file:
- Bạn cần thêm dấu phân cách /// giữa mỗi phần văn bản trước khi bạn muốn tách chúng. Điều này sẽ giúp VBA hiểu nơi tách file.
- Bạn có thể tùy chỉnh phần “Notes” trong mã VBA theo nhu cầu của bạn.
- Các tài liệu đã được tách sẽ được lưu trong cùng thư mục với tài liệu gốc.
- Không cần phải thêm dấu phân cách vào cuối tài liệu, vì điều này sẽ tạo ra một tài liệu trống sau khi tách.
Cách tách file Word thành nhiều file nhỏ theo trang bằng VBA
Cách thứ hai để tách file Word thành nhiều file nhỏ bằng VBA cũng rất hữu ích. Dưới đây là các bước để thực hiện:
- Bước 1: Tương tự như cách trước, bạn hãy nhấn đồng thời hai phím Alt và F11 để mở cửa sổ Microsoft Visual Basic for Application.
- Bước 2: Tiếp theo, chọn Insert, sau đó chọn Module để tạo một Module mới. Sau đó, dán đoạn mã VBA sau vào cửa sổ mới:
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 khi dán mã xong, bạn hãy chọn lệnh Run hoặc nhấn phím F5 để áp dụng VBA và tách file Word thành nhiều file nhỏ thành công. Bạn đã hoàn thành cách cắt file Word bằng VBA.
Cách tách file Word thành nhiều phần sử dụng tiện ích trực tuyến
Nếu bạn không là một chuyên gia về VBA, bạn cũng có thể tách một tệp Word thành nhiều tệp nhỏ bằng cách sử dụng một trang web trực tuyến có tích hợp các công cụ giúp bạn thực hiện quy trình này một cách nhanh chóng. Dưới đây là hướng dẫn chi tiết:
Bước 1: Truy cập vào trang web http://www.docsoso.com/word/word-split.aspx và chọn tùy chọn “Select File”. Điều này sẽ cho phép bạn tải lên tệp Word lớn mà bạn muốn cắt thành nhiều tệp nhỏ từ máy tính của bạn.
Bước 2: Sau khi tệp Word đã được tải lên, tùy thuộc vào mục tiêu cắt tệp, bạn có thể lựa chọn từ các tùy chọn mà dịch vụ Docsoso cung cấp, ví dụ:
- “Single Page Word Document”: Để cắt mỗi trang thành một tệp riêng biệt.
- “Odd and even pages of a document”: Để cắt tệp dựa trên trang chẵn và trang lẻ.
- “Every Pages in one Document”: Để cắt tệp dựa trên số lượng trang mà bạn muốn.
- “Customize page range”: Để cắt tệp dựa trên độ dài trang tùy chỉnh theo nhu cầu của bạn.
Bước 3: Sau khi bạn đã chọn tùy chọn phù hợp, hãy nhấn “Convert” để dịch vụ trực tuyến thực hiện quy trình cắt tệp Word của bạn.
Bước 4: Khi quá trình cắt đã hoàn thành, bạn có thể chọn các liên kết để tải về các tệp Word đã được cắt về máy tính của bạn.
Có nhiều phương pháp khác nhau để cắt một tệp Word thành nhiều tệp nhỏ, như đã được điện lạnh Thịnh Phát giới thiệu trong bài viết này. Hy vọng rằng bạn sẽ có thêm nhiều mẹo hữu ích để sử dụng khi cần cắt tệp Word lớn.
