Cách trích xuất trang từ tài liệu Microsoft Word

Tài liệu Microsoft Word có thể chứa các trang riêng lẻ phù hợp hơn trong tài liệu của riêng họ. Ví dụ: một tài liệu có thể chứa hàng tá trang biểu mẫu, mỗi trang sẽ chuyển đến một bộ phận riêng để xử lý. Để trích xuất một trang riêng lẻ, bạn có thể sao chép nó vào một tệp trống. Để trích xuất tất cả các trang của tài liệu, bạn phải sao chép và dán từng tệp của nó, việc này có thể mất rất nhiều thời gian và công sức. Tuy nhiên, bạn có thể tự động hóa quá trình trích xuất bằng cách viết macro Visual Basic.

1.

Nhấn "Alt-F11" để mở trình soạn thảo Visual Basic của Word.

2.

Nhấp vào mô-đun "NewMacros" trong thư mục Mô-đun của cửa sổ Dự án, nếu Word không tự động mở.

3.

Nhập nội dung sau để mở macro mới:

Sub mcrExtractPages ()

4.

Thêm mã sau đây để đặt macro để duyệt qua tài liệu theo trang:

Application.Browser.Target = wdBrowsePage

5.

Thêm mã sau đây, mở ra một vòng lặp chạy trên mỗi trang trong tài liệu:

Dành cho i = 1 đến ActiveDocument.BuiltInDocumentProperIES ("Số trang")

6.

Thêm phần sau để sao chép nội dung của trang đã chọn:

ActiveDocument.Bookmark ("\ page"). Range.Copy

7.

Thêm mã sau đây để tạo một tài liệu mới:

Tài liệu. Thêm

số 8.

Thêm mã sau đây để dán mã đã sao chép vào tài liệu mới:

Lựa chọn.

9.

Thêm mã sau đây để đặt thư mục trong đó Word sẽ lưu các trang được trích xuất:

ChangeFileOpenDirectory "C: \ Users \ Ryan \ Documents"

10.

Thay đổi "C: \ Users \ Ryan \ Documents" thành bất kỳ thư mục nào bạn muốn.

11.

Thêm mã sau đây để lưu tài liệu mới dưới dạng tệp mới trong thư mục đã chọn:

DocNum = DocNum + 1 ActiveDocument.SaveAs FileName: = "ExtractedPage_" & DocNum & ".docx"

12.

Thay đổi "ExtractedPage_" thành bất kỳ tên nào bạn muốn gán các trang được trích xuất.

13.

Thêm mã sau đây để đóng tài liệu mới và di chuyển đến trang tiếp theo của tài liệu chính:

ActiveDocument. Đóng ứng dụng.Bỏer. Tiếp theo

14.

Thêm mã sau đây để đóng vòng lặp:

Tiếp theo tôi

15.

Thêm mã sau đây để đóng macro:

Kết thúc phụ

16.

Nhấn "F5" để chạy macro.

tiền boa

• Lưu macro khi bạn đã giải nén các trang của mình. Trong tương lai, bạn có thể chạy macro đã lưu để trích xuất các trang tài liệu khác.