Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard

[Toanke063]

Chào các bạn, mình có một đoạn code copy và dán dữ liệu 1 vùng Excel sang Word (A1 : D5), tuy nhiên nó chỉ copy và dán đúng với 9 lần, còn lần thứ 10 trở đi nó sẽ vẫn copy nhưng bị Copy sai dữ liệu, mình có tìm hiểu trên mạng thì đây là giới hạn của Clipboard trong window, xin hỏi có cách nào khắc phục không, hoặc có cách nào để vẫn copy được Vùng Excel sang word vẫn giữ định dạng mà không bị giới hạn Clipboard 10 lần copy
(Khi chạy mình đã để số thứ tự của bảng mầu đỏ để các bạn dễ nhận thấy)

Sub Copysangword()
Application.ScreenUpdating = True

Path = ActiveWorkbook.Path

 Dim wordApp As Object

   
    Set wordApp = CreateObject("Word.Application")
    With wordApp
        .Visible = True
        .Documents.Open (Path & "\MauWord.docx")
 
 For m = 1 To 20
 
 Range("B1").Value = m
 
 Range("A1:D5").Select
 
 Range("A1:D5").Copy

  .Selection.HomeKey Unit:=6
 
 
.Selection.Find.Text = "Bang " & m
       Do While .Selection.Find.Execute
    .Selection.Find.Replacement.Text = ""

        If .Selection.Range.Text = "Bang " & m Then
        .Selection.PasteAndFormat Type:=wdFormatOriginalFormatting
        End If
   Loop
   .Selection.HomeKey Unit:=6
   .Selection.Find.Execute "Bang " & m, , , , , , , , , "", 2
 
 
   Next m

           .ActiveDocument.SaveAs Filename:=Path & "\KetQua.docx"
 End With
End Sub