求助vba过不去，提示运行错误，

Question

我在桌面文件夹内建立了一个excel命名合同数据，还有一个word文档命名为合同模板，想要让excel中的数据自动填写到word里，但是在写excel的vba编写代码时，在FileCopy p & "合同模板.doc", p & "\合同数据\" & nm这一行就无法运行了，求高人指点，以下为代码 Sub 批量生成word文档() p = ThisWorkbook.Path & "\" g = InputBox("2:", "开始行号") e = InputBox("5:", "结束行号") Set wp = CreateObject("word.application") For r = s To e nm = Cells(r, 2) & ".doc" FileCopy p & "合同模板.doc", p & "\合同数据\" & nm With wp .Visible = True .Documents.Open p & "\合同数据\" & nm For c = 1 To 3 '数据列数' Do While .Selection.Find.Execute("【" & c & "】") .Selection.Text = Cells(r, c).Text Loop Next .Documents.Save End With Next Set wp = Nothing End Sub

Answer 1

重新发布一下代码，通过插入代码段按钮插入。