Никак никто не может мне подсказать, как запустить из 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