Здравствуйте. Нужна помощь по макросу.
Использую такой макрос:
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, и текст не искажается.
[вложение удалено администратором]
Нашёл сам решение:
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