• 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
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ỏ

Elyx13 by Elyx13
09/12/2021
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ỏ.

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

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

xoa tat ca dinh dang word

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

09/01/2022
Hướng dẫn sửa lỗi chính tả cho các bạn hay sai khi đánh máy

Hướng dẫn sửa lỗi chính tả cho các bạn hay sai khi đánh máy

08/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

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
Cách sử dụng Google Docs mà không cần kết nối Internet 32

Cách sử dụng Google Docs mà không cần kết nối Internet

03/12/2021

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ỏ 25

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ỏ 26

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ỏ 27

(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ỏ 28

(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ỏ 29

(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ỏ 30

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ỏ 31

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

Tags: tách filetách file WordWord
Previous Post

Cách Update Offline Windows bằng WSUS

Next Post

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

Elyx13

Elyx13

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 tắt chia sẻ tài liệu trên Google Docs 33
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
Cách sử dụng Google Docs mà không cần kết nối Internet 34
Word/Google Docs

Cách sử dụng Google Docs mà không cần kết nối Internet

03/12/2021
Cách xoá trang trống trong Google Docs 35
Word/Google Docs

Cách xoá trang trống trong Google Docs

21/11/2021
Cách tự động lưu file Microsoft Word vào OneDrive 36
Word/Google Docs

Cách tự động lưu file Microsoft Word vào OneDrive

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

[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

Liên hệ Quảng Cáo

Lien he AnonyViet

Đối tác —

Fshare

Các bài mới

doi icon recycle bin hinh con meo

Cách đổi Icon Thùng rác thành hình con mèo hả mồm

26/05/2022
Cách mở khóa Bootloader trên điện thoại Xiaomi bằng Mi Unlock 38

Cách mở khóa Bootloader trên điện thoại Xiaomi bằng Mi Unlock

26/05/2022
5 Extension Chrome "mờ ám" bạn cần phải xóa ngay 39

5 Extension Chrome “mờ ám” bạn cần phải xóa ngay

25/05/2022
5 Website giúp bạn tìm chủ tài khoản Email là ai 40

5 Website giúp bạn tìm chủ tài khoản Email là ai

24/05/2022
godeal24

Giá bản quyền Windows 10 chỉ 5.71$, miễn phí nâng cấp lên Windows 11

23/05/2022

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

Bài viết mới

  • Cách đổi Icon Thùng rác thành hình con mèo hả mồm
  • Cách mở khóa Bootloader trên điện thoại Xiaomi bằng Mi Unlock
  • Cách thắng Game bắn cá
  • 5 Extension Chrome “mờ ám” bạn cần phải xóa ngay
  • 5 Website giúp bạn tìm chủ tài khoản Email là ai
  • Giá bản quyền Windows 10 chỉ 5.71$, miễn phí nâng cấp lên Windows 11

©2022 AnonyViet - Chúng tôi mang đến cho bạn những kiến thức bổ ích về Công nghệ. Google iwin888 Bing tải game iwin Github tải iwin apk Github tải win456 Youtube ku fun wikipedia 88vin reddit twin 567LIVE MMLive SP666 92lottery sun86 stackoverflow

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

©2022 AnonyViet - Chúng tôi mang đến cho bạn những kiến thức bổ ích về Công nghệ. Google iwin888 Bing tải game iwin Github tải iwin apk Github tải win456 Youtube ku fun wikipedia 88vin reddit twin 567LIVE MMLive SP666 92lottery sun86 stackoverflow

wpDiscuz
pixel