For j = 4 To iColl
                   
     If j = 5 Then
          Call ExportWord(MyArray(1, j), Format(MyArray(i, j), "[$-uk-UA-x-genlower]ДД ММММ ГГГГ року;@"))
     Else
                
End If

Format(MyArray(i, j), "[$-uk-UA-x-genlower]ДД ММММ ГГГГ року;@")

Application.WorksheetFunction.Text(MyArray(i, j), "[$-uk-UA-x-genlower]DD MMMM YYYY року")

Call ExportWord(MyArray(1, j),

Sub CreateDoc()
Dim MyArray(), BasePath As String, iFolder As String, iTemplate As String
Dim tmpArray, tmpSTR As String, iRow As Long, iColl As Long, i As Long, j As Long, q As Long

Application.ScreenUpdating = 0
On Error GoTo iEnd

iFolder = Range("FILE_WORD").Value: If Right(iFolder, 1) <> "\" Then iFolder = iFolder & "\"
iTemplate = Range("FILE_TEMPLATE").Value: If Right(iTemplate, 1) = ";" Then iTemplate = Left(iTemplate, Len(iTemplate) - 1)
BasePath = ThisWorkbook.Path & "\созданные документы\": Call FolderCreateDel(BasePath)

With Sheets("основной")
    iRow = .UsedRange.Row + .UsedRange.Rows.Count - 1: iColl = .UsedRange.Column + .UsedRange.Columns.Count - 1
    MyArray = .Range(.Cells(1, 1), .Cells(iRow, iColl)).Value
End With

'создаем скрытый объект Word
Set AppWord = CreateObject("Word.Application"): AppWord.Visible = False

'перебираем массив
For i = 2 To iRow
    If MyArray(i, 1) = "ok" Then
    
        'перебираем указанные word-шаблоны
        tmpArray = Split(MyArray(i, 3), ";")
        For q = 0 To UBound(tmpArray)
            tmpSTR = iFolder & tmpArray(q) & ".docx"
            If Len(Dir(tmpSTR)) > 0 Then
                Set iWord = AppWord.Documents.Open(tmpSTR, ReadOnly:=True)
            
                'делаем замену переменных
                For j = 4 To iColl
                    If j = 5 Then
                        Call ExportWord(MyArray(1, j), Format(MyArray(i, j), "[$-uk-UA-x-genlower]dd mmmm yyyy року;@"))
                    Else
                    If j = 9 Then
                        Call ExportWord(MyArray(1, j), Format(MyArray(i, j), "#,##0.00"))
                    Else
                        Call ExportWord(MyArray(1, j), MyArray(i, j))
                    End If
                    End If
                Next j
                
                iWord.SaveAs filename:=BasePath & MyArray(i, 2) & " - " & tmpArray(q) & ".docx", FileFormat:=12     'wdFormatXMLDocument = 12
                iWord.Close False: Set iWord = Nothing
            End If
            'tmpSTR = ""
        Next q
        'Erase tmpArray

    End If
Next i

AppWord.Quit: Set AppWord = Nothing
'Erase MyArray: BasePath = "": iFolder = "": iTemplate = ""

Application.ScreenUpdating = 1
MsgBox "Файлы сформированы.", vbInformation

Exit Sub

iEnd:
    AppWord.Quit: Set AppWord = Nothing
    'Erase MyArray: BasePath = "": iFolder = "": iTemplate = ""
    Application.ScreenUpdating = 1
    MsgBox "При обработке данных возникла ошибка.", vbCritical
End Sub

Call ExportWord(MyArray(1, j), Application.WorksheetFunction.Text(MyArray(i, j), "[$-uk-UA-x-genlower]DD MMMM YYYY року"))