HƯỚNG DẪN CÁCH CẮT FILE WORD CỦA BẠN THÀNH NHIỀU FILE NHỎ, CẮT FILE WORD THÀNH NHIỀU FILE NHỎ

  -  

Nếu chúng ta có một tài liệu word béo tốt và bạn cần chia nó thành những tài liệu nhỏ hơn thì nên dành vài ba phút đọc lý giải này. 6struyenky.vn vẫn chỉ cho mình 2 cách để chia một tư liệu thành những tài liệu dễ dàng và cấp tốc nhất.Bạn đã xem: cắt file word thành các file nhỏ

1. Bóc tách tài liệu Word bởi dấu ngăn cách với VBA

Thay do chia tài liệu thành nhiều phần bằng phương pháp thủ công thì phương pháp này sẽ trình làng một VBA (ứng dụng lập trình cơ phiên bản trong Microsoft Office) theo vệt phân cách. Hãy làm cho theo các bước sau:

Bước 1: thừa nhận đồng thời hai phím alt và F11 để xuất hiện sổ Microsoft Visual Basic.Bạn đã xem: giảm file word thành các file nhỏ

Bước 2: lựa chọn Insert, chọn Module với sau đó sao chép + dán mã VBA sau vào hành lang cửa số mới mở.

Bạn đang xem: Hướng dẫn cách cắt file word của bạn thành nhiều file nhỏ, cắt file word thành nhiều file nhỏ

VBA: tách file Word thành các File word khác bởi Delimiter

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 " và UBound(arrNotes) + 1 và " sections.Do you wish to lớn proceed?", 4)

If Response = 7 Then Exit Sub

For I = LBound(arrNotes) khổng lồ 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 và filename

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

End Sub

Bước 3: lựa chọn Run hoặc nhấn nút F5 nhằm chạy.

Bước 4: vỏ hộp thoại Microsoft Word được mở ra, các bạn hãy nhấn Yes.


*

Chú ý:

Nhớ bảo đảm an toàn rằng đã thêm dấu chia cách /// giữa mỗi phần văn bản mà bạn muốn phân tách. Bên cạnh ra bạn cũng có thể thay đổi lốt /// bằng bất kỳ dấu phân làn nào để đáp ứng nhu cầu nhu mong của mình.

Bạn tất cả thể biến đổi các tư liệu “Notes” trong Sub test để tương xứng với yêu cầu của mình.

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

Đây là 1 trong ứng dụng lập trình sẵn cơ bạn dạng khác (VBA) rất có thể giúp bạn bóc tách một tư liệu Word thành các tài liệu nhỏ bằng Page vào Word. Hãy làm như sau:

Bước 1: thừa nhận đồng thời alternative text và F11 để xuất hiện sổ Microsoft Visual Basic for Application window.

Xem thêm: Thủy Hử 108 Vị Anh Hùng, Thực Sự Được Xem Là Hảo Hán, Chỉ Có 4 Người, Là Những Ai?

Bước 2: lựa chọn Insert, lựa chọn Module và kế tiếp dán mã VBA dưới đây vào cửa sổ mới mở.

Mã VBA: tách bóc tài liệu thành những tài liệu bằng Page vào 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()

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 & 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 kết thúc of the range to lớn 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 lớn prevent a second blank

docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""

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

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

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

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

docSingle.Close "close the new document

rngPage.Collapse wdCollapseEnd "go to the next page

Loop "go lớn the top of the bởi vì 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 đó chọn Run hoặc ấn nút F5 để áp dụng VBA

Chú ý: những tài liệu được bóc tách sẽ được lưu lại vào cùng nơi với tệp gốc.

Nhiều người nhầm tưởng, cần sử dụng Word biên soạn thảo ra được một tài liệu kha khá dễ quan sát thì được xem như là thành thạo. Tuy nhiên năng lực dùng Word lại nhiều hơn thế nữa bạn tưởng, kể cả chiều sâu lẫn rộng. Để trở thành chuyên viên dùng Word với tự tin trước phần đông thứ liên quan đến Word hãy tải ngay cho chính mình trọn bộ kiến thức: chinh phục MOS Word 2013 cùng Nimbus và tuyệt đỉnh công phu Microsoft Word - chuyên viên soạn thảo văn bản nhé.

Xem thêm: Cách Đổi Mật Khẩu Steam Không Bị Khóa Trade, Hướng Dẫn Thay Đổi Thông Tin Tài Khoản Pubg

6struyenky.vn-Nền tảng học online độc nhất vô nhị tại vn tập trung vào phát triển tài năng làm bài toán dành cho người đi làm
Với sứ mệnh: “Mang thời cơ phát triển kỹ năng, cải cách và phát triển nghề nghiệp tới hàng tỷ người”, đội ngũ phát triển6struyenky.vnđã với đang thao tác với hồ hết học viện, trung trung khu đào tạo, các chuyên gia đầu ngành để nghiên cứu và phân tích và tạo ra lên những chương trình đào tạo và huấn luyện từ cơ bản đến chuyên sâu xung quanh những lĩnh vực: Tin học văn phòng, phân tích dữ liệu, Thiết kế, công nghệ thông tin, gớm doanh, Marketing, thống trị dự án...50+ người tiêu dùng doanh nghiệp lớn vào nhiều lĩnh vực như: Vietinbank, Vietcombank, BIDV, VP Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomoto Việt Nam, Messer,…100.000+ học tập viên trên mọi Việt Nam

Tìm phát âm ngay các khóa học tập của 6struyenky.vn TẠI ĐÂY