Xin vui mừng nhập hệ trọng email đến thông tin tài khoản của doanh nghiệp. Một mã xác minh này sẽ được gửi cho cho mình. Một khi chúng ta đã nhận được được mã xác minch, các bạn sẽ có thể chọn 1 password new cho thông tin tài khoản của khách hàng.Đăng ký kết
*

*

Làm cầm cố như thế nào nhằm phân tách tư liệu thành nhiều tài liệu trong word?

Nếu các bạn gồm một tư liệu word to con mà bạn phải tạo thành nhiều tài liệu, hãy dành riêng vài ba phút ít để gọi trả lời này. Hướng dẫn này vẫn chỉ cho bạn hai phương pháp để chia một tài liệu thành các tư liệu.You watching: Tách file word ra từng trang mỗi trang là 1 file

Tách tư liệu Word bằng vết phân cách được chỉ định cùng với VBA

Tgiỏi bởi phân tách tư liệu thành những tư liệu Theo phong cách bằng tay thủ công, phương thức này đang trình làng một VBA nhằm phân tách tài liệu Word theo lốt phân cách được chỉ định vào Word. Vui lòng làm như sau:

1. thừa nhận Alt + F11 những phím với nhau nhằm xuất hiện sổ Microsoft cachtrongrausach.vnsual Basic for Application;

2. Nhấp chuột Chèn > Mô-đun, cùng sau đó dán mã VBA bên dưới vào hành lang cửa số Mô-đun mở bắt đầu.

Bạn đang xem: Cách tách 1 trang trong word

VBA: Chia tài liệu Word thành những tư liệu bằng dấu phân cách

Sub SplitNotes(delyên ổn As String, strFilename As String)Dim doc As DocumentDyên ổn arrNotesDyên ổn I As LongDyên ổn X As LongDim Response As IntegerarrNotes = Split(ActiveDocument.Range, delim)Response = MsgBox("This will split the document inkhổng lồ " & UBound(arrNotes) + 1 & " sections.Do you wish to lớn proceed?", 4)If Response = 7 Then Exit SubFor I = LBound(arrNotes) To UBound(arrNotes)If Trim(arrNotes(I)) "" ThenX = X + 1Set doc = Documents.Adddoc.Range = arrNotes(I)doc.SaveAs ThisDocument.Path & "" & strFilename & Format(X, "000")doc.Cthua trận TrueEnd IfNext IEnd SubSub test()"delimiter & filenameSplitNotes "https:///", "Notes "End Sub3. Sau đó nhấp vào chạy hoặc nhấn phím F5 để vận dụng VBA.


4. Trong tư liệu Microsoft Word chỉ ra, vui mừng nhấp vào nút Có để tiếp tục.


*

Lưu ý: (1) Đảm bảo thêm vệt phân cách của công ty giống như "https:///" trong bài bình chọn phú đối với tài liệu thân mỗi phần văn uống bản mà bạn muốn bóc tách biệt. Ngoài ra, bạn cũng có thể biến đổi "https:///" đến bất kỳ dấu ngăn cách nào để đáp ứng nhu yếu của khách hàng. (2) Quý Khách hoàn toàn có thể đổi khác những tài liệu "Ghi chú" trong bài bác kiểm tra prúc nhằm cân xứng cùng với nhu cầu của bạn. (3) Và những tài liệu bóc tách sẽ tiến hành lưu giữ vào cùng một chỗ với tệp nơi bắt đầu. (4) Quý khách hàng không đề xuất thêm lốt chia cách vào thời điểm cuối tệp nơi bắt đầu, nếu như khách hàng có tác dụng vậy, sẽ sở hữu một tư liệu trống sau thời điểm bóc tách.

Chia tài liệu Word theo từng trang bởi VBA

Đây là một trong VBA không giống sẽ giúp bạn nhanh chóng chia một tư liệu Word thành nhiều trang vào Word. Vui lòng làm nlỗi sau:

1. thừa nhận Alt + F11 các phím với nhau để mở cửa sổ Microsoft cachtrongrausach.vnsual Basic for Application;

2. Nhấp chuột Chèn > Mô-đun, với kế tiếp dán mã VBA dưới vào hành lang cửa số Mô-đun mlàm cachtrongrausach.vnệc mới.

VBA: Chia tài liệu thành những tư liệu theo trang trong Word


Sub SplitIntoPages()Dlặng docMultiple As DocumentDlặng docSingle As DocumentDlặng rngPage As RangeDyên ổn iCurrentPage As IntegerDyên ổn iPageCount As IntegerDyên strNewFileName As StringApplication.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 objectiCurrentPage = 1"get the document"s page countiPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)Do Until iCurrentPage > iPageCountIf iCurrentPage = iPageCount ThenrngPage.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 pageSelection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1"Set the end of the range to lớn the point between the pagesrngPage.End = Selection.StartEnd IfrngPage.Copy "copy the page into lớn the Windows clipboardSet docSingle = Documents.Add "create a new documentdocSingle.Range.Paste "paste the clipboard contents to lớn the new document"remove any manual page break to lớn prevent a second blankdocSingle.Range.Find.Exeđáng yêu Findtext:="^m", ReplaceWith:="""build a new sequentially-numbered tệp tin name based on the original multi-paged file name và pathstrNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")docSingle.SaveAs strNewFileName "save sầu the new single-paged documentiCurrentPage = iCurrentPage + 1 "move khổng lồ the next pagedocSingle.Cthảm bại "cthua trận the new documentrngPage.Collapse wdCollapseEnd "go lớn the next pageLoop "go lớn the top of the bởi loopApplication.ScreenUpdating = True "restore the screen updating"Destroy the objects.Set docMultiple = NothingSet docSingle = NothingSet rngPage = NothingEnd Sub 3. Sau đó nhấn vào chạy nút ít hoặc bấm F5 để áp dụng VBA.See more: Cách Đào Ethereum Miễn Phí Hằng Ngày, Lam The Nao De Dao Ethereum Free

Lưu ý: Các tài liệu tách bóc sẽ được lưu vào và một nơi cùng với tệp gốc.

Nếu bạn đang thiết lập Kutools cho Word, bạn cũng có thể áp dụng chẻ tất cả tính năng dễ dãi phân chia một tư 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 đề nghị vào Word ..

Xem thêm: Bóng Đá Tây Ba Nha : Tin Tức, Kết Quả, Bxh La Liga, Bóng Đá Tây Ban Nha

Kutools mang đến Word là một phần bổ trợ tiện lợi sẽ giúp đỡ các bạn thuận lợi hơn trong các bước cùng cải thiện năng lực cách xử trí tài liệu vnạp năng lượng bạn dạng. Dùng thử miễn mức giá trong 60 ngày! Lấy nó ngay!

1.Nhấp chuột Kutools Plus > chẻ nhằm được cho phép chẻ nhân kiệt này.