使用宏运行时错误13将数据从excel传递到word

Question

您好我正在尝试创建一个将数据从excel传输到word的宏，最初是在Excel 2007中制作的，但现在我在Excel 2013中工作，它给了我一个不匹配的运行时错误13并且无法弄清楚如何解决它。

我检查过参考文献，但似乎问题不在那里。

Sub toWord()
    wArch = Hoja1.Range("C3").Text & Hoja1.Range("C2").Text & ".dotx"

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True

    objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

    For i = 1 To Hoja1.Range("c1").Value

        datos = Hoja1.Range("B" & i).Text
        reemp = Hoja1.Range("A" & i).Text

        With objWord.Selection.Find
            .Text = datos
            .Replacement.Text = reemp
            .Execute Replace:=2
        End With

    Next i

    objWord.Activate
End Sub

提前感谢您的帮助。

Answer 1

您收到运行时错误13，因为模板文件路径中存在错误patharch

objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0

请确保模板文件路径和名称正确无误。

见这个