Cách tách 1 trang trong Word thành file riêng không mất định dạng

Học tin học tại thanh hóa

Để tách một trang word bất kì ra một file riêng mà không cần tốn quá nhiều công sức, mời bạn tham khảo cách làm sau:

  1. Cách 1: Sử dụng chức năng Save As

Bước 1:

Bạn cần mở tài liệu Word có chứa trang mà bạn muốn tách. Sau đó, bạn hãy dùng chuột để bôi đen toàn bộ nội dung trong trang cần tách. Để bôi đen, bạn hãy đặt con trỏ chuột ở đầu nội dung và kéo xuống cuối trang. Nếu nội dung trong trang chỉ có một phần nhỏ, bạn vẫn cần chọn chính xác để đảm bảo không sót bất kỳ nội dung nào.

Bước 2:

Sau khi bôi đen, bạn nhấn tổ hợp phímCtrl + Cđể sao chép nội dung đã chọn. Việc sao chép sẽ đảm bảo rằng nội dung của trang đã được lưu tạm thời trên bộ nhớ đệm của máy tính.

Bước 3:

Bạn hãy nhấn tổ hợp phím Ctrl + N để tạo một tài liệu Word mới. Khi tài liệu mới mở ra, bạn hãy đặt con trỏ chuột vào trang trống trong tài liệu mới và nhấn tổ hợp phímCtrl + Vđể dán nội dung vừa sao chép.

Bước 4:

Bạn hãy chọn mục File trên thanh công cụ ở góc trên bên trái màn hình, sau đó chọnSave As. Trong cửa sổ hiện ra, bạn đặt tên cho file tài liệu mới theo ý muốn và chọn vị trí lưu trên máy tính. Cuối cùng, bạn nhấnSaveđể hoàn tất.

Trung tâm tin học ở thanh hóa Để tách một trang word bất kì ra một file riêng mà không cần tốn quá nhiều công sức, mời bạn tham khảo cách
Trung tâm tin học ở thanh hóa
  1. Cách 2: Sử dụng mã VBA để tự động tách trang

Bước 1:

Bạn mở tài liệu mà bạn cần tách từng trang thành file riêng biệt. Sau đó, bạn hãy nhấn tổ hợp phímAlt + F11để mở cửa sổ Microsoft Visual Basic for Applications. Đây là công cụ lập trình tích hợp trong Word, cho phép bạn sử dụng mã để thực hiện các thao tác tự động.

Bước 2:

Trong cửa sổ VBA, bạn chọn menuInsertở phía trên, sau đó chọnModule. Một cửa sổ soạn thảo trống sẽ xuất hiện để bạn nhập mã lệnh.

Bước 3:

Bạn sao chép đoạn mã VBA dưới đây và dán vào cửa sổ soạn thảo:

Sub SplitDocumentByPage()

Dim doc As Document

Dim rng As Range

Dim i As Integer

Dim docName As String

 

Set doc = ActiveDocument

docName = doc.Name

 

For i = 1 To doc.ComputeStatistics(wdStatisticPages)

 Set rng = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i)

 rng.End = doc.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i + 1).Start

 rng.End = rng.End – 1

 Documents.Add

 Selection.Range.FormattedText = rng.FormattedText

 ActiveDocument.SaveAs2 FileName:=doc.Path & “\” & “Page_” & i & “.docx”

 ActiveDocument.Close

Next i

End Sub

Bước 4:

Bạn hãy nhấn phímF5để chạy đoạn mã. Lúc này, VBA sẽ tự động tách từng trang trong tài liệu thành các file riêng biệt. Các file này sẽ được lưu trong cùng thư mục chứa tài liệu gốc.

Trên đây là hướng dẫn tách trang word bất kì ra file mới, tin học ATC cảm ơn bạn đã quan tâm bài viết!

Trung tâm tin học ở thanh hóa Để tách một trang word bất kì ra một file riêng mà không cần tốn quá nhiều công sức, mời bạn tham khảo cách
Học tin học tại thanh hóa

TRUNG TÂM ĐÀO TẠO KẾ TOÁN THỰC TẾ – TIN HỌC VĂN PHÒNG ATC

DỊCH VỤ KẾ TOÁN THUẾ ATC – THÀNH LẬP DOANH NGHIỆP ATC

Địa chỉ:

Số 01A45 Đại lộ Lê Lợi – Đông Hương – TP Thanh Hóa

( Mặt đường Đại lộ Lê Lợi, cách bưu điện tỉnh 1km về hướng Đông, hướng đi Big C)

Tel: 0948 815 368 – 0961 815 368

Học tin học tại thanh hóa Để tách một trang word bất kì ra một file riêng mà không cần tốn quá nhiều công sức, mời bạn tham khảo cách
Học tin học ở thanh hóa

Lớp dạy tin học văn phòng ở Thanh Hóa

Lop day tin hoc van phong tai Thanh Hoa

 

Để lại một bình luận

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

0961.815.368 0948.815.368 Chat facebook Z Chat zalo