из excel в word

[pingvi]

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

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

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.CustomDocumentProper ties("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]

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

Код:

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

[Мультипликатор]

Все молчат, потому что вопрос не ясен. Может, если поподробнее задать вопрос, то и ответ нашелся бы?

[pingvi]

принял к сведенью