загрузка данных из excel в word

[pingvi]

Знаю что есть много похожих тем, но ответов для себя я не нашел
по этому обращаюсь

есть код который написан в word 2007

Sub AddProperty(sPropName As String)

Dim objCustomProperties As DocumentProperties
  Dim str As Variant
  Set objCustomProperties = ActiveDocument.CustomDocumentProperties
      str= objCustomProperties("Test1").Value
   
Sub SetProperty(sPropName As String, sValue As String)
   Dim objCustomProperties As DocumentProperties
  Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
     ActiveDocument.CustomDocumentProperties("Test1").Value = "Name1"
     
End Sub

Public Function GetProperty(sPropName As String) As String
    Dim objCustomProperties As DocumentProperties
    Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
        GetProperty = objCustomProperties(sPropName).Value

End Function

я хочу создать excel в котором буду данные
XXX - в одной ячейке (A1)

как сделать так что бы name1 менялась на xxx ?
и возможно ли это сделать?

[pingvi]

ну может на источник какой полезный ссылку дадите......
ну очень хочется разобраться

[pingvi]

если кому надо то

Set Excel = CreateObject("Excel.Application") 
  Set Workbook = Excel.Workbooks.Open("C:\Users\Samsung\Desktop\1.xls") 
  Set Worksheet = Workbook.Worksheets(3) 
  ActiveDocument.CustomDocumentProperties("Test1").Value = Worksheet.Range("A1").Text 
  Excel.Quit