[Help]Tối ưu lại Code thay thế từ Excel sang Word (1 người xem)

[quyenpv]

Do nhu cầu mục đích tạo hồ sơ pháp lý sau khi tính toán từ Excel, mình lên mạng có Search được Topic và sửa lại nhưng code chắp vá quá mong anh chị tối ưu lại code giúp em với ạ
Trong file excel sẽ có cột A dùng làm từ khóa, cột B là giá trị dùng để thay thế sang Word.
Cám ơn anh chị!

 

[quyenpv]

Các anh chị giúp em trường hợp hàm thay thế trong trường hợp chuỗi thay thế > 255 ký tự với ạ

 

[NHG]

Cũng có nhu cầu giống bạn, chuỗi >255 là tịt luôn

 

[ThangCuAnh]

Code rác quá, nhìn là oải, không muốn sữa, optimize cho bạn.
File Excel tôi down về bị lỗi, bạn up lại nhé. Trước khi up chịu khó clean code, remove các sub/function không dùng, trong các sub/function remove các dim không dùng, code chịu khó tab, canh lề, enter new line cho dễ nhìn, dễ đọc

 

[quyenpv]

Code rác quá, nhìn là oải, không muốn sữa, optimize cho bạn.
File Excel tôi down về bị lỗi, bạn up lại nhé. Trước khi up chịu khó clean code, remove các sub/function không dùng, trong các sub/function remove các dim không dùng, code chịu khó tab, canh lề, enter new line cho dễ nhìn, dễ đọc

Em gửi lại anh

 

[ThangCuAnh]

Bạn test lại thử xem có đúng ý bạn không ? Mấy cái vụ Word wiec này tôi không rành lắm.

 

[quyenpv]

Dạ cám ơn anh, code anh chạy vẫn chưa đúng ạ.
Ví dụ: Dòng B27 chiều dài chuỗi thay thế là 270 kỹ tự nhưg khi code chạy cắt còn 249 kỹ tự
Anh sửa lại giúp em với ạ

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

chunk = Mid(strReplace, ((I - 1) * 250) + 1, 250)

Đoạn code này lấy có 250 ký tự anh

 

[ThangCuAnh]

Thôi bỏ code đó đi, lằng nhằng, theo code ban đầu của bạn nên phức tạp vậy. Xin lỗi cậu lúc chiều về vội nên tôi không test kỹ.
Cậu thử lại code này xem sao

 

[quyenpv]

Cám ơn anh rất nhiều. Đánh dấu lưu lại bài ạ

 

[darknightno007]

Các anh chị giúp em trường hợp hàm thay thế trong trường hợp chuỗi thay thế > 255 ký tự với ạ

Thường thì mình sẽ làm như thế này
Vi dụ Thay thế 260 ký tự , đầu tiên thay thế 240 ký tự + 1 chuỗi X (X<15 ký tự) xong tiếp tục thay thế 20 ký tự còn lại vào chuỗi X đó. chuỗi càng dài thì cứ lặp lại hành động này.

 

[thoai]

Cám ơn anh rất nhiều. Đánh dấu lưu lại bài ạ

file chạy báo lỗi này

 

[ThangCuAnh]

Bạn vào References của VBA project, add lại reference tới Microsoft Word xxx.xx trên máy bạn.

 

[NHG]

Bạn vào References của VBA project, add lại reference tới Microsoft Word xxx.xx trên máy bạn.

Mình vẫn chưa chạy thử được là sao nhỉ

 

[thoai]

Bạn vào References của VBA project, add lại reference tới Microsoft Word xxx.xx trên máy bạn.

vẫn k được,mình chọn cái word nào!

 

[huonglien1901]

vẫn k được,mình chọn cái word nào!

Word bạn đang sử dụng là word phiên bản bao nhiêu?

 

[NHG]

Word bạn đang sử dụng là word phiên bản bao nhiêu?

2016 bạn, tải cả word và excel vào cùng một thư mục rồi

 

[ThangCuAnh]

F2, Object Browse , tìm và sửa đi bạn ơi. Dễ mà.

 

[thoai]

chỉ cụ thể đi

 

[ThangCuAnh]

Bạn up file Msword.olb trên máy bạn lên, tôi xem và sữa cho
Máy bạn office 2016 nên thư mục có thể là x:\Program Files xxx\Office 15
Chắc là có thay đổi trong properties, constants giữa các đời Office, Word....

 

[batman1]

Cũng không cần thêm References đâu. Tức nếu có Misrosoft Word XXX Object Library thì bỏ nó đi.

Sau dòng

Private Sub FindAndReplace(ByVal strFind As String, ByVal strReplace As String)

thì thêm

Const wdGoToSection = 0
Const wdGoToFirst = 1
Const wdReplaceAll = 2
Const wdFindContinue = 1

Đấy là khai báo cục bộ (Local). Nếu muốn dùng cả trong những Sub, Function khác (trong tương lai) thì khai báo toàn cục (Global) - ở đầu Module, trước tất cả các Sub, Function.

Nếu tương lai còn dùng các hằng số khác của Word thì khai báo thêm.

Khai báo là việc nên làm vì nhiều khi hằng số được dùng ở nhiều nơi trong code, ngoài ra code cũng sẽ dễ đọc rất nhiều. Con số 0 chả nói, chả gợi ý cái gì cả nhưng cái tên wdGoToSection thì nói nhiều điều.

 

[VetMini]

...Khai báo là việc nên làm vì nhiều khi hằng số được dùng ở nhiều nơi trong code, ngoài ra code cũng sẽ dễ đọc rất nhiều. Con số 0 chả nói, chả gợi ý cái gì cả nhưng cái tên wdGoToSection thì nói nhiều điều.

Nhiều người ở diễn đàn này theo tôn chỉ "code càng ngắn càng tốt". Con số 0 nói lên tôn chỉ ấy, cái tên wdGoToSection nó dài hơn đến 12 ký tự.

(*) ở diễn đàn này, cái từ "magic number" (số trên trời rớt xuống) hoàn toàn không có một ý nghĩa gì cả.

 

[batman1]

Nhiều người ở diễn đàn này theo tôn chỉ "code càng ngắn càng tốt". Con số 0 nói lên tôn chỉ ấy, cái tên wdGoToSection nó dài hơn đến 12 ký tự.

(*) ở diễn đàn này, cái từ "magic number" (số trên trời rớt xuống) hoàn toàn không có một ý nghĩa gì cả.

Cứ theo tôn chỉ ấy thì code luôn có thể rút gọn nhiều nơi, kể cả hằng lẫn cú pháp. Ngắn thì đúng thật nhưng đảm bảo là sau một thời gian thì ngay cả tác giả đọc code cũng không hiểu chỗ này có ý nghĩa gì, chỗ kia tại sao là thế. Nhìn code thấy một loạt số 0 nhưng rất có thể ý nghĩa của chúng trong mỗi ngữ cảnh lại khác nhau.

Bác không dự thi "code ngắn gọn" nhưng nhiều người thích. Họ giành được nhiều giải còn bác chỉ là khán giả "vỗ tay"?

 

[ThangCuAnh]

Để đợi bạn thoai up file .olb lên mới biết lỗi gì, có thể method Goto khai báo khác hay các constant khai báo khác name

 

[ThangCuAnh]

Mà nghĩ cũng lạ, code thì ý tưởng, code có sẵn hết, mà báo lỗi chút, kg chạy được cũng la làng, trong khi Excel, VBA IDE cung cấp sẵn hết, chỉ chịu khó search, tìm , F2...chút là ra
Thời mình bắt đầu làm coder, VN ta Internet còn kg có, lập trình mã máy, Assembly,... vẫn xong

 

[VetMini]

"vẫn xong" nhưng mà cuối cùng thì được gì?
Thời nào của ấy, hỏi được thì cứ hỏi. La làng có ai thấy mặt đâu mà sợ xấu hổ.
Thì giờ để đi kiếm tiền nơi khác không sướng hơn à?

 

[Bùi Thúy Thúy]

Do nhu cầu mục đích tạo hồ sơ pháp lý sau khi tính toán từ Excel, mình lên mạng có Search được Topic và sửa lại nhưng code chắp vá quá mong anh chị tối ưu lại code giúp em với ạ
Trong file excel sẽ có cột A dùng làm từ khóa, cột B là giá trị dùng để thay thế sang Word.
Cám ơn anh chị!

Bạn cho mình hỏi từ khóa lấy thủ công từ Word để điền sang Excel à bạn ơi?

 

[YenLV]

Thôi bỏ code đó đi, lằng nhằng, theo code ban đầu của bạn nên phức tạp vậy. Xin lỗi cậu lúc chiều về vội nên tôi không test kỹ.
Cậu thử lại code này xem sao

ThangCuAnh cho em hỏi em muốn giữ nguyên format ở trên file word chỉ thay thế nội dung text thì chỉnh như nào ạ !

 

[thkd09]

Em nhờ các bác giúp em với ạ. Em làm nhưng không thấy nó thay thế ạ.