Tách file word ra từng trang mỗi trang là 1 file (1 người xem)

boomxxl · 1/8/11

Mềnh gặp khó khăn.. mong được sự giúp đỡ của các bạn...

Vấn đề là mình có 1 file lớn.. nội dung trong đó là bản phân công công việc của từng người.. h mình muốn tách riêng nó ra mỗi trang thành 1 file

vd: 1 file.. nội dung công việc của 160 người... h mình muốn tách ra thành 160 file của 160 người đó...thì làm như thế nào: hic!!

mong được sự giúp đỡ sớm ... !$@!!

boomxxl · 2/8/11

không ai giúp mềnh hết... hix....

phihndhsp · 2/8/11

boomxxl đã viết:
không ai giúp mềnh hết... hix....

bạn thử gởi file đại khái đi, khoảng 5, 6 người gì cũng được để mọi người tìm cách giúp bạn

boomxxl · 2/8/11

cảm ơn bác nó đây... tách thành 3 file.. mò mãi chả biết cách... !$@!!

huuthang_bd · 2/8/11

boomxxl đã viết:
cảm ơn bác nó đây... tách thành 3 file.. mò mãi chả biết cách...

Bạn thử dùng Macro này xem.

PHP:

Sub SlpipFile()
Dim i As Long
Application.ScreenUpdating = False
ChangeFileOpenDirectory ActiveDocument.Path
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "^k"
    .Forward = True
    .Wrap = wdFindContinue
End With
ActiveDocument.Range(0, 0).Select
Do Until Selection.Find.Execute = False
    i = i + 1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=999999999, Extend:=wdExtend
    Selection.Cut
    Selection.TypeBackspace
    ActiveDocument.SaveAs "File_" & VBA.Format(i, "000") & ".doc", 0
    ActiveDocument.Close
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.Paste
    ActiveDocument.Range(0, 0).Select
Loop
    ActiveDocument.SaveAs "File_" & VBA.Format(i + 1, "000") & ".doc", 0
Application.ScreenUpdating = True
End Sub

boomxxl · 2/8/11

hic dòm đoạn code mà ngán.... không có cách nào đơn giản hơn hả bác mềnh mù code lắm..

buithinhvan77 · 2/8/11

boomxxl đã viết:
cảm ơn bác nó đây... tách thành 3 file.. mò mãi chả biết cách...

Tại sao cái này không dùng 1 danh sách mẫu tên các người nhận, địa chỉ, người mất , ngày mất, số tiền.... Rồi dùng 1 Qđ mẫu sau đó trộn văn bản có hay hơn ko? Chỉ việc ngồi in 1 loáng xong ngay!

boomxxl · 5/8/11

cái đó thì ở có 1 phòng riêng làm rồi... trộn xong mới ra mớ này nè.. h mềnh phải tách ra từng file để lưu cho từng người ..

tintam7251 · 5/8/11

Nguyên văn bởi boomxxl
hic dòm đoạn code mà ngán.... không có cách nào đơn giản hơn hả bác mềnh mù code lắm..

-Cách trả lời này dễ khiến cho người giúp bạn phiền lòng.
-Theo mình, không có cách nào đơn giản hợn là phải dùng code.
-Mình đã lấy code của bác huuthang_bd làm giúp bạn, bạn mở file bấm vào nút chia file.
-Nếu chưa thấy hiệu quả thì vào Tools/Macro/Security/Security level - Chọn mức low/OK -Đóng file và mở lại- Bấm vào nút Chia file.
-Chạy ngon rồi nhớ cám ơn bác huuthang_bd.

tangtoc1 · 19/8/11

ủa, sao em vừa ấn command thì tự file tạo ra các file khác tương ứng nhưng chưa kip save thì nó đã tự động đóng(ko lưu) tất cả lại

anh chị em xem giúp em đoạn code với, hay là có cần phải chú ý gì hơn khi dùng ko. các chế độ protect và macro em đều đã tắt hoặc đưa về low cả ùi

ptm0412 · 20/8/11

tangtoc1 đã viết:
ủa, sao em vừa ấn command thì tự file tạo ra các file khác tương ứng nhưng chưa kip save thì nó đã tự động đóng(ko lưu) tất cả lại

anh chị em xem giúp em đoạn code với, hay là có cần phải chú ý gì hơn khi dùng ko. các chế độ protect và macro em đều đã tắt hoặc đưa về low cả ùi

Bạn đã kiểm tra folder chứa file chưa mà biết nó không lưu?

tangtoc1 · 21/8/11

HIHI ừ bữa đó khi vào folder lưu thì đã thấy các file rùi, tuy nhiên còn vấn đề tự tắt hết các file sau khi làm xong thì chưa hiểu lắm

boomxxl · 12/9/11

tintam7251 đã viết:
-Cách trả lời này dễ khiến cho người giúp bạn phiền lòng.
-Theo mình, không có cách nào đơn giản hợn là phải dùng code.
-Mình đã lấy code của bác huuthang_bd làm giúp bạn, bạn mở file bấm vào nút chia file.
-Nếu chưa thấy hiệu quả thì vào Tools/Macro/Security/Security level - Chọn mức low/OK -Đóng file và mở lại- Bấm vào nút Chia file.
-Chạy ngon rồi nhớ cám ơn bác huuthang_bd.

Tại mình không rành thiệt...
nhưng h mình muốn chạy thì như thế nào bác... code mù thiệt á..

cảm ơn bác ấy rất nhiều ấy chứ...
nhưng bây h làm sao đưa vào file word và chạy được bác?...

mềnh mò thêm 1 buổi thì add vào được nhưng vẫn chưa hiểu nhiều lắm... nhưng sao khi tách file ra nó mất chữ cuối... và nhảy thêm 1 trang trắng nữa...

vậy.. có file mình import ra rồi.. sao này muốn đưa vào văn bản khác thì nó cũng chay tương tự hay có thiết lập j phức tạp nữa hok... mò tý thấy thích mà ngại quá.. khó bà cố...

bạn có thể chỉ mình từng công đoạn đưa vào file word được không?

làm sao dời cái command buton ra chỗ khác, với lại muốn làm ở những văn bản khác thì ta phải thực hiện những công đoạn nào bác...

tintam7251 · 12/9/11

1. Muốn dời Command Button, bạn làm như sau:
-Vào View/Toolbars/Control ToolBox Bấm vào Design Mode ( nút ở góc trái trên)
-Kích phải vào CB chọn Format Control/Layout/ In front of text/OK
-Sau đó bạn có thể kéo CB đến vị trí bất kỳ.
2. Muốn sử dụng cho văn bản khác, bạn copy văn bản mới đó vào file, đặt file vào thư mục khác và bấm CB.

boomxxl · 12/9/11

đã pm inbox bác... add nick mình với...tks bác

mà sẵn bác chỉ mềnh làm sao cho nó tách ra chỉ từng trang từng trang thoy....

cái chữ i trong code có nghĩa là 1 trang, rồi tách ra trang tiếp theo thì i+1 tức là trang 2, và 3 thì cứ thế.. phải hem..

sao đằng này nó tách ra 1 lần 2 trang... trang trắng không cần thiết....

nhưng sau này có văn bản cần tách 2 trang ra 1 file thì i lúc này có nghĩa là i = i+2 đúng không bác... $-\\/.$ $-\\/.$

tintam7251 · 12/9/11

Bạn tham khảo theo đường dẫn sau:
https://nthkmf.wordpress.com/tag/sp...ocuments-using-chosen-delimiter-and-filename/

boomxxl · 13/9/11

Mã:

Option Explicit
Sub SlpipFile()
Dim i As Long
Application.ScreenUpdating = False
ChangeFileOpenDirectory ActiveDocument.Path
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "^k"
    .Forward = True
    .Wrap = wdFindContinue
End With
ActiveDocument.Range(0, 0).Select
Do Until Selection.Find.Execute = False
    i = i + 1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=999999999, Extend:=wdExtend
    Selection.Cut
    ActiveDocument.SaveAs "File_" & VBA.Format(i, "000") & ".doc", 0
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.Paste
    ActiveDocument.Range(0, 0).Select
Loop
    ActiveDocument.SaveAs "File_" & VBA.Format(i + 1, "000") & ".doc", 0
Application.Quit
Application.ScreenUpdating = True
End Sub

mềnh cày đặt như vậy cho file này.. nhưng sao không hiểu nó không tách ra được nữa..

boomxxl · 26/10/11

hix bác nào giúp mình với... kiếm không ra tài liệu nào hướng dẫn vụ này hết..

SoiBien · 26/10/11

giúp mềnh này

bạn xem file mềnh làm hộ bạn nha :

bấm tổ hợp 3 phím sau để thực hiện : Ctrl + Alt + /
(giữ phím Ctrl, rồi giữ tiếp phím Alt, rồi bấm phím / , phím / ở bên phần các phím chữ, không phải bên phần các phím số đâu nha bạn)

Muốn sử dụng lại, lần sau bạn cứ mở file này lên, xoá hết nội dung đi, copy toàn bộ nội dung từ file mới sang rồi lại nhấn 3 cái phím ở trên, thế thôi.

Bạn chú ý mỗi tháng nên tạo riêng một thư mục nha, như vậy dễ quản lý hơn.

bye bye mềnh nha mềnh --=0

boomxxl · 7/11/11

để mai mềnh làm thử h không ở chỗ làm... tks bác trước..

hix hay quá bác..... cảm ơn bác nhiều ra được cả cái tên luôn... mềnh choáng mấy s luôn....

mà sao mềnh chép cái khác vô thì nó báo lỗi... debug ra dòng này.....

"File_" & VBA.Format(i, "000") & "_" & Mid(Selection.Text, 10, Len(Selection.Text) - 11) & ".doc"

bác giúp luôn cho trót...

mà học cái này ở đâu vậy bác.. mềnh muốn học.. nó hay quá..

Tách file word ra từng trang mỗi trang là 1 file (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

File đính kèm

Chuyên gia GPE

Thành viên mới

Thành viên thường trực

Thành viên mới

Thành viên thường trực

File đính kèm

Thành viên mới

Bad Excel Member

Thành viên mới

Thành viên mới

Thành viên thường trực

Thành viên mới

Thành viên thường trực

Thành viên mới

File đính kèm

Thành viên mới

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Đếm ngược thời gian