Developing.ru

Hallo!
Никак никто не может мне подсказать, как запустить из VB6 ворд для чтения текстового (*.txt) файла в ДОСОВСКОЙ(!!!) кодировке.
У меня Office 2007 и почему-то не срабатывают никакие значения Encoding
Пробовала подсматривать в Officr в макросах - не получилось (хотя как другие пишут в 2003 - OK).
Мне нужна элементарная Sub(<имя и путь вх.файла>, <портрет/пейзаж>,<шрифт>, <размер шрифта size>). Как сделать ее из этих вот моих потугов:

Код: Выделить всё

Set objWord = CreateObject("Word.Application")
    objWord.Documents.Open FileName:=NFile, ReadOnly:=False, Encoding:=866, ConfirmConversions:=True ' , _
    'Encoding:=msoEncodingCyrillic
    ' msoEncodingOEMCyrillicII msoEncodingEBCDICRussian msoEncodingCyrillic
    ' ConfirmConversions:=False - не вызывает word!!
    'objWord.ActiveDocument.PageSetup.Orientation = wdOrientLandscape  '- не срабатывает, но ошибки не выдает....
    'Format:=wdOpenFormatText  ' error, - не работают все значения, error...  wdOpenFormatEncodedText  wdOpenFormatText   wdOpenFormatAuto
' AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
    '    :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
    '    , Format:=wdOpenFormatAuto, XMLTransform:=""
 '  objWord.ActiveDocument.TextEncoding = objWord.msoEncodingOEMCyrillicII  ' error
    objWord.ActiveDocument.PageSetup.PageWidth = objWord.CentimetersToPoints(n2)  ' - работает.
    objWord.ActiveDocument.PageSetup.PageHeight = objWord.CentimetersToPoints(n1) ' - работает.
'    objWord.ActiveDocument.PageSetup.TextEncoding = msoEncodingEBCDICRussian   ' error
' TextEncoding = msoEncodingCyrillic
'TextEncoding = msoEncodingCyrillicAutoDetect ' msoEncodingCyrillicAutoDetect msoEncodingKOI8R msoEncodingKOI8U