vba中excel和word复制粘贴

先上代码：

       Application.ScreenUpdating = False '关闭屏幕刷新'
        Dim oprate_times As Integer
        Worksheets("报告生成").Range("B2:T11").Copy
        Word.Application.Documents("herui.docm").Bookmarks("输入区域").Range.Select
        Word.Selection.Paste
 
        Worksheets("报告生成").Range("T12:T15").Copy
        Word.Application.Documents("herui.docm").Bookmarks("输入区域2").Range.Select
        Word.Selection.Paste
        Application.ScreenUpdating = True 'dakai屏幕刷新'

一开始没有加前后两个屏幕刷新控制，于是常出现：

这个东西搞了我一上午，好在解决了，至于什么原因，等以后对vba再熟悉了再补上。

如果有大神看见，帮我评论一下原因。