运行时错误5981，应用程序定义或对象定义错误

Question

我正在尝试在Excel和Word中创建脚本，从Excel中的行创建Word文档。 我是基于'dotm'模板的Word文档。 使用'dotx'文件格式一切正常（并且仍然如此），但是一旦我使用Macro-Enabled，我就会得到5981运行时错误应用程序定义或对象定义的错误。

我已经在线完成了研究并尝试了在Word中启用宏，受信任位置和受信任文档的所有修复。 在尝试访问之前我尝试过DoEvent。 我需要访问'dotm'文件，因为Word中有宏我需要在打开时运行以格式化文档 。

有人可以帮我吗？ 我没有VBA的经验，而且我已经达到了我的主题。

    Set objword = GetObject(, "Word.Application")

        If objword Is Nothing Then
            Set objword = CreateObject("Word.Application")
        End If

    On Error GoTo 0

    Set objDoc = objword.Documents.Add("C:\Users\OMITTED FOR PRIVACY\Test Report.dotm")

结果...预期：Word文档创建和格式化实际：运行时错误'5981'：应用程序定义或对象定义的错误

从Test Report.dotm文件更新的代码：

Sub conditionalFormat()

    Dim oCell As Word.Cell
    Dim oColumn As Word.Column

    'First set of tables
    For intI = 2 To 5
        Set oColumn = ActiveDocument.Tables(intI).Range.Columns(3)

        For Each oCell In oColumn.Cells

            If IsNumeric(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)) Then

                If Val(oCell.Range.Text) < 55 Then
                    oCell.Shading.ForegroundPatternColor = wdColorRed
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                ElseIf Val(oCell.Range.Text) > 55 And Val(oCell.Range.Text) < 75 Then
                    oCell.Shading.ForegroundPatternColor = wdColorLightOrange
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                ElseIf Val(oCell.Range.Text) > 75 Then
                    oCell.Shading.ForegroundPatternColor = wdColorSeaGreen
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                End If
            End If

        Next
    Next intI

    'Analysis set of tables
    For intI = 8 To 28 Step 3
        Set oColumn = ActiveDocument.Tables(intI).Range.Columns(4)

        For Each oCell In oColumn.Cells

            If IsNumeric(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)) Then

                If Val(oCell.Range.Text) < 33.3 Then
                    oCell.Shading.ForegroundPatternColor = wdColorRed
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                ElseIf Val(oCell.Range.Text) > 33.3 And Val(oCell.Range.Text) < 66.6 Then
                    oCell.Shading.ForegroundPatternColor = wdColorLightOrange
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                ElseIf Val(oCell.Range.Text) > 66.6 Then
                    oCell.Shading.ForegroundPatternColor = wdColorSeaGreen
                    oCell.Range.Font.TextColor = wdColorWhite
                    oCell.Range.Font.Bold = True
                    oCell.Range.InsertAfter Text:="%"
                End If
            End If

        Next
    Next intI

End Sub

Answer 1

将ActiveDocument更改为ThisDocument 。

• ActiveDocument是具有焦点的文档（可以是用户单击的任何文档）。
• ThisDocument是此代码运行的文档。