Cắt File Word Thành Nhiều File Nhỏ

Nếu chúng ta bao gồm một tài liệu word béo phệ và bạn cần phân chia nó thành những tài liệu nhỏ tuổi hơn thì hãy dành vài phút ít phát âm lí giải này. nghiencongnghe.org đang chỉ cho chính mình 2 phương pháp để chia một tư liệu thành nhiều tài liệu thuận tiện và nhanh tốt nhất.Quý khách hàng đã xem: Cắt file word thành các file nhỏ

1. Tách tư liệu Word bởi vết ngăn cách với VBA

Ttuyệt vì chưng phân chia tài liệu thành đa phần bằng phương pháp bằng tay thì cách thức này sẽ reviews một VBA (áp dụng thiết kế cơ bạn dạng trong Microsoft Office) theo vết chia cách. Hãy tuân theo quá trình sau:

Cách 1: Nhấn đôi khi hai phím Alt và F11 nhằm xuất hiện sổ Microsoft Visual Basic.

Bạn đang xem: Cắt file word thành nhiều file nhỏ

Bước 2: Chọn Insert, chọn Module cùng kế tiếp coppy + dán mã VBA sau vào hành lang cửa số mới mlàm việc.

VBA: Tách tệp tin Word thành nhiều File word khác bằng Delimiter

Sub SplitNotes(delyên ổn As String, strFilename As String)

Dyên ổn doc As Document

Dyên arrNotes

Dlặng I As Long

Dyên ổn X As Long

Dyên Response As Integer

arrNotes = Split(ActiveDocument.Range, delim)

Response = MsgBox("This will split the document into lớn " & UBound(arrNotes) + 1 và " sections.Do you wish to lớn 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 và "" và strFilename & Format(X, "000")

doc.Cchiến bại True

End If

Next I

End Sub

Sub test()

"delimiter và filename

SplitNotes "https:///", "Notes "

End Sub

Cách 3: Chọn Run hoặc nhận nút F5 nhằm chạy.

Bước 4: Hộp thoại Microsoft Word được xuất hiện thêm, bạn hãy dấn Yes.


*

Chú ý:

Nhớ bảo vệ rằng đã thêm lốt chia cách /// thân mỗi phần vnạp năng lượng phiên bản nhưng bạn muốn phân bóc. Hình như bạn có thể biến hóa vệt /// bởi bất kỳ dấu phân cách như thế nào để thỏa mãn nhu cầu nhu yếu của chính bản thân mình.

quý khách rất có thể chuyển đổi những tài liệu “Notes” vào Sub Test để cân xứng cùng với nhu yếu của chính mình.

Quý khách hàng ko phải thêm dấu phân cách vào thời gian cuối tệp cội, nếu bạn thêm thì sẽ có một tài liệu trống sau khi tách bóc.

Xem thêm: Cách Chèn, Xóa Chữ Chìm Trong Word 2007 2010 2003 2013 2016, Hướng Dẫn Xóa Chữ Chìm Trong Word

2. Tách tài liệu Word bằng Page cùng với VBA

Đây là một trong những vận dụng xây dựng cơ phiên bản khác (VBA) hoàn toàn có thể giúp bạn tách một tư liệu Word thành những tư liệu nhỏ tuổi bởi Page trong Word. Hãy làm cho như sau:

Cách 1: Nhấn đồng thời Alt cùng F11 để xuất hiện sổ Microsoft Visual Basic for Application window.

Cách 2: Chọn Insert, lựa chọn Module với tiếp đến dán mã VBA tiếp sau đây vào hành lang cửa số bắt đầu mnghỉ ngơi.

Mã VBA: bóc tách tài liệu thành các tài liệu bằng Page trong Word

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

Sub SplitIntoPages()

Dyên ổn docMultiple As Document

Dyên ổn docSingle As Document

Dim rngPage As Range

Dlặng iCurrentPage As Integer

Dlặng iPageCount As Integer

Dlặng 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 over of the range to the point between the pages

rngPage.End = Selection.Start

End If

rngPage.Copy "copy the page inlớn the Windows clipboard

Set docSingle = Documents.Add "create a new document

docSingle.Range.Paste "paste the clipboard contents to lớn the new document

"remove sầu any manual page break khổng lồ prevent a second blank

docSingle.Range.Find.Exedễ thương Findtext:="^m", ReplaceWith:=""

"build a new sequentially-numbered file name based on the original multi-paged file name và path

strNewFileName = Replace(docMultiple.FullName, ".doc", "_" và Right$("000" và iCurrentPage, 4) & ".doc")

docSingle.SaveAs strNewFileName "save sầu the new single-paged document

iCurrentPage = iCurrentPage + 1 "move to lớn the next page

docSingle.Cthua "cthảm bại the new document

rngPage.Collapse wdCollapseEnd "go to lớn the next page

Loop "go khổng lồ the top of the vì chưng loop

Application.ScreenUpdating = True "restore the screen updating

"Destroy the objects.

Set docMultiple = Nothing

Set docSingle = Nothing

Set rngPage = Nothing

End Sub

Bước 3: Sau đó lựa chọn Run hoặc ấn nút ít F5 để áp dụng VBA

Crúc ý: Các tài liệu được tách bóc sẽ tiến hành giữ vào cùng vị trí với tệp cội.

phần lớn fan nhầm tưởng, sử dụng Word biên soạn thảo ra được một tài liệu kha khá dễ nhìn thì được xem như là thạo. Tuy nhiên tài năng dùng Word lại nhiều hơn thế các bạn tưởng, kể cả chiều sâu lẫn rộng. Để trở thành Chuyên Viên sử dụng Word cùng đầy niềm tin trước đều thiết bị liên quan cho Word hãy cài đặt ngay lập tức cho khách hàng trọn bộ con kiến thức: Chinh phục MOS Word 2013 cùng Nimbus cùng Tuyệt đỉnh Microsoft Word - Chuyên ổn gia biên soạn thảo vnạp năng lượng bạn dạng nhé.

nghiencongnghe.org-Nền tảng học online tuyệt nhất trên nước ta tập trung vào phát triển tài năng thao tác dành riêng cho người đi làm
Với sđọng mệnh: “Mang cơ hội cải tiến và phát triển năng lực, trở nên tân tiến nghề nghiệp cho tới hàng ngàn người”, lực lượng phát triểnnghiencongnghe.orgsẽ cùng sẽ thao tác làm việc cùng với hầu hết học viện chuyên nghành, trung trung khu đào tạo và huấn luyện, những Chuyên Viên đầu ngành nhằm nghiên cứu cùng xuất bản lên những lịch trình huấn luyện từ bỏ cơ bản mang lại chuyên sâu xung quanh những lĩnh vực: Tin học tập vnạp năng lượng chống, Phân tích tài liệu, Thiết kế, Công nghệ thông tin, Kinh doanh, Marketing, Quản lý dự án công trình...50+ người tiêu dùng công ty lớn lớn trong vô số nghành như: Vietinbank, Vietcombank, Ngân hàng Đầu tư và Phát triển Việt Nam, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomokhổng lồ đất nước hình chữ S, Messer,…100.000+ học viên trên khắp Việt Nam

Tìm đọc ngay những khóa đào tạo của nghiencongnghe.org TẠI ĐÂY