Trong bài viết hôm nay, chúng tôi muốn chia sẻ với bạn 2 cách nhanh chóng để trích xuất từng trang riêng lẻ từ tài liệu Word của bạn.
Đôi khi trong một tài liệu Word, mỗi trang có thể chứa các nội dung khá độc lập, chẳng hạn như một bảng. Và bạn có thể sẽ cần gửi các bảng khác nhau cho những người khác nhau. Sau đó, bạn sẽ phải lưu từng bảng là từng trang, dưới dạng một tệp riêng biệt.
Ý tưởng đầu tiên nảy ra trong đầu chúng tôi là sao chép và dán cổ điển. Tuy nhiên, bất cứ điều gì liên quan đến lựa chọn đôi khi có thể gây khó chịu, vì việc kéo và chọn có thể dễ dàng dẫn đến một kết thúc mà không có lựa chọn nào cả. Vì lý do này, chúng tôi khuyên bạn 2 phương pháp nhanh chóng sử dụng macro để thực hiện công việc.
Phương pháp 1: Trích xuất Trang Hiện tại và Lưu dưới dạng Tài liệu Mới
- Trước hết, hãy đặt con trỏ chuột vào trang bạn muốn trích xuất.
- Nhấp vào tab "Nhà phát triển" và sau đó nhấp vào "Visual Basic" để gọi trình chỉnh sửa VBA. Nếu “Nhà phát triển” không được kích hoạt, thay vào đó, chỉ cần nhấn “Alt + F11”.
- Thứ hai, đi đến dự án "Bình thường" bằng cách nhấp vào nó.
- Tiếp theo, nhấp vào tab “Chèn” và chọn “Mô-đun”.
- Nhấp đúp chuột vào mô-đun mới để mở khu vực chỉnh sửa.
- Sau đó dán các mã sau vào đó:
Sub SaveCurrentPageAsANewDoc()
Dim objNewDoc As Document
Dim objDoc As Document
Dim strFileName As String
Dim strFolder As String
' Initialization
Set objDoc = ActiveDocument
strFolder = InputBox("Enter folder path here: ")
strFileName = InputBox("Enter file name here: ")
' Copy current page.
objDoc.Bookmarks("\Page").Range.Select
Selection.Copy
' Open a new document to paste the selection.
Set objNewDoc = Documents.Add
Selection.Paste
objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
objNewDoc.Close
End Sub
- Cuối cùng, nhấp vào nút "Chạy".
Lúc này sẽ có 2 ô nhập liệu. Nhập đường dẫn nơi bạn muốn lưu trữ tài liệu mới trên hộp nhập liệu đầu tiên. Và nhập tên tài liệu mới vào tên thứ hai.
Phương pháp 2: Trích xuất từng trang và lưu dưới dạng tài liệu mới
Macro sau đây sẽ cho phép bạn trích xuất từng trang riêng lẻ của tài liệu.
- Đầu tiên, nhấn “Ctrl + Home” để đi đến phần đầu của tài liệu của bạn.
- Sau đó làm theo các bước tương tự trong phương pháp 1 để cài đặt và chạy macro.
- Lần này thay thế macro bằng cái này:
Sub SaveEachPageAsADoc()
Dim objNewDoc As Document
Dim objDoc As Document
Dim nPageNumber As Integer
Dim strFolder As String
Dim objFileName As Range
' Initialization
Set objDoc = ActiveDocument
strFolder = InputBox("Enter folder path here: ")
' Copy each page in the document to paste it into a new one.
For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
Application.Browser.Target = wdBrowsePage
ActiveDocument.Bookmarks("\page").Range.Select
Selection.Copy
Set objNewDoc = Documents.Add
Selection.Paste
' Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
Set objFileName = objNewDoc.Range(Start:=0, End:=20)
objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
objNewDoc.Close
Application.Browser.Next
Next nPageNumber
End Sub
Xử lý các vấn đề về Word
Luôn luôn có và sẽ tiếp tục có nhiều vấn đề với Word. Điều quan trọng là phải học cách khắc phục chúng một cách đúng đắn. Cách được khuyến nghị nhất, tất nhiên, là sử dụng một phần mềm soạn thảo văn bản chuyên nghiệp. Phục hồi từ dụng cụ. Bạn nên tận dụng từng phút để khôi phục dữ liệu của mình trước khi quá muộn.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm xlsx hỏng và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm