Doc Property как?

Sub AddProperty(sPropName As String)
 
Dim objCustomProperties As DocumentProperties
  Dim str As Variant
  Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
   'Попытка прочитать свойство с заданным именем
  str = objCustomProperties("Test1").Value
  str = objCustomProperties("Test2").Value
 
End Sub
 
 
Public Function GetProperty(sPropName As String) As String
    Dim objCustomProperties As DocumentProperties
    Set objCustomProperties = ActiveDocument.CustomDocumentProperties
  
 
    GetProperty = objCustomProperties(sPropName).Value
 
 
End Function
 
Sub Excel2Word()
  
  'Запуск Excel:
  Set Excel = CreateObject("Excel.Application")
  'Открытие файла:
  Set Workbook = Excel.Workbooks.Open("D:\12.xls")
   'Третий лист:
  Set Worksheet = Workbook.Worksheets(1)
  
  'Текст ячеек
        ActiveDocument.CustomDocumentProperties("Test1").Value = Worksheet.Range("A2").Text
        ActiveDocument.Fields.Update
        ActiveDocument.CustomDocumentProperties("Test2").Value = Worksheet.Range("B2").Text
        ActiveDocument.Fields.Update
           'Выход из Excel:
    Excel.Quit
    'Вставка в Word:
    Selection.InsertAfter (Text)
End Sub