Word VBA: Открытие файла в кодировке CP866 в программе "Word"

[Ratty]

Здравствуйте. Нужна помощь по макросу.

Использую такой макрос:
Sub Макрос()
   
    Dim doc As Document, strFullName As String
   
    '1. Запись в переменную полного имени файла, который надо открыть.
    strFullName = "D:\f20s_raz.33.rtf"
   
    '2. Открытие файла.
    Set doc = Documents.Open(strFullName)
   
End Sub

Но при открытии файла текст искажён: содержит так называемые крякозярбы, иероглифы (см. скрин).
Как мне открыть этот файл с помощью макроса без искажения текста?

При ручном открытии файла появляется диалог, в котором я выбираю Windows на MS-DOS, и текст не искажается.

[вложение удалено администратором]

[Ratty]

Нашёл сам решение:

Sub Макрос()
   
    Dim doc As Document, strFullName As String
   
    '1. Запись в переменную полного имени файла, который надо открыть.
    strFullName = "D:\f20s_raz.33.rtf"
   
    '2. Открытие файла.
    Set doc = Documents.Open(FileName:=strFullName, Encoding:=msoEncodingOEMCyrillicII)
   
End Sub