powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сменить кодировку не получается
8 сообщений из 8, страница 1 из 1
сменить кодировку не получается
    #33592084
gusti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
'msoEncodingCyrillic 1251
'msoEncodingCyrillicAutoDetect 51251

Dim WordObj As Word.Application
Dim WordDoc As Word.Document

Set WordObj = CreateObject("Word.Application")

WordObj.Options.DefaultTextEncoding = 51251 '????--- не дают runtime error 5
Set WordDoc = WordObj.Documents.Open ("C:\2.txt")

WordDoc.TextEncoding = 51251 '?????--- не дают runtime error 5

WordObj.Visible = True
WordDoc.Close
Set WordObj = Nothing


Что за уйня млин ?
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33592187
В хелпе по свойствам DefaultTextEncoding, TextEncoding написано, что:

авторmsoEncodingAutoDetect Not used with this property.
Попробуй задать конкретную кодировку, а не AutoDetect.
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33592418
gusti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да не до читал всеравно не работает

Смысл задачи: открыть текстовый файл в MSW без всплывающих окон типа "выберите кодировку текста" и прочих окон, в кодировке 1251

строка WordDoc.TextEncoding = 1251 не помогает открывается всё в квадратиках.
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33592564
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.TextEncoding - для сохранения. Для открытия:
Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible, OpenConflictDocument, OpenAndRepair , DocumentDirection, NoEncodingDialog)

Encoding - Optional Variant. The document encoding (code page or character set) to be used by Microsoft Word when you view the saved document. Can be any valid MsoEncoding constant. For the list of valid MsoEncoding constants, see the Object Browser in the Visual Basic Editor. The default value is the system code page.

NoEncodingDialog - Optional Variant. True to skip displaying the Encoding dialog box that Word displays if the text encoding cannot be recognized. The default value is False.
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33592599
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
т.е. примерно так:
Код: plaintext
1.
2.
Documents.Open FileName:="C:\2.txt", ConfirmConversions:=False, Format:= 4 , _
Encoding:= 1251 , Visible:=True, noencodingdialog:=True
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33592997
gusti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Andres 1
Бльшое спсибо, за ответ, но результат их мать тот же - знаки вопросов !!! ????????????
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33594086
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Похоже, формат должен быть не текст (4), а wdOpenFormatEncodedText, т.е. 5
...
Рейтинг: 0 / 0
сменить кодировку не получается
    #33601670
gusti
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прив., Не угадал, всё тоже ... , жаль что гадальщиков так мало ):
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сменить кодировку не получается
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]