Public Sub ExportFormatDocToDocX()
Dim Fl As FileDialog, Fr As FileDialog, FolderName As String
Dim EDoc As Document, i As Long
    Set Fr = Application.FileDialog(msoFileDialogFolderPicker)
        With Fr
            .Title = "Вибрати папку для збереження"
            .ButtonName = "Вибрати"
            .AllowMultiSelect = False
        End With
        Fr.Show
            If Fr.SelectedItems.Count = 0 Then
                MsgBox "Ви не вибрали папку для збереження!!!", vbCritical
                Exit Sub
            End If
            FolderName = Fr.SelectedItems(1)
        Set Fl = Application.FileDialog(msoFileDialogFilePicker)
        With Fl
            .Title = "Вибрати файли які сконвертувати"
            .ButtonName = "Конвертувати"
            .Filters.Clear
            .Filters.Add "Файли", "*.doc"
        End With
            Fl.Show
            If Fl.SelectedItems.Count = 0 Then
                MsgBox "Ви не вибрали файли для конвертації!!!", vbCritical
                Exit Sub
            End If
                         For i = 1 To Fl.SelectedItems.Count
                            Set EDoc = Documents.Open(Fl.SelectedItems(i))
                            n = Split(EDoc.Name, ".")
                            f = n(0) & ".docx"
                            FolderName = FolderName & "\"
                            EDoc.Convert
                                ChangeFileOpenDirectory _
                                FolderName
                            EDoc.SaveAs f
                            EDoc.Close
                        Next i
End Sub