Cắt file word thành nhiều file nhỏ

      405

Nếu chúng ta gồm một tư liệu word mũm mĩm và bạn cần phân chia nó thành nhiều tư liệu nhỏ dại hơn thì hãy dành riêng vài phút phát âm chỉ dẫn này. yome.vn đang chỉ cho mình 2 phương pháp để phân tách một tư liệu thành các tài liệu dễ dãi cùng nkhô giòn độc nhất vô nhị.

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

1. Tách tài liệu Word bằng vệt ngăn cách với VBA

Txuất xắc do chia tư liệu thành phần lớn bằng cách thủ công bằng tay thì cách thức này vẫn reviews một VBA (vận dụng xây dựng cơ phiên bản vào Microsoft Office) theo dấu ngăn cách. Hãy làm theo công việc sau:

Cách 1: Nhấn bên cạnh đó nhì phím Alt và F11 để mở cửa sổ Microsoft Visual Basic.

Bước 2: Chọn Insert, chọn Module và sau đó sao chép + dán mã VBA sau vào cửa sổ bắt đầu mlàm việc.

VBA: Tách file Word thành các File word khác bằng Delimiter

Sub SplitNotes(delim As String, strFilename As String)

Dim doc As Document

Dlặng arrNotes

Dlặng I As Long

Dlặng X As Long

Dim Response As Integer

arrNotes = Split(ActiveDocument.Range, delim)

Response = MsgBox("This will split the document inlớn " & UBound(arrNotes) + 1 và " sections.Do you wish khổng lồ 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 & filename

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

End Sub

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

Cách 4: Hộp thoại Microsoft Word được lộ diện, bạn hãy nhấn Yes.

*

Chú ý:

Nhớ bảo đảm rằng đã thêm vết ngăn cách /// thân từng phần văn bạn dạng mà lại bạn có nhu cầu phân tách. Hình như bạn có thể thay đổi vết /// bởi bất kỳ vệt ngăn cách nào để đáp ứng nhu cầu nhu yếu của bản thân mình.

quý khách hàng có thể biến hóa những tư liệu “Notes” vào Sub Test để cân xứng với yêu cầu của chính bản thân mình.

Các tài liệu được bóc đã lưu vào thuộc nơi cùng với tệp gốc.

Xem thêm: Mẫu Lập Kế Hoạch Sản Xuất Bằng Excel, File Kế Hoạch Sản Xuất Bằng Excel

Quý Khách không bắt buộc thêm vệt phân làn vào thời gian cuối tệp cội, nếu khách hàng thêm thì sẽ có được một tài liệu trống sau khoản thời gian tách bóc.

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

Đây là 1 trong những vận dụng xây dựng cơ phiên bản không giống (VBA) rất có thể khiến cho bạn tách một tư liệu Word thành những tài liệu nhỏ bởi Page vào Word. Hãy làm nlỗi sau:

Bước 1: Nhấn mặt khác Alt và F11 để xuất hiện sổ Microsoft Visual Basic for Application window.

Bước 2: Chọn Insert, chọn Module cùng tiếp đến dán mã VBA tiếp sau đây vào cửa sổ new mngơi nghỉ.

Mã VBA: bóc tách tư liệu thành các tư liệu bởi 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()

Dim docMultiple As Document

Dyên ổn docSingle As Document

Dyên ổn rngPage As Range

Dlặng iCurrentPage As Integer

Dyên ổn iPageCount As Integer

Dyên strNewFileName As String

Application.ScreenUpdating = False "Makes the code run faster và reduces screen _

flicker a bit.

Set docMultiple = ActiveDocument "Work on the active sầu 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 lớn method will not work on a page

Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1

"Set the over of the range to lớn the point between the pages

rngPage.End = Selection.Start

End If

rngPage.Copy "copy the page inkhổng lồ 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 any manual page break to prevent a second blank

docSingle.Range.Find.Exeđáng yêu Findtext:="^m", ReplaceWith:=""

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

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

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

iCurrentPage = iCurrentPage + 1 "move sầu khổng lồ the next page

docSingle.Cchiến bại "cthua the new document

rngPage.Collapse wdCollapseEnd "go to the next page

Loop "go to 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


Cách 3: Sau đó chọn Run hoặc ấn nút ít F5 nhằm áp dụng VBA

Crúc ý: Các tài liệu được bóc tách sẽ tiến hành lưu vào thuộc nơi với tệp gốc.

Nhiều fan nhầm tưởng, dùng Word soạn thảo ra được một tư liệu kha khá dễ quan sát thì được coi là thành thạo. Tuy nhiên năng lực cần sử dụng Word lại nhiều hơn các bạn tưởng, bao gồm cả chiều sâu lẫn rộng lớn. Để đổi thay chuyên gia cần sử dụng Word cùng đầy niềm tin trước đa số lắp thêm tương quan cho Word hãy mua ngay cho mình trọn bộ con kiến thức: Chinch phục MOS Word 2013 cùng Nimbus với Tuyệt đỉnh Microsoft Word - Chuyên gia biên soạn thảo vnạp năng lượng bản nhé.


yome.vn-Nền tảng học tập online độc nhất vô nhị tại Việt Nam triệu tập vào cách tân và phát triển kỹ năng làm việc dành cho những người đi làm

Với sđọng mệnh: “Mang thời cơ trở nên tân tiến kĩ năng, cải tiến và phát triển công việc và nghề nghiệp tới hàng nghìn người”, đội hình phân phát triểnyome.vnvẫn với đang thao tác với đều học viện chuyên nghành, trung trọng điểm đào tạo và huấn luyện, các chuyên gia đầu ngành nhằm nghiên cứu cùng tạo lên các công tác huấn luyện và giảng dạy tự cơ bạn dạng mang đến chuyên sâu xung quanh các lĩnh vực: Tin học văn uống chống, Phân tích tài liệu, Thiết kế, Công nghệ công bố, Kinch doanh, Marketing, Quản lý dự án công trình...
50+ người sử dụng công ty lớn lớn trong vô số nghành nghề như: Vietinngân hàng, Vietcomngân hàng, Ngân hàng Đầu tư và Phát triển Việt Nam, VPhường Bank, TH True Milk, VNPT, FPT Software, Samsung SDIV, Ajinomokhổng lồ Việt Nam, Messer,…100.000+ học tập viên trên khắp Việt Nam

Tìm gọi ngay các khóa huấn luyện và đào tạo của yome.vn TẠI ĐÂY