将数据从excel传递到具有macros运行时错误13的单词

嗨我想创build一个macros，将数据从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，因为模板文件pathpatharch存在错误

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

请确保模板文件path和名称是正确的。

看到这个