【求助】excel 生存word报告的代码没办法指定保存路径 5555~

众苦永寂

第一次发帖求助，希望能得到大神帮助！！
想借助VBA实现办公自动化，但是代码只是半知半懂。我想实现将文档另存为到“D:\贷款资料\客户名称\贷款审批表.doc” （客户名称需调用单元格）。
  到论坛找到大神的代码，自己修改了部分后，可以运行。但是只能保存到当前文件夹，一修改就报错。因为自己刚刚接触VBA，虽然连蒙带猜可以看懂代码的意思，但找错误的原因就真找不出了。
自己能想到的方法都试尽了，摸索了2小时也没有解决。只能求助各位大神了。

谢谢各位了！！         大神的原版代码如下：

Sub yy()

  Dim d As Object

  Dim wordapp As Object

  Dim mydoc As Word.Document

  Dim mytab As Word.Table

  Dim i%, j%

  Dim mypath$, myname$

  Dim arr, brr, crr(), vs

  Application.ScreenUpdating = False

  Application.DisplayAlerts = False

  mypath = ThisWorkbook.Path & "\"

  Set wordapp = CreateObject("word.application")

With Worksheets("数据")

    r = .Cells(.Rows.Count, 4).End(xlUp).Row

    arr = .Range("a2:x" & r)

    For i = 1 To UBound(arr)

    Set mydoc = wordapp.Documents.Open(mypath & "模板.docx")

       With mydoc

      .Fields(1).Result.Text = arr(i, 2)

      .Fields(2).Result.Text = arr(i, 7)

      .Fields(3).Result.Text = arr(i, 8)

      .Fields(4).Result.Text = arr(i, 9)

      .Fields(5).Result.Text = arr(i, 6)

      .Fields(6).Result.Text = arr(i, 10)

      .Fields(7).Result.Text = arr(i, 11)

      .Fields(8).Result.Text = arr(i, 4)

      .Fields(9).Result.Text = arr(i, 12)

      .Fields(10).Result.Text = arr(i, 13)

      .SaveAs Filename:=mypath & arr(i, 2) & ".docx"

      .Close

      End With

     Set mydoc = Nothing

    Next

  End With

  wordapp.Quit

End Sub

众苦永寂

还想请教下各位大神，像我附件中的案例，word简单引用excel数据，是否只能像我这样一个一个数据的映射呢？     邮件合并的功能我知道，但是还有其他电脑小白要用，所以不考虑邮件合并

众苦永寂

有没有人来帮帮忙啊