vba - 宏卡住单词

Question

我有一个非常基本的宏，如下所示:

Option Explicit

Sub ReplaceNumReviewers()
   Application.ScreenUpdating = False
   Dim objExcel As New Excel.Application
   Dim exWb As Excel.Workbook

   Set exWb = objExcel.Workbooks.Open("C:\Users\crouz\Desktop\data.xlsx")



   ThisDocument.numManager.Caption = exWb.Sheets("FeedbackData").Cells(7, 2)
   ThisDocument.numPeers.Caption = exWb.Sheets("FeedbackData").Cells(8, 2)
   ThisDocument.numDirectReports.Caption = exWb.Sheets("FeedbackData").Cells(9, 2)
   ThisDocument.numTotal.Caption = exWb.Sheets("FeedbackData").Cells(10, 2)

   exWb.Close
   Set exWb = Nothing

   Application.ScreenUpdating = True
End Sub

当我通过添加到快速访问工具栏的按钮运行它时，它会运行、替换值，然后卡住 Word 文档。我可以毫无问题地使用其他应用程序，除了 MS Word，我必须通过进程管理器终止它。

我对 VBA 和宏非常陌生，想知道是什么原因导致的？

Answer 1

在宏的末尾，您有

application.screenupdating=false  

这是一个错字吗？如果不是，请将其更改为 True 以解冻 Word。