• Network
  • Security
  • Software
  • Thủ thuật
  • Tin tức
  • Video hướng dẫn
  • Donate – Mời AnonyViet ly Cafe ☕
AnonyViet
  • Tin tức
  • Network
    • Mạng cơ bản
    • Hyper-V
    • Linux
    • Windown Server 2012
  • Security
    • Basic Hacking
    • Deface
    • Kali Linux / Parrot
    • SQL Injection
  • Thủ thuật
    • Khóa Học Miễn Phí
    • Code
    • Mẹo Vặt Máy Tính
    • Facebook
    • Windows 7/8/10/11
    • Đồ Họa
    • Video
  • Software
    • Phần mềm máy tính
    • Phần mềm điện thoại
  • Tin học văn phòng
  • Kiến thức
  • MMO
    • Advertisers – Publishers
    • Affiliate Program
    • Kiếm tiền bằng điện thoại
    • Pay Per Click – PPC
No Result
View All Result
  • Tin tức
  • Network
    • Mạng cơ bản
    • Hyper-V
    • Linux
    • Windown Server 2012
  • Security
    • Basic Hacking
    • Deface
    • Kali Linux / Parrot
    • SQL Injection
  • Thủ thuật
    • Khóa Học Miễn Phí
    • Code
    • Mẹo Vặt Máy Tính
    • Facebook
    • Windows 7/8/10/11
    • Đồ Họa
    • Video
  • Software
    • Phần mềm máy tính
    • Phần mềm điện thoại
  • Tin học văn phòng
  • Kiến thức
  • MMO
    • Advertisers – Publishers
    • Affiliate Program
    • Kiếm tiền bằng điện thoại
    • Pay Per Click – PPC
No Result
View All Result
AnonyViet
No Result
View All Result

Cách tách file Word ra thành nhiều file nhỏ

Ellyx13 by Ellyx13
in Word/Google Docs
Reading Time: 6 mins read
A A
0

Mục lục bài viết

  1. Tách file Word bằng dấu phân cách với VBA
  2. Tách tài liệu Word theo trang với VBA
  3. Tách tài liệu Word theo tiêu đề/Trang/Ngắt mục/Ngắt trang bằng cách sử dụng Kutools cho Word

Nếu bạn có một tài liệu word lớn cần chia thành nhiều file nhỏ, thì hãy đọc bài viết này. Bài nãy sẽ hướng dẫn cho bạn hai phương pháp để tách file Word thành nhiều file nhỏ.

Tham gia kênh Telegram của AnonyViet  👉 Link 👈

Cách tách file Word ra thành nhiều file nhỏ

Các bài viết liên quan

Tự động chuyển văn bản vào Bảng trong Word 16

Tự động chuyển văn bản vào Bảng trong Word

25/10/2022
sua loi word khong mo duoc

Cách sửa lỗi File Word mở không được – Word experienced an error trying to open the file

17/10/2022
Các mẹo sử dụng Word

Top 4 mẹo về Word ai cũng phải nên biết khi đi làm

09/10/2022 - Updated on 10/10/2022
xoa file mo gan day word

Cách xóa lịch sử mở File gần đây trên Word

14/06/2022

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

Thay vì chia file thành nhiều nhỏ hơn theo cách thủ công, phương pháp này sẽ dùng VBA để chia tài liệu Word theo dấu phân cách được chỉ định trong Word.

1. Nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Application;

2. Nhấp vào Insert > Module, rồi dán code VBA bên dưới vào cửa sổ Module window.

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ấp vào nút Run hoặc nhấn phím F5 để áp dụng VBA.

4. Nhấn Yes để tiếp tục.

Cách tách file Word ra thành nhiều file nhỏ 9

Lưu ý:

(1) Đảm bảo thêm dấu phân tách giống như “///” vào tài liệu 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 “///” thành 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 “Notes” trong sub Test để 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, nó sẽ tạo thêm một tài liệu trống sau khi tách.

Tách tài liệu Word theo trang với VBA

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

1. Nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Application;

2. Nhấp vào Insert > Module, rồi dán code VBA bên dưới vào cửa sổ Module.

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ấp vào nút Run hoặc nhấn phí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 mục/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 năng Split của nó để 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 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.

1. Nhấp chuột Kutools Plus > Split để bật tính năng Split.

Cách tách file Word ra thành nhiều file nhỏ 10

2. Trong hộp thoại Split đang mở trên màn hình, bạn có thể thực hiện như sau:

Cách tách file Word ra thành nhiều file nhỏ 11

(1) Chọn cách tách từ danh sách Split by.

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 dưới:

Cách tách file Word ra thành nhiều file nhỏ 12

(2) Nhấp vào nút Browse để chỉ định thư mục đích mà bạn sẽ lưu các tài liệu được tách.

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

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 (Every n pages), bạn cần chỉ định số trong hộp Every n pages.

Cách tách file Word ra thành nhiều file nhỏ 13

(2) Nếu bạn chỉ định chia 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 hộp Page, ví dụ: nhập 1, 3-5, 12 vào hộp.

Cách tách file Word ra thành nhiều file nhỏ 14

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

Sau đó, tài liệu hiện tại sẽ đượ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ách tách file Word ra thành nhiều file nhỏ 15

Ngoài ra, bạn cũng có thể tự động lưu file Word vào OneDrive tại đây.

Bài viết đạt: 5/5 - (100 bình chọn)
Tags: tách filetách file WordWord
Ellyx13

Ellyx13

Có người không dám bước vì sợ gãy chân, nhưng sợ gãy chân mà không dám bước đi thì khác nào chân đã gãy.

Related Posts

Cách trích dẫn tài liệu tham khảo chuẩn APA 17
Word/Google Docs

Cách trích dẫn tài liệu tham khảo chuẩn APA

23/04/2023
Tự động chuyển văn bản vào Bảng trong Word 18
Word/Google Docs

Tự động chuyển văn bản vào Bảng trong Word

25/10/2022
xoa file mo gan day word
Word/Google Docs

Cách xóa lịch sử mở File gần đây trên Word

14/06/2022
Cách tắt chia sẻ tài liệu trên Google Docs 19
Word/Google Docs

Cách tắt chia sẻ tài liệu trên Google Docs

19/01/2022
xoa tat ca dinh dang word
Word/Google Docs

Cách xoá trang cuối bị dư thừa ở Word

09/01/2022
Hướng dẫn tạo bìa cho bài khóa luận không cần ra quán photo
Word/Google Docs

Cách tạo Bìa cho Bài Khóa Luận bằng Word chỉ 1 nốt nhạc

04/01/2022
Next Post
[Tạo 2D Platformer Game với Godot] Phần 29: Lưu và load dữ liệu game 20

[Tạo 2D Platformer Game với Godot] Phần 29: Lưu và load dữ liệu game

guest

guest

Website này sử dụng Akismet để hạn chế spam. Tìm hiểu bình luận của bạn được duyệt như thế nào.

0 Comments
Inline Feedbacks
View all comments

Asia 300×600

Liên hệ Quảng Cáo

Lien he AnonyViet

Đối tác —

Shopee

Các bài mới

Thay pin iPhone 11 Pro Max có mất chống nước không 21

Thay pin iPhone 11 Pro Max có mất chống nước không

28/05/2023
Cách viết luận văn bằng ChatGPT không bị phát hiện 22

Cách viết luận văn bằng ChatGPT không bị phát hiện

28/05/2023
iPhone 13 bị đơ màn hình do đâu, khắc phục thế nào 23

iPhone 13 bị đơ màn hình do đâu, khắc phục thế nào

27/05/2023
3 cách lưu lịch sử trò chuyện với ChatGPT 24

3 cách lưu lịch sử trò chuyện với ChatGPT

27/05/2023
Sự nguy hiểm của thư mục .git 25

Sự nguy hiểm của thư mục .git

26/05/2023

Ads

Giới thiệu

AnonyViet

AnonyViet

Nơi chia sẻ những kiến thức mà bạn chưa từng được học trên ghế nhà trường!

Chúng tôi sẵn sàng đón những ý kiến đóng góp, cũng như bài viết của các bạn gửi đến AnonyViet.

Hãy cùng AnonyViet xây dựng một cộng đồng CNTT lớn mạnh nhất!

Giới thiệu

AnonyViet là Website chia sẻ miễn phí tất cả các kiến thức về công nghệ thông tin. AnonyViet cung cấp mọi giải pháp về mạng máy tính, phần mềm, đồ họa và MMO.

Liên hệ

Email: anonyviet.com[@]gmail.com

1409 Hill Street #01-01A
Old Hill Street Police Station
Singapore 179369

 

Bản quyền: DMCA.com Protection Status

Phản hồi gần đây

  • faxy as trong Key VMWare 17 Full Serial
  • siesta trong Cách đăng ký 6 tháng miễn phí Youtube Premium
  • Hevin trong Demo tấn công Phishing với Evilginx2 và cách phòng tránh
  • hoàng trong Cách xem code dưới dạng Assembly
  • hoàng trong Share Key Active Visual Studio Enterprise 2022

©2023 AnonyViet - Chúng tôi mang đến cho bạn những kiến thức bổ ích về Công nghệ ku11net.co F8BET https://okuytin.com 6623 BK8 Goat 789b.win ST666 khoaitv Iwin f8bet hi 88 VN138 nhà cái mig8 i9bet w388 nhà cái jun88 jun88 https://7789bet.io/ https://j88casino.com/ 11bet keo nha cai vn88

No Result
View All Result
  • Tin tức
  • Network
    • Mạng cơ bản
    • Hyper-V
    • Linux
    • Windown Server 2012
  • Security
    • Basic Hacking
    • Deface
    • Kali Linux / Parrot
    • SQL Injection
  • Thủ thuật
    • Khóa Học Miễn Phí
    • Code
    • Mẹo Vặt Máy Tính
    • Facebook
    • Windows 7/8/10/11
    • Đồ Họa
    • Video
  • Software
    • Phần mềm máy tính
    • Phần mềm điện thoại
  • Tin học văn phòng
  • Kiến thức
  • MMO
    • Advertisers – Publishers
    • Affiliate Program
    • Kiếm tiền bằng điện thoại
    • Pay Per Click – PPC

©2023 AnonyViet - Chúng tôi mang đến cho bạn những kiến thức bổ ích về Công nghệ ku11net.co F8BET https://okuytin.com 6623 BK8 Goat 789b.win ST666 khoaitv Iwin f8bet hi 88 VN138 nhà cái mig8 i9bet w388 nhà cái jun88 jun88 https://7789bet.io/ https://j88casino.com/ 11bet keo nha cai vn88

wpDiscuz
!

Ads

Ads Blocker Detected!!! - Vui lòng tắt Ad Blocker!!!

Vui lòng tắt Ad Blocker

Có vẻ như bạn đang bật trình chặn Quảng cáo.

{Trường hợp bạn đang dùng trình duyệt từ Facebook, hãy copy link bài viết qua Chrome để xem nội dung, như vậy sẽ không bị chặn}

Website chúng tôi duy trì nhờ vào doanh thu quảng cáo, vì vậy hãy tắt trình chặn quảng cáo để chúng tôi có kinh phí chi trả tiền thuê Server, xin cảm ơn!

Tải lại trang - Refresh Page