Excel это не сложно

Добрый день.
Запускаю такой макрос из книги Excel:
Sub dddd()
Set wd1 = CreateObject("Word.Document")
Set wd2 = wd1.Application
wd2.Selection.Typetext "123 абв"
wd1.SaveAs "D:\1\123абв.docm", wdFormatXMLDocumentMacroEnabled
wd2.Quit
End Sub

Word-файл, созданный этим кодом, не открывается, даёт ошибку - см.скрин

В чём причина?

Вообще, ошибка классическая. Советую очень внимательно ознакомиться со статьей: Как из Excel обратиться к другому приложению (https://www.excel-vba.ru/chto-umeet-excel/kak-iz-excel-obratitsya-k-drugomu-prilozheniyu/)
И вот с этой статьей тоже: Variable not defined или что такое Option Explicit и зачем оно нужно? (https://www.excel-vba.ru/chto-umeet-excel/variable-not-defined-ili-chto-takoe-option-explicit-i-zachem-ono-nuzhno/)
Избежите многих ошибок и лишних раздумий. Если бы директива Option Explicit была у Вас включена - то VBA сразу бы подсветил Вам необъявленную wdFormatXMLDocumentMacroEnabled и Вы бы догадались, что Excel про неё не знает. Замените её на 13. Но и код я бы еще чуть подправил, т.к. есть вероятность, что Word выдает какое-либо сообщение перед закрытием. Поэтому так:

Sub dddd()
Set wd1 = CreateObject("Word.Document")
Set wd2 = wd1.Application
wd2.Selection.Typetext "123 абв"
wd1.SaveAs "C:\1\123абв.docm", 13 ' wdFormatXMLDocumentMacroEnabled
wd2.DisplayAlerts = False
wd1.Close False
On Error Resume Next
wd2.Quit False
End Sub

Дмитрий, спасибо !