Kết quả tìm kiếm

@thoai Bạn cần xuất table sang Word kiểu gì? 1- Xuất 1 bảng có địa chỉ cụ thể trong file Excel vào 1 nơi cụ thể chuẩn bị sẵn trong file Word. 2- Xuất tất cả các bảng có trong file Excel vào cùng 1 nơi cụ thể chuẩn bị sẵn trong file Word. ... (ý của bạn) Nếu có file mẫu thì dễ code

Bạn không thể nhờ người khác giúp với cách như vậy. Tôi nhớ rằng đã nhắc bạn rồi nên giờ tôi không nhắc nữa. 1591805824 Tôi chưa làm việc với hình nên không thể trả lời bạn được

Tôi chỉnh sửa nhiều chỗ trong Autofit chiều cao dòng và xuất ra Word. Trong đó, xuất ra Word có 3 Sub. Các bạn tải file BC của bạn tuan16 về chạy thử với các lưu ý: 1. Autofit: cần chuẩn bị cột phụ như trong file và khai báo cột phụ ở gần đầu sub, chỗ: ChrCol = "R" 'Khai báo cot phu de AutoFit...

Bạn xem lại cái code bạn sưu tầm, bạn chạy thử nó chưa?. Tôi chọn 1 range ví dụ từ A1:J50 thì chạy xong nó merge cả range đó luôn với giá trị là của cell A1 nguồn. Nói cho bạn biết thêm: tôi cũng cố tìm hiểu các nguồn bằng tiếng Anh, dù trình tiếng Anh của tôi như hạch, thì có 2 phương pháp để...

Được chứ. Thêm đoạn code sau vào gần cuối Dim Hder As String, Fter As String Hder = Range("O1"): Fter = Range("O2") 'Thay cell O1, O2 bằng cel khác tùy ý bạn With wDoc With .ActiveWindow .ActivePane.View.SeekView = wdSeekCurrentPageHeader...

Ờ. Nếu bạn ấy làm được code dùng với mọi cấu trúc văn bản thì hay quá. Tôi thì chỉ cố làm theo cấu trúc chung đến đó thôi, còn nếu cần gì nữa thì tùy biến code hoặc gọn nhất là lấy con chuột kéo chỉnh sơ chiều rộng các table của file Word là hoàn chỉnh

Thì tôi đã giải thích rồi đó: Lỗi giao tiếp giữa Excel và Word

Lỗi giao tiếp giữa Excel và Word khi dùng cách khai báo Word.Application muộn. Bạn thử đóng hết các cửa sổ Word và Excel rồi chạy lại lệnh xem có bị lỗi nữa không. Nếu vẫn lỗi bạn bỏ đoạn đó đi, tôi chỉ muốn thử kéo các table của Word sang bên trái 1 tí thôi, không cần thiết lắm.

Chỗ đó khi tôi chạy thỉnh thoảng bị lỗi. Bạn thêm câu lệnh On Error Resume Next trước đoạn định dạng lề trang in đó, và câu On Error Goto 0 ngay sau đoạn đó. Tác dụng là nếu nó định dạng được thì tốt, không thì phải tự làm bằng tay vậy. Tôi cũng chẳng biết vì sao lỗi, nhưng thường xảy ra khi...

Báo thế nào bạn? Bạn muốn giúp thì đừng kiệm lời, nói cho rõ tình trạng vào! Cần thiết thì chụp màn hình post lên.

Tôi sửa lại code rồi. Bạn đem về chạy thử xem. Văn bản của bạn ở cột nào cũng được Sub ExportExcel2Word_AllF() Dim DataC As Long, Tg Dim dem As Long, EndR As Long, EndC As Long Dim objRange, objTable Dim wDoc, aWord Dim FCol As Long, LCol As Long, i As Long Const...

Những năm trước tổ chức trúng y dịp sinh nhật con gái nên không tham dự được. Năm nay trễ hơn, chắc mình sẽ thu xếp tham dự, nhưng băn khoăn chỗ dịch covid vẫn còn, gặp gỡ giao lưu toàn người lạ dễ dính corona lắm. P/S: Góp ý chỗ QUOTE bên trên - 02/07/2006-02/07/2020 chứ mấy bạn. Sơ suất về...

Không biết bạn à, vì nhu cầu tôi chưa tới đó. Thường thì khi tôi cần làm gì thì tôi mới đi tìm hiểu. Search tiếng Việt không có thì bằng tiếng Anh, thế nào rồi cũng có. Tuy nhiên dùng VBA Excel làm việc với Word mệt lắm vì không rành. 1591254502 Tôi tùy biến thì chạy được, tất nhiên đó là khi...

Bạn chạy file tôi gửi hay chép vào file bạn để chạy? file tôi không lỗi, dưới đây là đính kèm kết quả. LƯU Ý cấu trúc chỗ Số thứ tự

Tôi gửi lại file, có chỉnh sửa vài chỗ trong code

Bạn suy nghĩ đi. Cấu trúc VB của chủ topic với của bạn trên Excel khác nhau chỗ nào. Ở trên, dù chưa xem file của bạn tôi đã nhắc. Tuy nhiên tôi cũng nói rồi, việc này cũng xương lắm, không chắc đúng với mọi văn bản. Đây là file tôi làm lại theo file bạn gửi. Sheet copy là để test nhanh

Bạn có phải là chủ topic đâu. Bạn xem file, xem cấu trúc văn bản rồi làm giống thế đi

Bạn tải file này về rồi chép code sang file của bạn. Khi chạy nếu báo lỗi thì là do chưa chọn thư viện MS Word nên không tương tác với Word được. Gặp lỗi này, tại cửa sổ code, vào Tools/References thấy MISSING Microsoft Word gì đó thì bỏ chọn và kéo xuống kiếm chọn vào Microsoft Word phiên bản...

Bạn phải chịu khó debug code chứ. Chọn dòng nào đó cần debug bấm F9 để đến đó thì dừng code, từ đó trở đi bấm F8 để chạy từng bước dò xem lỗi chỗ nào.

Xuất PDF vừa lâu vừa xấu. Mình có code xuất sang Word nhưng dùng cho mẫu của bạn lại chưa hoàn chỉnh lắm. Để mình xem chỉnh sửa lại rồi gửi cho