Как использовать перевод из вопроса макроса VBA

Question

Хотите "пакетно" перевести многие текстовые документы.

Попытка пакетного преобразования в docx и необходимо добавить перевод.

Пожалуйста, посмотрите код, который я использую ниже.

Я не знаю, как вызвать перевод в ActiveDocument.

'''VBA
    Sub ConvertDocToDocx()
    'Updated by ExtendOffice 20181128
        Dim xDlg As FileDialog
        Dim xFolder As Variant
        Dim xFileName As String
        Application.ScreenUpdating = False
        Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
        If xDlg.Show <> -1 Then Exit Sub
        xFolder = xDlg.SelectedItems(1) + "\"
        xFileName = Dir(xFolder & "*.doc", vbNormal)
        While xFileName <> ""
            Documents.Open FileName:=xFolder & xFileName, _
                ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                wdOpenFormatAuto, XMLTransform:=""

    'pseudo code ActiveDocument.MStranslateFromTo('EN','DA') 

            ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
            ActiveDocument.Close
            xFileName = Dir()
        Wend
        Application.ScreenUpdating = True
    End Sub
'''

(код найден здесь: https://www.extendoffice.com/documents/word/5601-word-batch-convert-doc-to-docx.html#a1)

Answer 1

Не ответ

Это может быть сделано, но макрос записи не дает желаемого результата. При запуске этого кода создается только часть, где я выбираю код, часть, где я нажимаю переводить и т. Д., Не записывается - это выглядит так:

Sub Makro1()
'
' Makro1 Makro
'
'
    Selection.WholeStory
End Sub
```