自动将excel指定单元格的内容追加到满足条件的word文档中，谢谢

任我逍遥

要求：单击A2单元格，自动创建一个以A2单元格内容（即Charles）命名的word文件，同时剪切对应的备注里面即B2中内容到该word文档中，如果这个名字的文件已经存在，则直接追加内容到word文档后；同样的单击A3,自动创建“何瑞丽”命名的word文件，剪切B3中的内容到word文件中，同样如果这个名字的文件已经存在，则直接追加内容到该文档后。以下A4到An依次类推，该如何操作呢，非常感谢，对了，word文件要自动保存到d:\zzq\目录下，谢谢了。

下面的代码满足了，创建这个word文档，解决了部分问题，我想问如何在这个文件已经存在的情况下，追加内容到该word文档，而不是完全替换掉原来的内容呢，谢谢了！！
附件：单击对应单元格自动创建word文件2.zip(8.86 KB, 下载次数: 1)


Option Explicit
Sub l()
    Dim wd As Object
    Dim arr As Variant
    Dim i As Integer
    Dim wb As Object
    Dim st As Variant
   ' Dim myDoc As Word.Document
    Set wd = CreateObject("word.application")
    arr = Sheet1.Range("b2", Sheet1.[c65536].End(3))
    'end(3)中的1左2右3上4下,3相当于xlup
   
    With ActiveSheet
    For i = 1 To UBound(arr)
          If arr(i, 2) <> "是" Then
         Set wb = wd.Documents.Add
                wd.Visible = True
        wb.Range. text= arr(i, 2)   
        wb.SaveAs "D:\zzq\" & arr(i, 1) & ".doc"
        wb.Close
                Else
        End If

    Next
                End With
    wd.Quit
    Set wd = Nothing
End Sub



该贴已经同步到 任我逍遥的微博