Code VBA sao chép bảng tính Excel sang Word giữ định dạng

Nguồn bài viết: Code VBA sao chép bảng tính Excel sang Word giữ định dạng

Trong các bài viết gần đây, mình đã chia sẻ với các bạn cách sao chép bảng tính từ Word sang Excel mà vẫn giữ nguyên định dạng ban đầu hoặc ngược lại.

Để tiếp tục chủ đề đó, đồng thời mang đến cho bạn nhiều lựa chọn và linh hoạt hơn trong việc sao chép dữ liệu bảng tính, hôm nay mình sẽ tiếp tục chia sẻ một thủ thuật nhỏ khác trong việc sử dụng mã VBA, đó là sao chép bảng tính từ tệp Excel sang Word mà không cần thay đổi định dạng.

Mình nghĩ đây là một thủ thuật rất hữu ích cho những bạn thường xuyên phải làm việc với file Excel và Word!

Đọc thêm:

Mã VBA hỗ trợ sao chép bảng tính Excel sang Word giữ nguyên định dạng

+ Bước 1: Đầu tiên, bạn mở tệp Excel của mình. Tại đây, bạn mở tab Nhà phát triển => và chọn Visual Basic. Hoặc nhanh hơn, bạn nhấn tổ hợp phím Alt + F11 để mở trình soạn thảo mã VBA.

star-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (1)

+ Bước 2: Hộp thoại Microsoft Visual Basic for Applications xuất hiện, ở đây bạn nhấp vào menu Tools => và chọn References.

why-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (2)

+ Bước 3: Bạn bấm vào Microsoft Word 16 Object Library tại hộp thoại References VBAProject với phiên bản Office 2016. ( 15 với Office 2013, 14 với Office 2010, 12 với Office 2007 ).

=> Sau đó nhấn OK để tiếp tục.

copy-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (3)

+ Bước 4: Tiếp tục nhấp vào menu Insert => chọn Module.

why-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (4)

+ Bước 5: Sau đó, sao chép mã sau:

Sub EXCEL_TO_WORD ()
Phạm vi([A1], [A65536].End (3)). Thay đổi kích thước (, 4) .Copy
Với CreateObject (“Word.Application”)
.Vible = True
.Doc Documents.Add
.Selection.PasteSpecial Placement: = wdInLine, DataType: = wdPasteOLEObject
Kết thúc với
Kết thúc Sub

+ Bước 6: Và Paste vào hộp thoại Module1 (Code) như hình bên dưới.

Bây giờ, hãy điều chỉnh các thông số như vị trí của hàng / cột đã chọn, số cột cần sao chép từ ô đầu tiên đến dòng cuối cùng chứa ký tự => Cuối cùng nhấn Run để thực hiện…

sao-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (5)

… Để Excel tự động sao lưu trang tính và định dạng các ô đã chọn thành tệp Word mới của bạn.

copy-chep-bang-tinh-excel-sang-word-van-giu-dinh-dang-bang-code-vba (6)

Phần kết

Được rồi, vậy là tôi vừa hướng dẫn các bạn một số mẹo về cách thực hiện sao chép bảng tính Excel sang Word giữ nguyên định dạng ban đầu với mã VBA rất nhanh chóng và chính xác.

Và đến đây bài hướng dẫn của tôi xin tạm dừng. Hy vọng những thủ thuật nhỏ trong việc sử dụng mã VBA để sử dụng linh hoạt hai ứng dụng văn phòng này sẽ hữu ích với bạn.

Chúc may mắn !

CTV: Lương Trung – congthucexcel.com

Bài viết đạt: 5/5 sao – (Có 2 lượt đánh giá)

Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!

Những bài viết liên quan : Thủ Thuật Excel

Nguồn : congthucexcel.com

Mọi sự sao chép, trích dẫn vui lòng ghi rõ nguồn: congthucexcel.com



from congthucexcel.com https://ift.tt/wdOrDmL
via Congthucexcel.com

Nhận xét

Bài đăng phổ biến từ blog này

Cách đếm và tính tống các số chẵn, số lẻ có trên Excel

Cách tô màu giá trị MIN, MAX trên bảng tính Excel, đơn giản!

Hình nền Powerpoint màu sáng