Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сменить кодировку не получается / 8 сообщений из 8, страница 1 из 1
10.03.2006, 11:30:33
    #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
10.03.2006, 11:55:41
    #33592187
сменить кодировку не получается
В хелпе по свойствам DefaultTextEncoding, TextEncoding написано, что:

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

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

строка WordDoc.TextEncoding = 1251 не помогает открывается всё в квадратиках.
...
Рейтинг: 0 / 0
10.03.2006, 13:16:18
    #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
10.03.2006, 13:24:21
    #33592599
Andres 1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сменить кодировку не получается
т.е. примерно так:
Код: plaintext
1.
2.
Documents.Open FileName:="C:\2.txt", ConfirmConversions:=False, Format:= 4 , _
Encoding:= 1251 , Visible:=True, noencodingdialog:=True
...
Рейтинг: 0 / 0
10.03.2006, 15:13:35
    #33592997
gusti
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сменить кодировку не получается
2Andres 1
Бльшое спсибо, за ответ, но результат их мать тот же - знаки вопросов !!! ????????????
...
Рейтинг: 0 / 0
11.03.2006, 03:03:57
    #33594086
Andres 1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сменить кодировку не получается
Похоже, формат должен быть не текст (4), а wdOpenFormatEncodedText, т.е. 5
...
Рейтинг: 0 / 0
15.03.2006, 11:32:02
    #33601670
gusti
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
сменить кодировку не получается
Прив., Не угадал, всё тоже ... , жаль что гадальщиков так мало ):
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / сменить кодировку не получается / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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