Lập trình tương thích với nhiều phiên bản khác nhau của Office (1 người xem)

[bugatino]

Chào các bạn GPE,

Tôi có viết 1 macro copy nội dung 1 range excel sang word sau đó lưu lại dưới dạng HTML. Tôi đang sử dụng excel 2013 nên khi add reference tôi add MS Word 15. Code chạy bình thường, tuy nhiên nếu sử dụng ở office version thấp hơn như 2010 chẳng hạn thì gặp lỗi do Missing Reference tới Word 15. Tôi muốn hỏi cách viết macro sao cho có thể chạy trên nhiều version khác nhau của Office, hoặc một phương pháp nào đó tự động thay đổi reference tới word ở version thấp hơn?

Cám ơn các bạn.

 

[Hai Lúa Miền Tây]

Chào các bạn GPE,

Tôi có viết 1 macro copy nội dung 1 range excel sang word sau đó lưu lại dưới dạng HTML. Tôi đang sử dụng excel 2013 nên khi add reference tôi add MS Word 15. Code chạy bình thường, tuy nhiên nếu sử dụng ở office version thấp hơn như 2010 chẳng hạn thì gặp lỗi do Missing Reference tới Word 15. Tôi muốn hỏi cách viết macro sao cho có thể chạy trên nhiều version khác nhau của Office, hoặc một phương pháp nào đó tự động thay đổi reference tới word ở version thấp hơn?

Cám ơn các bạn.

Thử khởi tạo Word mà không cần check reference như sau:

Sub test()
Dim wrd As Object
Set wrd = CreateObject("Word.Application")
wrd.Documents.Add
wrd.Visible = True

End Sub

 

[bugatino]

Tôi đã sử dụng cách trên tuy nhiên khi save dưới dạng HTML thì không đúng format, sau đó tôi add reference Word 15 thì file save ra mới đúng format HTML.