Tách file trong word theo ký tự định sẵn

[Nhattanktnn]

Có vấn đề này rất rất cần mọi người giúp đỡ!
Hiện tại mình có file word (rất dài), cần tách ra thành nhiều file riêng biệt. Chỉ cần biết dòng nào có chữ cái "o" (chữ o chứ ko phải số 0 nhé) nằm ở đầu dòng (đầu dòng nhé, giữa dòng không tính), là tách ra một file. File đó bao gồm từ mã có chữ "o" đầu dòng đó đến kế mã có chữ "o" đầu dòng tiếp theo, rồi cứ như thế từ mã có chữ "o" tiếp theo lại tách ra file mới lấy đến mã có chữ "o" tiếp theo. Tên file lấy theo tên mã có chữ "o" đó luôn (ví dụ o0123)
Ai lướt qua thì giúp mình với nhé! Làm tay thì không xuể
Cảm ơn mọi người nhiều lắm

 

[dovanhoc84]

copy sang excel rồi tách thì đơn giản quá còn gì

 

[Nhattanktnn]

copy sang excel rồi tách thì đơn giản quá còn gì

nhưng muốn lưu file bằng file word, copy sang excel lại phải chuyển sang file word nữa lâu lắm bạn.

 

[dovanhoc84]

copy chỉ 1 lần từ word sang thôi

 

[Nhattanktnn]

copy chỉ 1 lần từ word sang thôi

bạn ơi giúp mình thêm tí nữa, bạn có thể đặt tên file sau khi tách ra bằng mã số có chữ "o" đó được không? như là "o0033" vậy đó

 

[Nhattanktnn]

Bạn ơi nếu mình muốn đổi đuôi file thì sửa thế nào, ví dụ mình không muốn lưu thành file word mà lưu thành file có đuôi ".ALL". Mình vào sửa code chỗ ".doc" thành ".all" thì khi xuất file ra nó bị lỗi font

 

[dovanhoc84]

Bạn ơi nếu mình muốn đổi đuôi file thì sửa thế nào, ví dụ mình không muốn lưu thành file word mà lưu thành file có đuôi ".ALL". Mình vào sửa code chỗ ".doc" thành ".all" thì khi xuất file ra nó bị lỗi font

chỉ có file .doc hay docx chứ làm gì có file đuôi .all ?

 

[Nhattanktnn]

chỉ có file .doc hay docx chứ làm gì có file đuôi .all ?

Tại mình không rành nên không đúng chỗ nào bạn bỏ qua nhé. chính xác mình đang làm là tách file lập trình CNC trên máy ra nhiều lệnh riêng để người ta kiểm tra từng lệnh. file gốc mình thấy nó là đuôi .all, mình mở notepad ra copy vào word để nhờ mọi người giúp. Nhưng sau khi xem lại mình thấy tách ra bằng word thì máy cnc sẽ không hiểu được lệnh đó, nên muốn đổi sang đuôi gốc .all để máy đọc được, vấn đề chuyển lại thì lỗi font, nên mình muốn làm sao chuyển ra notepad và lưu file có đuôi là .all thành nhiều file riêng rẽ như vậy là được.
tức là giờ mình muốn xuất ra notepad, lưu thành file có đuôi .all, còn nội dung và tên file rất đúng ý mình rồi
Bạn giúp được mình cảm ơn nhiều nhé, xin lỗi vì không nói rõ vấn đề từ đầu.

 

[dovanhoc84]

Tại mình không rành nên không đúng chỗ nào bạn bỏ qua nhé. chính xác mình đang làm là tách file lập trình CNC trên máy ra nhiều lệnh riêng để người ta kiểm tra từng lệnh. file gốc mình thấy nó là đuôi .all, mình mở notepad ra copy vào word để nhờ mọi người giúp. Nhưng sau khi xem lại mình thấy tách ra bằng word thì máy cnc sẽ không hiểu được lệnh đó, nên muốn đổi sang đuôi gốc .all để máy đọc được, vấn đề chuyển lại thì lỗi font, nên mình muốn làm sao chuyển ra notepad và lưu file có đuôi là .all thành nhiều file riêng rẽ như vậy là được.
tức là giờ mình muốn xuất ra notepad, lưu thành file có đuôi .all, còn nội dung và tên file rất đúng ý mình rồi
Bạn giúp được mình cảm ơn nhiều nhé, xin lỗi vì không nói rõ vấn đề từ đầu.

thử lần này xem sao

 

[Nhattanktnn]

Code chạy khá tốt bạn à, chỉ có điều đối với file dài hơn nhiều thì nó không làm việc. Mình thử sửa khai báo as interger của bạn thành as Long thì nó chạy, tuy nhiên ở file đính kèm nó chạy đến mã O1677(706201677/679) thì nó dừng lại. Bạn sửa code giúp mình với. Mà mình hỏi thêm xíu, nếu mình muốn thêm ký tự % ở đầu và cuối mỗi file nhỏ thì sửa chỗ nào (ký tự đó nó gần giống % thôi, nó là dấu hiệu mở đầu và kết thúc một lệnh lập trình, như hình mình đính kèm)

Bài đã được tự động gộp: 24/4/19

Xem lại phát hiện vấn đề file name không được có ký tự "/", vậy có chỉ lấy mỗi ký tự ví dụ "O1234" mà không lấy phần trong ngoặc được không bạn nhỉ

 

[dovanhoc84]

Code chạy khá tốt bạn à, chỉ có điều đối với file dài hơn nhiều thì nó không làm việc. Mình thử sửa khai báo as interger của bạn thành as Long thì nó chạy, tuy nhiên ở file đính kèm nó chạy đến mã O1677(706201677/679) thì nó dừng lại. Bạn sửa code giúp mình với. Mà mình hỏi thêm xíu, nếu mình muốn thêm ký tự % ở đầu và cuối mỗi file nhỏ thì sửa chỗ nào (ký tự đó nó gần giống % thôi, nó là dấu hiệu mở đầu và kết thúc một lệnh lập trình, như hình mình đính kèm)

Bài đã được tự động gộp: 24/4/19

Xem lại phát hiện vấn đề file name không được có ký tự "/", vậy có chỉ lấy mỗi ký tự ví dụ "O1234" mà không lấy phần trong ngoặc được không bạn nhỉ

Lần sau thì trình bày ngay từ đầu cho gọn vào, chứ cứ làm 1 đoạn lại đổi ý tưởng vậy mệt lắm.
vấn đề thêm cái kí tự kia, b k cho kí tự thật mà chụp ảnh thì t làm sao biết nó là kí tự gì? làm sao máy tính hiểu được?

 

[Nhattanktnn]

Lần sau thì trình bày ngay từ đầu cho gọn vào, chứ cứ làm 1 đoạn lại đổi ý tưởng vậy mệt lắm.
vấn đề thêm cái kí tự kia, b k cho kí tự thật mà chụp ảnh thì t làm sao biết nó là kí tự gì? làm sao máy tính hiểu được?

tại cái này mình làm chung, nhiều khi vấn đề mình đưa ra thiếu. xin lỗi bạn, giờ mình chắc chắn không phát sinh vấn đề gì nữa đâu. Chỉ nhờ bạn thêm cho mình ký tự % vào đầu và cuối mỗi file với nữa là được (nó nằm riêng một dòng nhé, trên cùng một dòng dưới cùng 1 dòng). Rất rất cảm ơn vì bạn đã nhiệt tình giúp đỡ

 

[dovanhoc84]

vậy mà bảo nó gần giống kí tự %

Chạy thử file này xem, tạm thời thì t chưa thấy báo lỗi gì.

 

[Nhattanktnn]

Đoạn code Tenfile = Left(Cells(MyStrow, 1), 5) mình sợ trường hợp làm những file khác tên file dài hơn 5 ký tự nên mình lấy left từ đầu tới trước dấu "(", mình sửa thành Tenfile = Left(Cells(MyStrow, 1), InStr(Cells(MyStrow, 1), "(") - 1). nhưng trường hợp cell đó không có dấu "(" thì nó lại bị lỗi. mình không biết bỏ qua lỗi bằng cách nào.
Mình đành tạo cột phụ ở c1 = IF(LEFT(A1,1)="o",LEFT(A1,IFERROR((SEARCH("(",A1)-1),LEN(A1))),"") rồi kéo hết cột C.
Sau đó Tenfile = Cells(MyStrow, 3)
Do không biết chỉnh code nên làm thủ công vậy ai ngờ nó cũng chạy đúng.. hihi.

Bài đã được tự động gộp: 24/4/19

vậy mà bảo nó gần giống kí tự %

Chạy thử file này xem, tạm thời thì t chưa thấy báo lỗi gì.

Ôi, thật tuyệt vời. Cảm ơn bạn rất nhiều. Giá như bạn cho skype hoặc fb gì để đôi lúc nhờ mấy cái code nho nhỏ thì thật tốt, nếu không thì coi như mình chưa nói gì nhé.hihi. Chúc bạn sức khỏe nhé!!! Cảm ơn nhiều...