Nhờ các bác convert to text của nhiều bảng nhỏ trong file word

[trungtamcnc]

Em có các đề thi trắc nghiệm, sau khi trộn thì phần đáp án được cố định trong các bảng. Em nhờ các bác chuyển hộ em nội dung trong các bảng đó ra text một các đồng loạt ạ. Em xin cảm ơn nhiều!

 

[befaint]

Copy bên Word
Mở Notepad, dán vào, rồi lại copy
Tạo trang Word trắng, rồi dán vào.
Replace các Tab ngắn thành Tab dài hơn để cho đẹp.
Oánh dấu lại các đáp án.
Xong phim.

 

[VetMini]

Copy bên Word
...
Xong phim.
...

Xong sao được. Người ta nhờ làm giùm chứ có hỏi cách làm đâu.

 

[batman1]

Bạn thử như sau: mở tập tin "Xoa ... " -> nhấn tổ hợp phím Alt + F11 -> chọn Project (Xoa ...) -> menu Insert -> Module -> dan code sau vào Module mới thêm -> chạy code TablesToText

Sub TablesToText()
Dim tabl As Table
    For Each tabl In ActiveDocument.Tables
        tabl.ConvertToText wdSeparateByTabs
    Next
End Sub

 

[batman1]

Xong sao được. Người ta nhờ làm giùm chứ có hỏi cách làm đâu.

Theo tôi chưa xong phim nhưng vì lý do khác. Nếu sao chép sang notepad thì có nghĩa mất hết định dạng: chữ đậm, nghiêng, mầu chữ. Và nhọc nhất là sau đó phải gõ lại tất cả các công thức hóa học - công thức đang đẹp trở thành xấu xí.

Còn nếu có 50 bảng và (bôi đen bảng + copy + paste sang notepad + bôi đen + copy + paste về lại word) * 50 lần thì chết mệt vì số lần thao tác.

 

[huuthang_bd]

sau khi trộn thì phần đáp án được cố định trong các bảng

Theo em thì các anh nên giải quyết vấn đề từ gốc.

 

[batman1]

..............

 

[trungtamcnc]

Theo em thì các anh nên giải quyết vấn đề từ gốc.

Do nó được xuất trong phần mềm trộn đề ra ạ!

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

Cảm ơn các bác đã tư vấn, giúp em cả về mặt kiến thức và cả kỹ thuật đặt câu hỏi.

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

Bạn thử như sau: mở tập tin "Xoa ... " -> nhấn tổ hợp phím Alt + F11 -> chọn Project (Xoa ...) -> menu Insert -> Module -> dan code sau vào Module mới thêm -> chạy code TablesToText

Sub TablesToText()
Dim tabl As Table
    For Each tabl In ActiveDocument.Tables
        tabl.ConvertToText wdSeparateByTabs
    Next
End Sub

Rất chuẩn rồi ạ! Cảm ơn bác nhiều.