【求助】为什么excel 用宏突然打不开WORD了

juliaying66

这个代码之前一直都可以用，但是突然有了这个提示，重装了office也是打不开 怎么回事！求助各位大神

代码如下：之前都一直没问题，突然不能用了，WORD打不开

Sub 查询()
    Application.ScreenUpdating = False
    Dim i, arr, Word As Object
    Set Word = CreateObject("Word.Application")
    Word.Visible = 1
    arr = UsedRange
    Set MyWord = Word.Documents.Open(ThisWorkbook.Path & "\" & "教材原始文件.doc")
    On Error Resume Next
    For i = 2 To UBound(arr)
        If arr(i, 1) <> "" And arr(i, 3) <> 1 Then
        Word.Selection.Find.ClearFormatting '开启搜索模式
           
        With Word.Selection.Find
        Do While .Execute(FindText:=arr(i, 1)) = True
        tim = tim + 1
        Loop
        End With
        'MsgBox ("当前文档共查找到" + Str(tim) + "个" + Text), 48, "搜索结果提示"
              
        'arr(i, 3).FormulaR1C1 = "d" '进行备注
         'Range("C2").FormulaR1C1 = Str(tim)
         'ActiveCell.FormulaR1C1 = Str(tim)
        'Range("A3").Value = "w"
        Cells(i, 3).Value = Str(tim)
          tim = 0
           Word.Selection.WholeStory '全选对象，重头查找
        End If
    Next
    Word.Documents.Close True
    Word.Application.Quit
    '[a1].CurrentRegion = arr '标识
    Set MyWord = Nothing
    MsgBox "查询完毕！", 48, "温馨提示！"
End Sub

juliaying66

word 和excel的宏都是允许的

静听溪流

1、arr = UsedRange       UsedRange前添加对象  如Sheet1.UsedRange等
2、MyWord,tim  定义数据类型

smiletwo

后面实例引用中的word 改为myword看看，没附件，自己F8+变量监视分析吧

juliaying66

静听溪流 发表于 2023-3-2 22:31
1、arr = UsedRange       UsedRange前添加对象  如Sheet1.UsedRange等
2、MyWord,tim  定义数据类型

发现问题了，保存的word的格式错误，所以无法提取，犯了一个低级错误

juliaying66

smiletwo 发表于 2023-3-3 09:02
后面实例引用中的word 改为myword看看，没附件，自己F8+变量监视分析吧

发现问题了，保存的word的格式错误，所以无法提取，犯了一个低级错误