Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем - VBA

Формулировка задачи:

Открываю через ексель файлы ворд и выполняю макрос ворд, но не получается сохранить файл под указанным именем ни такое

 objWrdApp.Application.SaveAs ДатаСоздания.Value

ни это

 ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument

не работает ОТдельно через ворд

 ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument

работает, а с выховом ворда через ексель не работает. Подскажите плз как сохранить файл?

Sub ОбратоткаВордФайлов ()
 
    Dim coll As Collection, ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%
 
    ПутьКПапке$ = [c1]    ' берём из ячейки c1
    МаскаПоиска$ = [c2]    ' берём из ячейки c2
    ГлубинаПоиска% = Val([c3])    ' берём из ячейки c3
    If ГлубинаПоиска% = 0 Then ГлубинаПоиска% = 999    ' без ограничения по глубине
 
    Set coll = FilenamesCollection(ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%)

    For i = 1 To coll.Count    ' перебираем все элементы коллекции, содержащей пути к файлам
 
        НомерФайла = i
        ПутьКФайлу = coll(i)
        ИмяФайла = Dir(ПутьКФайлу)
        ДатаСоздания = FileDateTime(ПутьКФайлу)
        РазмерФайла = FileLen(ПутьКФайлу)
 
'While ИмяФайла <> ""
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
    objWrdApp.Visible = True
    objWrdApp.Activate
 
  objWrdApp.Application.Run "Normal.NewMacros.F_макросВОРД"

   objWrdApp.Application.SaveAs ДатаСоздания.Value
   
 ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument

Решение задачи: «Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем»

textual
                            Листинг программы 
                        

                            Dim strFileName$, dtFile As Date, i&
Dim objWrdApp As Object, objWrdDoc As Object
Set objWrdApp = CreateObject("Word.Application")
 
For i = 1 To coll.Count
    ...
    strFileName = coll(i)
    dtFile = DateValue(FileDateTime(strFileName))
    
    Set objWrdDoc = objWrdApp.Documents.Open(strFileName)
    objWrdApp.Run "Normal.NewMacros.F_макросВОРД"
    objWrdDoc.SaveAs "C:\Данные на " & dtFile & ".doc", 0 'wdFormatDocument
    objWrdDoc.Close -1 'wdSaveChanges
Next
 
objWrdApp.Quit
                        