Шрифты в libreoffice calc

17.10.2013 17:46 #344121

Открываю документ в Gnumeric и Libreoffice Calc и и появляются какие то иероглифы??????? Можно как нибудь исправить эту ситуацию.

документ в Gnumeric http://i051.radikal.ru/1310/7d/3f3c536be224.png

докумен в Libreoffice Calc http://s020.radikal.ru/i720/1310/da/259187e75951.png

18.10.2013 08:39 #344172

вполне вероятно что надо открыть использую другую кодировку, но не уверен.

18.10.2013 13:00 #344208

Можно. Разрешаю.
Один из возможных вариантов -- использовать расширение Cyrillic Tools.
Если пришлёте файлы, могу выслать перекодированные.

18.10.2013 14:41 · отредактировано #344222

text

*****  Recode from cp1252 to cp1251 for Word and Excel files without language set.
REM  *****  Authors Dmitry G. Mastrukov and A. Novodroskii 2002
REM  ***** GPL license
Dim mCP1252(123) As String
Dim mCP1250(123) As String
Sub Init
mCP1252() = Array("€","‚","¸","„","…","†","‡","ˆ","‰","Š","‹","Œ","Ž", _
                      "‘","’","“","”","•","–","—","™","š","›","œ","¡","ž", _
                      "Ÿ"," ","¡","¢","£","¤","¥","¦","§","¨","©","ª","«", _
                      "¬","","®","¯","°","±","²","³","´","µ","¶","·","¸", _
                      "¹","º","»","¼","½","¾","¿","À","Á","Â","Ã","Ä","Å", _
                      "Æ","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ð","Ñ","Ò", _
                      "Ó","Ô","Õ","Ö","×","Ø","Ù","Ú","Û","Ü","Ý","Þ","ß", _
                      "à","á","â","ã","ä","å","æ","ç","è","é","ê","ë","ì", _
                      "í","î","ï","ð","ñ","ò","ó","ô","õ","ö","÷","ø","ù", _
                      "ú","û","ü","ý","þ","ÿ")
mCP1251() = Array("Ђ","‚","ё","„","…","†","‡","€","‰","Љ","‹","Њ","Ћ", _
                      "‘","’","“","”","•","–","—","™","љ","›","њ","ќ","ћ", _
                      "џ"," ","Ў","ў","Ј","¤","Ґ","¦","§","Ё","©","Є","«", _
                      "¬","","®","Ї","°","±","І","і","ґ","µ","¶","·","ё", _
                      "№","є","»","ј","Ѕ","ѕ","ї","А","Б","В","Г","Д","Е", _
                      "Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т", _
                      "У","Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я", _
                      "а","б","в","г","д","е","ж","з","и","й","к","л","м", _
                      "н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ", _
                      "ъ","ы","ь","э","ю","я")
End Sub
Sub RecodeAllWriter
  Dim n As Long
  Dim oDocument As Object
  Dim oReplace As Object
  Init()    
  oDocument = ThisComponent
  oReplace = oDocument.createReplaceDescriptor
  For n = lbound(mCP1252()) To ubound(mCP1252())
    oReplace.SearchString = mCP1252(n)
    oReplace.ReplaceString = mCP1251(n)
    oReplace.SearchCaseSensitive = TRUE
    oDocument.replaceAll(oReplace)
   Next n
  MsgBox "Преобразовано"
End Sub
Sub RecodeAllCalc
  Dim n As Long
  Dim m As Long
  Dim oDocument As Object
  Dim oReplace As Object
  Init()    
  On error goto ex
  oDocument = ThisComponent
  m = 0
  While 1 = 1 
  oReplace = oDocument.Sheets(m).createReplaceDescriptor
  For n = lbound(mCP1252()) To ubound(mCP1252())
    oReplace.SearchString = mCP1252(n)
    oReplace.ReplaceString = mCP1251(n)
    oReplace.SearchCaseSensitive = TRUE
    oDocument.Sheets(m).replaceAll(oReplace)
  Next n
  m = m + 1
  Wend
  ex:
  MsgBox "Преобразовано"
End Sub