vba - 宏卡住单词

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

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和宏非常陌生，想知道是什么原因引起的？

最佳答案

在宏的末尾，

application.screenupdating=false

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

关于vba - 宏卡住单词，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/29350122/