Отправляет email-рассылки с помощью сервиса Sendsay

Linux: разрешение вопросов, перспективы и общение

Подписаться Бесплатный дискуссионный лист Подписчиков 999
←   Май 2008   →
 1
 2
 3
 4
04.05.2008
00:22:54
00:27:41
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт листа: http://www.linuxrsp.ru
Открыт: 25-07-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.linux.discuss-list@subscribe.ru
Адрес модератора: comp.soft.linux.discuss-owner@subscribe.ru

Модератор
Фёдор Сорекс

Статистика

999 подписчиков
0 за неделю

open office basic

Доброй охоты, друзья!

Помогите пожалуйста победить проблему: есть множество файлов в формате Winword
6.0. В какой кодировке записаны там файлы, одному Биллу известно. Факт в том,
что в ОО хочу перевести их в читабельный вид. Написал макрос:

Sub Main
dim document as object
dim dispatcher as object
dim a$, b$
rem rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(100,18) as new com.sun.star.beans.PropertyValue

for i = 192 to 255
a$ = chr(i)
b$ = chr(i + 848)

args1(i-192,0).Name = "SearchItem.StyleFamily"
args1(i-192,0).Value = 2
args1(i-192,1).Name = "SearchItem.CellType"
args1(i-192,1).Value = 0
args1(i-192,2).Name = "SearchItem.RowDirection"
args1(i-192,2).Value = true
args1(i-192,3).Name = "SearchItem.AllTables"
args1(i-192,3).Value = false
args1(i-192,4).Name = "SearchItem.Backward"
args1(i-192,4).Value = false
args1(i-192,5).Name = "SearchItem.Pattern"
args1(i-192,5).Value = false
args1(i-192,6).Name = "SearchItem.Content"
args1(i-192,6).Value = false
args1(i-192,7).Name = "SearchItem.AsianOptions"
args1(i-192,7).Value = false
args1(i-192,8).Name = "SearchItem.AlgorithmType"
args1(i-192,8).Value = 0
args1(i-192,9).Name = "SearchItem.SearchFlags"
args1(i-192,9).Value = 65536
args1(i-192,10).Name = "SearchItem.SearchString"
args1(i-192,10).Value = a$
args1(i-192,11).Name = "SearchItem.ReplaceString"
args1(i-192,11).Value = b$
args1(i-192,12).Name = "SearchItem.Locale"
args1(i-192,12).Value = 255
args1(i-192,13).Name = "SearchItem.ChangedChars"
args1(i-192,13).Value = 2
args1(i-192,14).Name = "SearchItem.DeletedChars"
args1(i-192,14).Value = 2
args1(i-192,15).Name = "SearchItem.InsertedChars"
args1(i-192,15).Value = 2
args1(i-192,16).Name = "SearchItem.TransliterateFlags"
args1(i-192,16).Value = 1024
args1(i-192,17).Name = "SearchItem.Command"
args1(i-192,17).Value = 3
args1(i-192,18).Name = "Quiet"
args1(i-192,18).Value = true

next
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
End Sub

Но он не пашет. Как его победить, не знаю. Windows office basic я изучил
быстро. Но здесь, в OOB по-видимому, останутся все мои зубы :(

-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 34426; Возраст листа: 1772; Участников: 1479
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/750422

Ответить  
Владимир Никанчук
Sat, 31 May 2008 19:02:48 +0400 (#750422)

 

Ответы:

Помнится есть cyrtools - модуль для ООО.
После установкп появляется пункт меню "Кириллические документы" и там --
перекодировка.
Для exel 5 по крайней мере нормально перекодирует.

-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 34427; Возраст листа: 1772; Участников: 1479
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/750428

Ответить  
Almih
Sat, 31 May 2008 19:34:14 +0400 (#750428)

 

Almih пишет:

Гляньте тут:
http://www.i-rs.ru/Skachat

-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 34435; Возраст листа: 1773; Участников: 1478
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/750649

Ответить  
saturas
Mon, 02 Jun 2008 00:06:15 +0600 (#750649)

 

В сообщении от Sunday 01 June 2008 22:06:15 saturas написал(а):

Спасибо

-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 34436; Возраст листа: 1774; Участников: 1475
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/750713

Ответить  
Владимир Никанчук
Mon, 2 Jun 2008 10:03:30 +0400 (#750713)